Excel UserForm TextBox Character Limit Must Equal 0 or 8

[Nadine67]

Hello and thank you for any attention this post may receive.

So I have a userform (frmInput) which has 25 texboxes (TextBox1 to TextBox25) and all of which have the 'MaxLength' set to 8, and restricted to numbers only. However this still allows me to input any length of characters from 1 to 8. I would like all 25 textboxes to only accept blank or 8char. Not sure how to do this. I have looked online but can only really find a character limit which is not exactly what I am after.

Any thoughts would be greatly appreciated.

This is the code (I found on www) to limit textbox input to numbers only.

Private Sub InputTextBox_keypress _
(ByVal KeyAscii As msforms.ReturnInteger)
'Allows only numbers.
'Dim sText
Select Case KeyAscii
   Case 47 To 57
   Case Else
      KeyAscii = 0
End Select
'Save the text in a variable
sText = InputTextBox.Text
End Sub

Cheers and have a great day!

 

[JoeMo]

Maybe something like this - add a message box or clear the text box at the line 'do something

Private Sub InputTextBox_keypress _
(ByVal KeyAscii As msforms.ReturnInteger)
'Allows only numbers.
'Dim sText
Select Case KeyAscii
   Case 47 To 57
   Case Else
      KeyAscii = 0
End Select
'Save the text in a variable
stext = InputTextBox.Text
If stext <> "" Then
    If Len(stext) <> 8 Then
        'do something
    End If
End If
End Sub

 

[Nadine67]

Thank you JoeMo.

I have used your suggestion and have a MsgBox indicating the error. However is it possible to stop the user from moving away from the textbox or form if any of the 25 textboxes do not meet the criteria of blank or 8char?

 

[Nadine67]

JoeMo this is what I have and it allows me to enter 1 character before the msgbox appears. I am not able to enter >1 character. Eeeek

Private Sub InputTextBox_keypress _
(ByVal KeyAscii As msforms.ReturnInteger)
'Allows only numbers.
'Dim sText
Select Case KeyAscii
   Case 47 To 57
   Case Else
      KeyAscii = 0
End Select
'Save the text in a variable
stext = InputTextBox.Text

If stext <> "" Then
    If Len(stext) <> 8 Then
        MsgBox "The workorder must be an 8 digit number.  Please enter the correct 8 digit number."
    End If
End If
End Sub