Input Validation

Hi, I have create some textboxes and had performed the input validation to block all other keys except from A to Z. However, now I cannot use the backspace key. How can I alter the code so that that key can be used again? The code is as follows:

Private Sub Textbox1(KeyAscii As Integer)

Dim StrValid as String

StrValid = "ABCD....Z"

If InStr(StrValid, Chr(KeyAscii)) = 0 Then
KeyAscii = 0
End If

End Sub

in your KeyPress handler

If KeyAscii <> 8 then
If InStr(1, strvalid, Chr(KeyAscii)) = 0 then
KeyAscii = 0
End If
End If

The character code for backspace is 8. You could slightly modify your code to:

strValid = "ABCD....Z" & chr(8)

If InStr(StrValid, Chr(KeyAscii)) = 0 then
KeyAscii = 0
End If




But I personally would use the following code. I believe it would be faster.

If Not ((KeyAscii = 8) Or ((KeyAscii >= 65) And (KeyAscii <= 90))) then
KeyAscii = 0
End If




BrewGuru99

Brewguru99