Hiding the Menu Bar

[bayman]

How can I hide the Menu Bar programmatically?

Thanks in advance.

 

[ghudson]

'The below code will disable (hide) all menu bars and tool bars.
'Ensure that you have a way to enable (unhide) the menu bars
'and tool bars (transparent command button) before you hide them!

'this will disable all menu bars and tool bars
Dim i As Integer
For i = 1 To CommandBars.Count
CommandBars(i).Enabled = False
Next i

'this will enable all menu bars and tool bars
Dim i As Integer
For i = 1 To CommandBars.Count
CommandBars(i).Enabled = True
Next i

'An added bonus is the right click option is disabled if the menu bars are disabled with the above code.

'Use the 'ShowToolbar' command if you need to display a tool bar or menu bar...
DoCmd.ShowToolbar "YourToolBarNameHere", acToolbarYes

'This will hide a tool bar or menu bar when needed...
DoCmd.ShowToolbar "YourToolBarNameHere", acToolbarNo

'This will hide the Menu Bar...
DoCmd.ShowToolbar "Menu Bar", acToolbarNo

'You can also hide/unhide the database window with code...

'Hide the database window
DoCmd.SelectObject acTable, , True
DoCmd.RunCommand acCmdWindowHide

'Unhide the database window
DoCmd.SelectObject acTable, , True

'HTH

 

[bayman]

Worked great. Thanks!

 

[ppoindexter]

will this code work with access 2002??

 

[Only1Abhi]

yes, it works on 2002.
And it's better than most of the things ppl say will work.
Tried everything to get the menu bar to hide.

But this is the only 1 that works!

Put it on the "On Open" command of your start up form.

Good Luck!

Regards,
Abhi

 

[ppoindexter]

gracias mucho