Auto-Tabbing

[cross5900]

I am trying to setup 3 text boxes to autotab once the required input has been put in.

I have in the table assigned each field the max number that can be inputted, which is 3, 4 and 5. Now when inputting it stops and you have to manually tab to get it to move over which is fine and good...but who I am designing this for wants it to tab. I could use input mask but it uses place holders which I dislike greatly.

I am looking how to do this in code, I am not sure which commands to call up. Right now I have this:

Private Sub Branch_Change()
If Branch.length = 3 Then
DoCmd.RunCommand acCmdTabOrder
End If

I am still learning my code, so laugh at will cause I am sure none of that is right. Thanks.

 

[cross5900]

I was way off.

Should be

If Len(Me.Branch.text) = 3 Then contract.setfocus

No End If on this one or it will crash out on ya.

Of course "branch" and "contract" is whatever your text boxes are, pretty simple.