SaranPriya-7954
New member
- Local time
- Yesterday, 19:19
- Joined
- Aug 13, 2021
- Messages
- 20
I am trying to activate and hide tabs but my code is not working...can someone assist?
The following is the code written:
Private Sub frmtab_Change()
Select Case Me.frmtab.Value
Case 0
For j = 0 To subTab.Pages.Count - 1
If Left(subTab.Pages(j).Name, 2) = Me("b" & Ax).Name Then
subTab.Pages(j).Visible = True
Me.SubfrmContainer.SourceObject = "subfrmProjects"
Else
'subTab.Pages(j).Visible = False
' End If
' Next j
Case 1
Me.SubfrmContainer.SourceObject = "subfrmAcronyms"
Case 2
Me.SubfrmContainer.SourceObject = "subfrmKeyRequirementsDeliverables"
Case 3
Me.SubfrmContainer.SourceObject = "subfrmObjectives"
Case 4
Me.SubfrmContainer.SourceObject = "subfrmProjectExistingSystem"
Case 5
Me.SubfrmContainer.SourceObject = "subfrmQA"
Case 6
Me.SubfrmContainer.SourceObject = "subfrm3rdPartySupplier"
Case 7
Me.SubfrmContainer.SourceObject = "subfrmStakeholders"
Case 8
Me.SubfrmContainer.SourceObject = "frmDailyItemsAndStatusType"
Case 9
Me.SubfrmContainer.SourceObject = "frmsubAssumptionsConstraints"
Me.Requery
End Select
End Sub
The following is the code written:
Private Sub frmtab_Change()
Select Case Me.frmtab.Value
Case 0
For j = 0 To subTab.Pages.Count - 1
If Left(subTab.Pages(j).Name, 2) = Me("b" & Ax).Name Then
subTab.Pages(j).Visible = True
Me.SubfrmContainer.SourceObject = "subfrmProjects"
Else
'subTab.Pages(j).Visible = False
' End If
' Next j
Case 1
Me.SubfrmContainer.SourceObject = "subfrmAcronyms"
Case 2
Me.SubfrmContainer.SourceObject = "subfrmKeyRequirementsDeliverables"
Case 3
Me.SubfrmContainer.SourceObject = "subfrmObjectives"
Case 4
Me.SubfrmContainer.SourceObject = "subfrmProjectExistingSystem"
Case 5
Me.SubfrmContainer.SourceObject = "subfrmQA"
Case 6
Me.SubfrmContainer.SourceObject = "subfrm3rdPartySupplier"
Case 7
Me.SubfrmContainer.SourceObject = "subfrmStakeholders"
Case 8
Me.SubfrmContainer.SourceObject = "frmDailyItemsAndStatusType"
Case 9
Me.SubfrmContainer.SourceObject = "frmsubAssumptionsConstraints"
Me.Requery
End Select
End Sub