[RESOLVED] Varify Input

I have code to check the input for specific characters in a text box.
My code catches the incorrect characters, gives a warning, but after the user closes the msgbox, the incorrect character is still entered :mad:

I am sure this will be a simple solution but I can't figure it out at the moment.:rolleyes:

I have tried the following code in the KeyDown, KeyPress and the KeyUp and I get the same problem each time.

vb Code:

Dim tmpDate As String
    tmpDate = txtMembership(Index).Text
    
    Select Case Index
        Case 11, 12, 13, 15
            Select Case KeyAscii
                Case 8          'backspace
                Case 47         '/forward slash
                Case 48 To 59   'numbers
                Case 127        'Delete key
                Case Else
                    MsgBox "You can only enter numbers and the ' / ' seperator when entering dates.", _
                            vbOKOnly + vbInformation, "Date Format"
                    'remove last character entered
                    'Exit Sub
                    txtMembership(Index).Text = tmpDate
            End Select
    End Select

just spit balling...I usually test before posting but something like:

txtMembership(Index).Text = mid(tmpDate,1,len(tmpDate) - 1)

Thanks Tyson, but that doesn't work - same problem

Pseudocode:

Code:

---

If KeyAscii isn't valid Then
    error message
    KeyAscii = 0
End If

---

Quote:

---

Originally Posted by MartinLiss

Pseudocode:

Code:

---

If KeyAscii isn't valid Then
    error message
    KeyAscii = 0
End If

---

---

Thanks Martin, I knew I had done this before, but just couldn't remember the solution :blush:

Does it make any difference as to which event I put this in:
KeyDown, KeyUp or KeyPress?

Of those, KeyPress is the only one that gives you the keyascii value so the choice is clear.

Quote:

---

Originally Posted by MartinLiss

Of those, KeyPress is the only one that gives you the keyascii value so the choice is clear.

---

:blush: Should have checked that. I had it in that one, so I hadn't looked again at the other two, both KeyCode. :rolleyes: