why is this If statement not working

[chiefvj]

Private Sub combo_sport_KeyPress(KeyAscii As Integer)

Dim TheKey As String
TheKey = KeyAscii

If TheKey = "324" Then
' if the user hits the space bar
' check for the ascii code 324
MsgBox ("We are in a space " & combo_sport)
Else
MsgBox ("keyascii= " & KeyAscii & vbYesNo)
End If

End Sub




thx in advance

 

[PHV]

To check for the space bar I'd simply use this:
If KeyAscii = 32 Then
...

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[chiefvj]

thx

 

[JoeAtWork]

Didn't we already cover this here:

http://www.tek-tips.com/viewthread.cfm?qid=1375151