Do not allow more that 4 numerals in a text box

[morlan]

Hi guys,

I have 4 text boxes that are used to input a bank account number.
I have set the text boxes with an input mask of 0000 which stops the user from entering more than four numbers in each box.

I want to automatically set focus to the next box when the user has typed in 4 characters. I'm using this:

Private Sub txtACNumber1a_Change()

If (Len(Me.txtACNumber1a.Value) > 3) Then
    Me.txtACNumber2a.SetFocus
End If

End Sub

But the code won't fire! It works fine when I change the input mask back to blank. Any ideas what I can do?

 

[a.sinatra]

Private Sub txtACNumber1a_Change()

If Len(Me.Me.txtACNumber1a.Value) = 4 Then
    Me.txtACNumber2a.SetFocus
    Me.Me.txtACNumber1a.Enabled = Flase
End If

End Sub

Just make it so that when it does equal 4 it moves on and locks it, but if they do move on without you can use a case stament to add zeros to either the back or front.
________
DC MARIJUANA DISPENSARY

 

[morlan]

Private Sub txtACNumber1a_Change()

If Len(Me.Me.txtACNumber1a.Value) = 4 Then
    Me.txtACNumber2a.SetFocus
    Me.Me.txtACNumber1a.Enabled = Flase
End If

End Sub

Just make it so that when it does equal 4 it moves on and locks it, but if they do move on without you can use a case stament to add zeros to either the back or front.

Thanks mate, I think I've sorted it.

 

[Mile-O]

As an aside, I posted some code to limit the characters typed into a textbox in the Code Repository.