• Home
 · 
• String Manipulation
 · 
• Write only numeric values into a textbox you can coose to write real or integer

Write only numeric values into a textbox you can coose to write real or integer

Write only numeric values into a textbox you can coose to write real or integer

Rate Write only numeric values into a textbox you can coose to write real or integer

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

'Developped by boujnah ghazi
' 18/04/2003
' This small program allow user to write only numeric values
' if your number is real Place R in the Tag property
Dim Ancien as string
Ancien = Me.Text2
If KeyAscii = 46 And Text2.Tag <> "R" Then KeyAscii = 0: Exit Sub
If IsNumeric(Me.Text2 & Chr(KeyAscii)) Then
Else
KeyAscii = 0
End If
End Sub