Turn on or off Menu Bar

[Rob]

Hi,
I have an application that someone else has written in Access 2000 and the
following line is triggered by clicking a button on a form, what I would
like to happen is that the default Menu Bar is turned ON if it's not shown
and turned OFF if it is shown. I've tried some code similar to .acToolbarNo
= Not .actoolbarYes but to no avail.

Any help most welcome. Rob

Function RestoreMenuBar()
DoCmd.ShowToolBar "Menu Bar", acToolbarYes
End Function

 

[Graham Mandeno]

Hi Rob

Try this:
If CommandBars("Menu Bar").Visible Then
DoCmd.ShowToolbar "Menu Bar", acToolBarNo
Else
DoCmd.ShowToolbar "Menu Bar", acToolBarYes
End If

Note that the visibility of most command bars can be altered by changing the
Visible property, but this is not the case for the application menu bar,
otherwise you could say:
CommandBars("Menu Bar").Visible = Not CommandBars("Menu Bar").Visible

 

[Rob]

Thank you Graham, worked a treat. Rob

Hi Rob

Try this:
If CommandBars("Menu Bar").Visible Then
DoCmd.ShowToolbar "Menu Bar", acToolBarNo
Else
DoCmd.ShowToolbar "Menu Bar", acToolBarYes
End If

Note that the visibility of most command bars can be altered by changing
the Visible property, but this is not the case for the application menu
bar, otherwise you could say:
CommandBars("Menu Bar").Visible = Not CommandBars("Menu Bar").Visible
--
Good Luck!

Graham Mandeno [Access MVP]
Auckland, New Zealand

Hi,
I have an application that someone else has written in Access 2000 and
the
following line is triggered by clicking a button on a form, what I would
like to happen is that the default Menu Bar is turned ON if it's not
shown
and turned OFF if it is shown. I've tried some code similar to
.acToolbarNo
= Not .actoolbarYes but to no avail.

Any help most welcome. Rob

Function RestoreMenuBar()
DoCmd.ShowToolBar "Menu Bar", acToolbarYes
End Function