If text in textbox is not numeric then..

[YEAYA]

How would I create a command that checks to see the text in a textbox and if its not numeric then to display a message..

For example..

Private Sub cmdgo_Click()
If Text1.text = Not Numeric Then
Msgbox "Not Numeric"
End If

Thankyou

[lintz]

Private Sub cmdgo_Click()
If IsNumeric(Text1.text) =False Then
Msgbox "Not Numeric"
End If

[isnoend07]

This will help you
http://www.vbforums.com/showthread.php?t=507097

[Zach_VB6]

If Not IsNumeric(Text1.Text) Then

[lintz]

That's another way to use my code Zach_VB6

[Zach_VB6]

Check this control out:

http://www.vbforums.com/showthread.php?t=510567

[Code Doc]

If Not IsNumeric(Text1.Text) Then

Note that if the textbox reads "1/2", IsNumeric will say that it is not numeric because the forward slash is not considered a numeric by IsNumeric. Some might consider this a weakness. Other examples can also be identified, such as the factorial sign !, brackets, and braces. On the other hand, parentheses are considered numeric, so I think there is some judgment calls going on here.

Just my $0.02.

[newprogram]

You could

Private Sub cmdgo_Click()
text1.text =  replace (text1.text,"/","")
 
If IsNumeric(Text1.text) =False Then
Msgbox "Not Numeric"
End If

Note that if the textbox reads "1/2", IsNumeric will say that it is not numeric because the forward slash is not considered a numeric by IsNumeric. Some might consider this a weakness. Other examples can also be identified, such as the factorial sign !, brackets, and braces. On the other hand, parentheses are considered numeric, so I think there is some judgment calls going on here.

Just my $0.02.

[leinad31]

Code Doc is correct. A one size fits all approach through IsNumeric() is not always appropriate because of the way the function works, e.g. "2E5" returns True but that isn't so for an IP address octet or a cash amount. And newprogram, "1//2" should not be a valid expression.