PDA

View Full Version : Solved: Check textbox for text?



blackie42
11-26-2008, 09:02 AM
'If isnumeric(textbox1)' checks to see if a number is entered in a TB (in a change sub) but is there something similar for checking to see if a letter or letters have been entered. I tried 'If isText' but it doesn't work.

thanks

Jon

Kenneth Hobs
11-26-2008, 09:21 AM
Private Sub TextBox1_Change()
Dim s As String
s = Right(TextBox1.Value, 1)

Select Case s
Case 0 To 9
MsgBox "A number was entered."
Case "a" To "z"
MsgBox "A lowercase letter was entered."
Case "A" To "Z"
MsgBox "An uppercase letter was entered."
Case Else
MsgBox "Neither a letter nor a number was entered."
End Select
End Sub

georgiboy
11-26-2008, 09:31 AM
If IsNumeric(TextBox1.Value) = False Then
MsgBox "This is text"
End If