Solved: Userform query

[blackie42]

Hi

Was wondering if its possible to automatically skip to the next textbox on the userform once 2 numbers have been entered. I suspect I need to limit the length to 2 characters and then only allow numbers in the textbox.

Can anyone help with limiting the TB to numbers and also the auto skip once to numbers are entered?

thanks in advance

Jon

[fb7894]

Private Sub TextBox1_Change()
If Len(TextBox1) = 2 Then
TextBox2.SetFocus
End If
End Sub

[blackie42]

Thanks - skip bit works well

Any ideas about only allowing numeric values only at the same time e.g.
user gets message if inputs anything that isn't numeric

thanks again

[RonMcK]

Blackie,

You might try:Private Sub TextBox1_Change()
If Not IsNumeric(Textbox1) Then
MsgBox ("You must enter a numeric. Please Try again.")
Textbox1.Value = ""
Textbox1.SetFocus
End Sub
End If
If Len(Textbox1) = 2 Then
TextBox2.SetFocus
End If
End Sub

[blackie42]

Hi - thanks for reply

Will give it a try tomorrow

regards

[GTO]

Greetings Blackie:

You could also use the textbox's provided properties, as to AutoTab and MaxLength; either in Intitialize or Activate, or simply in the properties window during design.

Private Sub UserForm_Initialize()
With Me.TextBox1
.AutoTab = True
.MaxLength = 2
End With
End Sub

...A small tweak to Ron's, to prevent the MsgBox from popping back up when the value gets emptied.

Private Sub TextBox1_Change()

If Not IsNumeric(TextBox1) _
And Not TextBox1.Value = "" Then
MsgBox ("You must enter a numeric. Please Try again.")
TextBox1.Value = ""
TextBox1.SetFocus
End If
End Sub

Hope this helps,

Mark

[blackie42]

Again - works fine - thanks for help

regards

Jon