SetFocus on Multipage UserForm

[leopardhawk]

Hello forum friends, I have a multipage userform with 6 pages, with each page having several textboxes. The first textbox on each page has TabIndex set to 0. I also have this little snippet in the code under "Private Sub UserForm_Initialize()"

MultiPage1.Value = 0
    Me.EstCPPTextBox1.SetFocus

When the userform is first opened, the cursor is in the first textbox on page 1. If I left-click on any of the other pages on the form, the focus is on the 'tab' at the top for that page. However, If I right-click on any of the other pages, the focus is now in the first textbox on that page which is where I want it to be!!! I think most users are going to use the left-click to move between pages which then forces them to have to tab-key or click to get to the first textbox on that page. Not a huge deal but I am trying to make the user experience as best as I can. So weird, I can't figure out if it's supposed to be like this or what?

Is there some other code I can add to make this work?? Thanks for any ideas.

 

[Jaafar Tribak]

This should put the focus on the TextBox whose TabIndex is 0 for each Page

Private Sub MultiPage1_Change()

    GetTextBoxByTabIndex(Me.MultiPage1.SelectedItem, 0).SetFocus

End Sub

Private Function GetTextBoxByTabIndex(ByVal ControlParent As Object, ByVal TabIndex As Long) As Control

    Dim oCtrl As Control
    
    For Each oCtrl In ControlParent.Controls
        If TypeOf oCtrl Is MsForms.TextBox Then
            If oCtrl.TabIndex = TabIndex Then
                Set GetTextBoxByTabIndex = oCtrl
                Exit For
            End If
        End If
    Next oCtrl

End Function

 

[leopardhawk]

@Jaafar Tribak Thank you so much! Works perfectly...