top menu issues

[Mark Andrews]

I sometimes use this code:
Dim i As Integer
Dim cbarMenu As CommandBar

For i = 1 To CommandBars.Count
CommandBars(i).Enabled = False
Next i

and then just enable the commandbars for my custom menus and toolbars.
Set cbarMenu = CommandBars("MyCustomMenu")
cbarMenu.Enabled = True

Works fine however it sometimes tends to make it so if you just open
Access by itself that the main top menu is not available.
It's very annoying and wondering if there is a good way to get the main top
menu to come back forever?

I can run this code:
Public Function showallmenus()
'Needed once in a while to get the menus back
Dim i As Integer
Dim cbarMenu As CommandBar

For i = 1 To CommandBars.Count
CommandBars(i).Enabled = True
Next i
End Function

to get menus back but they never stay back if I open Access again.

Help, Help, Help,
Thanks in advance,
Mark

PS: Access2003

 

[Mark Andrews]

I think I found the answer myself:
just move the top menu and move it back to the top, then Access remembers
correctly.
http://www.wiredbox.net/Forum/Thread295876_Lost_Menu_bar.aspx