Autofocus on next text box

**matpj** · 10-22-2007, 12:18 PM

Hi,
I have 3 textboxes in a row.
They each have a maximum length associated with them of 2, 1, 3 respectively.
Is it possible to automatically switch focus to the next text box when the frist one has 2 characters? and the third one when the second has 1?

thank sin advance,
Matt

**bettatronic** · 10-22-2007, 03:02 PM

hi there,
check payload.

Private Sub TextBox1_Change()
    If Len(TextBox1.Text) = 2 Then set_control_focus ("TextBox2")
End Sub

Private Sub TextBox2_Change()
    If Len(TextBox2.Text) = 1 Then set_control_focus ("TextBox3")
End Sub

Public Sub set_control_focus(ByVal objname As String)
    On Error GoTo err
    Dim obj As OLEObject
    Set obj = Worksheets(1).OLEObjects(objname)
        obj.Activate
err:
End Sub

**matpj** · 10-23-2007, 04:35 AM

thanks for that. Perfect!

with the risk of sounding stupid, what do you mean by check payload?

Someone I am working with wants to do this with a Word document form they are working on.
I have used your code, but replaced Worksheets(1) with Documents(1)
although it does not seem to work....
any ideas?

Autofocus on next text box

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

Autofocus on next text box

Thread Information

Users Browsing this Thread

Bookmarks

Bookmarks

Posting Permissions