Hi Guys,
I'm trying to design the main menu using labels for the main options and a tab control to group sub items.
The tab control is called tabPages.
On the tab control I have 3 pages each with command buttons.
When I click on the main item "Admin Tools" I want the tab control to only display the items on the pgAdminTools page.
I'm using the following vba code
Private Sub lblAdminTools_Click()
'Set BorderStyles
Me.lblAdminTools.BorderStyle = 1
Me.lblCustomers.BorderStyle = Transparent
Me.lblTransactions.BorderStyle = Transparent
Me.lblInventory.BorderStyle = Transparent
Me.lblReports.BorderStyle = Transparent
Me.lblAbout.BorderStyle = Transparent
Me.lblExitAccess.BorderStyle = Transparent
Me.txtFocus.SetFocus 'Move focus to txtbox
Dim ctlCurr As Control
'Check each control to see if Tag matches
For Each ctlCurr In Me.Controls
If ctlCurr.Tag = "Transactions" Or ctlCurr.Tag = "Reports" Then
ctlCurr.Visible = False
ElseIf ctlCurr.Tag = "AdminUtils" Then
ctlCurr.Visible = True
End If
Next ctlCurr
End Sub
When I clic on the Admin Tools item tho, it gives me a blank control.
Any help would be appreciated.