How input character KeyAscii 1234567890 /

Question

i want type Only characters 0123456789 and / for data textbox . sample 6/13/2021 how type only 1234567890 and /

Private Sub Data_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If (KeyAscii < 48 Or KeyAscii > 57 And KeyAscii <> 111) Then KeyAscii = 0

End Sub

If you get an answer to [this question](https://meta.stackexchange.com/q/66377/147640), your next question will be how to allow `6/13/2021` but disallow `15/20/2021`. What you want is a [date picker](https://stackoverflow.com/q/13409653/11683). — GSerg, Jun 12 '21 at 22:04

score 0 · Accepted Answer · answered Jun 13 '21 at 00:01

0

Please try this code.

Private Sub Data_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

    If InStr("1234567890/", Chr(KeyAscii)) = 0 Then KeyAscii = 0
End Sub

answered Jun 13 '21 at 00:01

Variatus

thank you, Why when I type the utf-8 characters gives an error "5"? – mehdi Jun 14 '21 at 12:12
Error 5 indicates an "Invalid procedure call or argument". Therefore it's important to know what causes the error. Is it the procedure, the call or the argument? I don't know how you "type a utf-8 character". but presume that you mean a 2-byte character. The function clearly needs an ASCII character and passing something else may cause the function call to fail or the `Chr(KeyAscii)` statement within the function. I suggest you ask another question giving much more detail of what you are doing. – Variatus Jun 14 '21 at 23:25

1 Answers1