Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations Mike Lewis on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

keyAscci?

Status
Not open for further replies.
Fursten

Fursten

Programmer
Dec 27, 2000
403
0
0
PT
Hi,

Can someone tell me how can I lock a text field for input letters. I want only to let the user input numbers(0 -9)

Thank you
 
Sort by date Sort by votes
in the keypress proc write

Code: 
If KeyAscii>31 then
   If isnumeric(chr(KeyAscii)) then
       if chr(KeyAscii) < 0 or chr(KeyAscii) > 9 then
            KeyAscii=0
       end if
   End if
End if
[\code]

Ciao
 
Upvote 0 Downvote
or, used in the same place, the slightly less readable
If Not (KeyAscii < 32 Or (KeyAscii > 48 And KeyAscii < 57)) Then
KeyAscii = 0
End If

Andy
 
Upvote 0 Downvote
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top