Combox box to control Tab control pages

[coucar3456]

All,

Is it possible for my combo box which has multiple named values starting with Equip-A, Equip-B, Equip-C..etc to navigate directly to my tab control page 1, 2, and 3..etc. The combo box is on the same form as the tab control pages.

Combo box value Equip-A would navigate directly to Tab Control page 1
Combo box value Equip-B would navigate directly to Tab Control page 2
Combo box value Equip-C would navigate directly to Tab Control page 3

Thanks
Coucar

 

[Domenic]

Place the following code in the userform code module...

[COLOR=darkblue]Option[/COLOR] [COLOR=darkblue]Explicit[/COLOR]

[COLOR=darkblue]Private[/COLOR] [COLOR=darkblue]Sub[/COLOR] ComboBox1_Change()
    [COLOR=darkblue]Dim[/COLOR] sEquip [COLOR=darkblue]As[/COLOR] [COLOR=darkblue]String[/COLOR]
    [COLOR=darkblue]Dim[/COLOR] iIndex [COLOR=darkblue]As[/COLOR] [COLOR=darkblue]Integer[/COLOR]
    [COLOR=darkblue]With[/COLOR] Me.ComboBox1
        sEquip = .Value
        [COLOR=darkblue]If[/COLOR] Len(sEquip) > 0 [COLOR=darkblue]Then[/COLOR]
            [COLOR=darkblue]If[/COLOR] [COLOR=darkblue]Not[/COLOR] IsError(Application.Match(sEquip, .List, 0)) [COLOR=darkblue]Then[/COLOR]
                [COLOR=darkblue]Select[/COLOR] [COLOR=darkblue]Case[/COLOR] sEquip
                    [COLOR=darkblue]Case[/COLOR] "Equip-A"
                        iIndex = 0 [COLOR=#008000]'page 1[/COLOR]
                    [COLOR=darkblue]Case[/COLOR] "Equip-B"
                        iIndex = 1 [COLOR=#008000]'page 2[/COLOR]
                    [COLOR=darkblue]Case[/COLOR] "Equip-C"
                        iIndex = 2 [COLOR=#008000]'page 3[/COLOR]
                [COLOR=darkblue]End[/COLOR] [COLOR=darkblue]Select[/COLOR]
                Me.TabStrip1.SetFocus
                Me.TabStrip1.Value = iIndex
            [COLOR=darkblue]End[/COLOR] [COLOR=darkblue]If[/COLOR]
        [COLOR=darkblue]End[/COLOR] [COLOR=darkblue]If[/COLOR]
    [COLOR=darkblue]End[/COLOR] [COLOR=darkblue]With[/COLOR]
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]Sub[/COLOR]

Actually, if the list in your combobox and tabstrip control are in the same corresponding order, the following would suffice...

[COLOR=darkblue]Private[/COLOR] [COLOR=darkblue]Sub[/COLOR] ComboBox1_Change()
    [COLOR=darkblue]Dim[/COLOR] sEquip [COLOR=darkblue]As[/COLOR] [COLOR=darkblue]String[/COLOR]
    [COLOR=darkblue]With[/COLOR] Me.ComboBox1
        sEquip = .Value
        [COLOR=darkblue]If[/COLOR] Len(sEquip) > 0 [COLOR=darkblue]Then[/COLOR]
            [COLOR=darkblue]If[/COLOR] [COLOR=darkblue]Not[/COLOR] IsError(Application.Match(sEquip, .List, 0)) [COLOR=darkblue]Then[/COLOR]
                Me.TabStrip1.SetFocus
                Me.TabStrip1.Value = .ListIndex
            [COLOR=darkblue]End[/COLOR] [COLOR=darkblue]If[/COLOR]
        [COLOR=darkblue]End[/COLOR] [COLOR=darkblue]If[/COLOR]
    [COLOR=darkblue]End[/COLOR] [COLOR=darkblue]With[/COLOR]
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]Sub[/COLOR]

Change the name of the combobox and tabstrip, accordingly. And, of course, if you meant that you had a multipage control and not a tabstrip control, replace TabStrip1 with MultiPage1 (or whatever you've name it).

Hope this helps!

 

[Domenic]

I think we would need to make a couple of changes. First, the MatchEntry property of the combobox should be set to...

2-fmMatchEntryNone

Secondly, Select Case should be case-insensitive...

Private Sub ComboBox1_Change()
    Dim sEquip As String
    Dim iIndex As Integer
    With Me.ComboBox1
        sEquip = .Value
        If Len(sEquip) > 0 Then
            If Not IsError(Application.Match(sEquip, .List, 0)) Then
                [COLOR=#ff0000]Select Case UCase(sEquip)
                    Case "EQUIP-A"
                        iIndex = 0
                    Case "EQUIP-B"
                        iIndex = 1
                    Case "EQUIP-C"
                        iIndex = 2
                End Select[/COLOR]
                Me.TabStrip1.SetFocus
                Me.TabStrip1.Value = iIndex
            End If
        End If
    End With
End Sub

Now, when a selection or matching entry is made from the combobox, focus will shift to the TabStrip, and the corresponding tab will be activated.

 

[coucar3456]

Thanks for the assistance.