finding difference between number and letter.

[PrograMan]

I saw this before but I don't remember which post it's in. I'm trying to find out how to know whether the user put in any character that's not a number inside a text field.

 

[MakeItSo]

Short question, short answer:
If (Not) IsNumeric(field name).
;-)

MakeItSo



Andreas Galambos
EDP / Technical Support Specialist
(andreas.galambos@bowneglobal.de)
HP:

http://home.arcor.de/andygalambos

 

[LPlates]

This will allow numeric input such as -23 or 34.56 or ..
-185.74

Private Sub Text1_Change()
If Not ValidateNumeric(Text1.Text) Then
Text1.Text = ""
End If
End Sub

Private Function ValidateNumeric(strText As String) _
As Boolean
ValidateNumeric = CBool(strText = "" _
Or strText = "-" _
Or strText = "-." _
Or strText = "." _
Or IsNumeric(strText))
End Function