Conditional Visibility - based on sub-forms

[trevor40]

Use a Tab control...
I use this to check the tab page and act on that.
add pages in the select case and do what you need

Private Sub main_menu_tab_Change()


With Me(contabs)
Select Case .Pages(.Value).Caption
Case "S&ystem"
Me.Compny_Details.Visible = False
Me.Setup_Options.Visible = False
t = InputBox("Enter Password", "PW Check", vbOKCancel)
If t = 1234 Then
Me.Compny_Details.Visible = True
Me.Setup_Options.Visible = True
Me.Setup_Options.SetFocus
Else
Screen.PreviousControl.SetFocus
End If
Case Else
End Select
End With
End Sub

[twildt]

Figured it out with a little help from another who is more advanced than me

My code:

Option Compare Database

Private Sub Form_Current()
'Hide textbox(tbox_total) on main form
Forms![Main Menu]!tbox_total.Visible = False
End Sub

Private Sub NavigationButton7_Click()
'Hide textbox(tbox_total) on main form
Forms![Main Menu]!tbox_total.Visible = False
End Sub

Private Sub NavigationButton9_Click()
'Hide textbox(tbox_total) on main form
Forms![Main Menu]!tbox_total.Visible = False
End Sub

Private Sub NavigationButton11_Click()
'Show textbox(tbox_total) on main form
Forms![Main Menu]!tbox_total.Visible = True
End Sub