How to hide controls (Tab control)

[Bill Neilsen]

Hi guys,

My main form has a combo box that lists the type of equipment for the particular record, eg T50, T100 and T320

The main form also has 3 tab controls, page 33, page 34 and page 35 and these tabs each have subforms for tasks on particular pieces of equipment eg T50, T100 and T320.

How can I show just the tab for the T50 when the combo box shows T50, and hide the other tabs?

And also show just the T100 tab when the combo shows T100, etc.

Thanks in advance.

[June7]

Example from my code:

Private Sub ShowTabs()
With Me
.tbxSet = TestSet(.tbxLABNUM, "Soils & Aggregate")
.pge1.Visible = True
.pge2.Visible = True
.pge3.Visible = True
.pge4.Visible = True
.pge5.Visible = True
.pge6.Visible = True
.tbxLABNUM.SetFocus

'use Val to capture characters preceeding :### which will be present if gradation test selected
If Not Val(.tbxSet) Like "*1*" Then
    .pge1.Visible = False
End If
If Not Val(.tbxSet) Like "*2*" Then
    .pge2.Visible = False
End If
If Not Val(.tbxSet) Like "*3*" And Not Val(.tbxSet) Like "*E*" Then
    .pge3.Visible = False
End If
If Not .tbxSet Like "*P*" Then
    .pge4.Visible = False
End If
If Not .tbxSet Like "*V*" Then
    .pge5.Visible = False
Else
    .pge2.Visible = False
End If
If Not .tbxSet Like "*H*" Then
    .pge6.Visible = False
End If

If .pge6.Visible Then
    .pge6.SetFocus
ElseIf .pge1.Visible Then
    .pge1.SetFocus
ElseIf .pge2.Visible Then
    .pge2.SetFocus
ElseIf .pge3.Visible Then
    .pge3.SetFocus
ElseIf .pge4.Visible Then
    .pge4.SetFocus
ElseIf .pge5.Visible Then
    .pge5.SetFocus
End If
End With
End Sub

You could try code like:
Me.pgT50.Visible = (Me.combobox = "T50")
Me.pgT100.Visible = (Me.combobox = "T100")
Me.pgT320.Visible = (Me.combobox = "T320")

Be aware that at least one page must always be visible.

[azhar2006]

It can also use the following line
After update
Dim R As String
R = Combo
Me.RecordSource = "SELECT tblName.* FROM tblName WHERE (((tblName.FieldName)='" & [Forms]![frmName]![Combo] & "')); "
Combo = R

[Bill Neilsen]

Hi guys,

I'm nearly there, the code I ended up using in the "On Current" property of the form is below.
And, it works for current records, but not for new a new record.
When I put in a new record, no changes, but if I roll out of and back into the record it works.
Is there some code I should be putting in the properties of the combo box "Type"?
Private Sub Form_Current()
If Me.Type = "2" Then
Me.Page33.Visible = True
Me.Page34.Visible = False
Me.Page54.Visible = False
End If

End Sub

Thanks guys.