Validate a TextBox entry is a number of chars?

[wageslave101]

I've a Userform with a Textbox in it for users to enter a reference the number. The reference number must always be 10 digits in length, so my question is how can I make sure that it checks that the number of digits entered are correct?

I'm guessing that the validation will go inside

Private Sub TextBox1_Change()

End Sub

But beyond that I'm stumped.

Sincerely,
WageSlave101

 

[QuietRiot]

one of the textbox's properties is maxlength. you just change that to 10

is this what you mean?

just click on the text box on your userform in VBE and on the left side there are properties

or do you want to validate whether numbers were entered and whether it is not less than 10?

 

[QuietRiot]

if you have a button put this line in it

Private Sub CommandButton1_Click()
If UserForm1.TextBox1.TextLength < 10 Then
MsgBox "Please enter 10"
Exit Sub
Else
MsgBox "coolio!"
End If
End Sub

 

[jindon]

If you want to use Change event then

Private Sub TextBox1_Change()
With CreateObject("VBScript.RegExp")
     .Pattern = "\D+"
     .Global = True
     If Not .test(TextBox1.Value) Then Exit Sub
     TextBox1.Value = .replace(TextBox1.Value, "")
End With
End Sub

You could also use KeyPress event

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
     Case vbKey0 To vbKey9
     Case Else : KeyAscii = 0
End Select
End Sub

 

[wageslave101]

Thank you very much for the responses

I'll have a play with each of these

Thanks!

 

[QuietRiot]

i would actually do these 3 things..

1.) set the textbox to 10

2.) use jindons code to not allow users to enter non numeric

3.) button with my code to verify 10 digits

 

[jindon]

10 degits

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Len(TextBox1.Value) <> 10 Then
     MsgBox "10 degits entry only"
     Cancel = True
End If
End Sub