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 Wanet Telecoms Ltd 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
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