[RESOLVED] Trouble with the Keypress event of a textbox

[The_Grudge]

I have the following code in the Keypress event of a textbox.

If Val(txtRooms) = 0 Then
        MsgBox "Zero is an invalid entry", vbInformation, "Invalid Entry"
        txtRooms = vbNullString
        txtRooms.SetFocus
        Exit Sub
    Else
        Call cmdSubmitChange_Click
    End If

It works but it doesn't reset the value in the textbox. For example, if the user enters "0", it fires the msgbox saying it's an invalid entry, and then it pops the zero into the textbox. How do I tell it NOT to display the value just entered?

[Static]

u need to intercept & change the KeyAscii

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 48 Then '48 = 0
    MsgBox "Zero is an invalid entry", vbInformation, "Invalid Entry"
    KeyAscii = 0
    txtRooms.SetFocus
    Exit Sub
Else
    Call cmdSubmitChange_Click
End If
End Sub

[manavo11]

Try this :

If Val(txtRooms) = 0 Then
        MsgBox "Zero is an invalid entry", vbInformation, "Invalid Entry"
        txtRooms = vbNullString
        txtRooms.SetFocus
        [b]KeyAscii = 0[/b]
        Exit Sub
    Else
        Call cmdSubmitChange_Click
    End If

Not sure it'll work though...

[The_Grudge]

Thanks for the help guys.

[Hack]

Well, then move the reset line above the messagebox line. That'll take care of that sucker right quick!