Question about Keyascii and If/Then statements

[maxxximaniac]

Hey guys,

This is probably gonna be cake for some of you, but it not workin right for me.

I have this statement in a form under KeyPress
What I need to to is Add another allowed Key, Backspace,
Can someone help me code this?

If KeyAscii < 47 Or KeyAscii > 57 Then KeyAscii = 0

Thanks!

 

[trucktime]

KeyAscii

Try this:

If KeyAscii = 8 Or KeyAscii > 47 And KeyAscii < 58 Then
KeyAscii = KeyAscii
Else
KeyAscii = 0
End If

 

[Pat Hartman]

If KeyAscii < 47 Or KeyAscii > 57 Or KeyAscii = whatever Then KeyAscii = 0

 

[ChrisO]

Select Case is probably easier: -

Option Explicit
Option Compare Text


Private Sub Form_KeyPress(KeyAscii As Integer)

    Select Case KeyAscii
        Case 8, 47 To 57
            [color=green]'  Do Nothing[/color]
            
        Case Else
            KeyAscii = 0
    
    End Select

End Sub

Hope that helps.

ETA…
Good morning Pat, didn’t see you there.


Regards,
Chris.

 

[ShiftyJaffa]

or on 1 line,
If KeyAscii < 47 And KeyAscii <> 8 Or KeyAscii > 57 Then KeyAscii = 0