Constants

[MS_Access_Amature]

Private Sub MyZipCode_KeyPress (KeyAscii As Integer)

If KeyAscii >= vbKeyA And KeyAscii <= vbKeyZ Then
KeyAscii = 0
End If
​

End Sub


This only works for upper case letters. How can I make it case insensitive??
Thanks in advance.

 

[Rick_A]

This should work:

Private Sub MyZipCode_KeyPress (KeyAscii As Integer)

If KeyAscii >= vbKeyA And KeyAscii <= Asc("z") Then
KeyAscii = 0
End If​

End Sub

 

[MS_Access_Amature]

Thank You!