Faneblad synlig ikke synlig

Her er et eksempel på en indstilling på en control styrer hvilke faner der er synlige:

Sub LOBSelect()

Select Case Me.LOB
Case 1 'Property
    Me.Parent.TvipsTab.Pages(3).Visible = True
    Me.Parent.TvipsTab.Pages(4).Visible = False
    Me.Parent.TvipsTab.Pages(5).Visible = False
    Me.Parent.TvipsTab.Pages(6).Visible = False
    Me.Parent.TvipsTab.Pages(7).Visible = False
    Me.Parent.TvipsTab.Pages(8).Visible = False

Case 2 'Liability
    Me.Parent.TvipsTab.Pages(3).Visible = False
    Me.Parent.TvipsTab.Pages(4).Visible = True
    Me.Parent.TvipsTab.Pages(5).Visible = False
    Me.Parent.TvipsTab.Pages(6).Visible = False
    Me.Parent.TvipsTab.Pages(7).Visible = False
    Me.Parent.TvipsTab.Pages(8).Visible = False
Case 3 'Financial
    Me.Parent.TvipsTab.Pages(3).Visible = False
    Me.Parent.TvipsTab.Pages(4).Visible = False
    Me.Parent.TvipsTab.Pages(5).Visible = True
    Me.Parent.TvipsTab.Pages(6).Visible = False
    Me.Parent.TvipsTab.Pages(7).Visible = False
    Me.Parent.TvipsTab.Pages(8).Visible = False
Case 4 'D&O
    Me.Parent.TvipsTab.Pages(3).Visible = False
    Me.Parent.TvipsTab.Pages(4).Visible = False
    Me.Parent.TvipsTab.Pages(5).Visible = False
    Me.Parent.TvipsTab.Pages(6).Visible = True
    Me.Parent.TvipsTab.Pages(7).Visible = False
    Me.Parent.TvipsTab.Pages(8).Visible = False
Case 5 'Marine Cargo
    Me.Parent.TvipsTab.Pages(3).Visible = False
    Me.Parent.TvipsTab.Pages(4).Visible = False
    Me.Parent.TvipsTab.Pages(5).Visible = False
    Me.Parent.TvipsTab.Pages(6).Visible = False
    Me.Parent.TvipsTab.Pages(7).Visible = True
    Me.Parent.TvipsTab.Pages(8).Visible = False
Case 6 'Motor
    Me.Parent.TvipsTab.Pages(3).Visible = False
    Me.Parent.TvipsTab.Pages(4).Visible = False
    Me.Parent.TvipsTab.Pages(5).Visible = False
    Me.Parent.TvipsTab.Pages(6).Visible = False
    Me.Parent.TvipsTab.Pages(7).Visible = False
    Me.Parent.TvipsTab.Pages(8).Visible = True
End Select


End Sub

Alle er subforms til en main form.

hnteknik > jdin kode er fin nok, men jeg vil mene at du kan koge den ned til

Sub LOBSelect()
    Select Case Me.LOB
    Case 1    'Property
        Call Vis(3)
    Case 2    'Liability
        Call Vis(4)
    Case 3    'Financial
        Call Vis(5)
    Case 4    'D&O
        Call Vis(6)
    Case 5    'Marine Cargo
        Call Vis(7)
    Case 6    'Motor
        Call Vis(8)
    End Select

End Sub

Sub Vis(Nr As Integer)
    Dim I As Integer
    For I = 3 To 8
        Me.Parent.TvipsTab.Pages(I).Visible = False
    Next
    Me.Parent.TvipsTab.Pages(Nr).Visible = True
End Sub

Det er da korrekt, men det var blot et hurtigt princip ;-)
Men tak for tippet.

Tak for indlæg skal lige se på det hvor er denne control placeres under hændelser jeg prøver og vender tilbage