Hide/Unhide Tabs

[wayniac]

I have a database built on 4 tabs, but inside one of those tabs I would like another group of tabs. The problem is that my second group of tabs are being displayed on ALL of the main 4 tabs and not the single tab that I would like it to. What I am asking is if anyone knows of a code that would only make my second group of tabs visible when only 1 of the 4 main tabs is clicked, and when the other 3 main tabs are clicked, the second group of tabs are NOT visible.

Here is a more visual look at the database.

http://www.geocities.com/database4242/database3.JPG

Thank you

[puppydogbuddy]

I have a database built on 4 tabs, but inside one of those tabs I would like another group of tabs. The problem is that my second group of tabs are being displayed on ALL of the main 4 tabs and not the single tab that I would like it to. What I am asking is if anyone knows of a code that would only make my second group of tabs visible when only 1 of the 4 main tabs is clicked, and when the other 3 main tabs are clicked, the second group of tabs are NOT visible.

Here is a more visual look at the database.

http://www.geocities.com/database4242/database3.JPG

Thank you

Try invoking your code on the change event of the tab control on the main form, something like this:
 
Private Sub TabCtl1_Change()
On Error GoTo Error_Routine
 
'commits any changes
If Me.Dirty Then Me.Dirty = False
Select Case Me.TabCtl1.Value
    Case Is = 0  
        'run code for page1<Me.Page1.PageIndex = 0>
        TabCtl1.Pages.Item(0).Visible = True
    Case Is = 1
       'run code for page2<Me.Page2.PageIndex = 1>
        TabCtl1.Pages.Item(1).Visible = True
        TabCtl1.Pages.Item(1).SetFocus
    Case Is = 2
       'run code for page3<Me.Page3.PageIndex = 2>
        TabCtl1.Pages.Item(2).Visible = False
End Select
Exit_Continue:
        Exit Sub
Error_Routine:
        MsgBox "Error# " & Err.Number & " " & Err.Description
        Resume Exit_Continue
 
End Sub

[JKing]

Give this a try:

Private Sub tabMain_Change()
    If Me.tabMain.Value = 2 Then
        Me.tabSub.Visible = False
    Else
        Me.tabSub.Visible = True
    End If
End Sub
 

Alternatively have you thought about placing the second tab control in a subform? The subform would be bound to a single page.

[JKing]

Try invoking your code on the change event of the tab control on the main form, something like this:
 
Private Sub TabCtl1_Change()
On Error GoTo Error_Routine
 
'commits any changes
If Me.Dirty Then Me.Dirty = False
Select Case Me.TabCtl1.Value
    Case Is = 0  
        'run code for page1<Me.Page1.PageIndex = 0>
        TabCtl1.Pages.Item(0).Visible = True
    Case Is = 1
       'run code for page2<Me.Page2.PageIndex = 1>
        TabCtl1.Pages.Item(1).Visible = True
        TabCtl1.Pages.Item(1).SetFocus
    Case Is = 2
       'run code for page3<Me.Page3.PageIndex = 2>
        TabCtl1.Pages.Item(2).Visible = False
End Select
Exit_Continue:
        Exit Sub
Error_Routine:
        MsgBox "Error# " & Err.Number & " " & Err.Description
        Resume Exit_Continue
 
End Sub

Didn't mean to step on your toes there puppydogbuddy. Must have been mid post while you posted.

[puppydogbuddy]

Didn't mean to step on your toes there puppydogbuddy. Must have been mid post while you posted.

LOL!! Ouch...........

[wayniac]

Thank you, it works excellent now. Could not ask for it to look any better :)