ACC2000: Only One Menu Bar Can Be Visible at a Time Using Code

MORE INFORMATION

Steps to Reproduce Behavior

1. Start Microsoft Access and open the sample database Northwind.mdb.
2. Create a new module.
3. On the Tools menu, click References.
4. In the References dialog box, click Microsoft Office 9.0 Object Library, and then click OK. If the reference is not listed in the Available References box, click the Browse button and search for the file, Mso9.dll.
5. Type the following line in the Declarations section of your module:

   Public strCurrentMenuName As String
   					

6. Type the following procedure:

   '*******************************************************************
   
   ' This procedure creates a new menu bar and makes it visible.
   
   '*******************************************************************
   
   Sub CreateMenuBar(strNewMenuName as String)
   Dim cmdNewMenu As CommandBar
   
   ' Set Global strCurrentMenuName to existing menu for use later when
   ' toggling.
   strCurrentMenuName = CommandBars.ActiveMenuBar.Name
   
   ' Create a new menu bar.
   Set cmdNewMenu = Application.CommandBars.Add(strNewMenuName, _
      msoBarFloating, True, False)
   With cmdNewMenu
     ' Set Protection property to no protection so users can customize
     ' it.
     .Protection = msoBarNoProtection
     ' Show new menu.
     .Visible = True
   End With
   End Sub
   					

7. To test this function, type the following line in the Immediate window, and then press ENTER:

   CreateMenuBar "ExampleMenu"
   						

   When you minimize the Visual Basic Editor you that see a new floating menu bar is displayed on the screen, and that the original menu bar is hidden from view.
   
   NOTE: All command bars require a unique name. If you use the name of an existing command bar in the strNewMenuName argument of this procedure, you receive the following error message:
   Run-time error '5':
   Invalid procedure call or argument
8. To restore the original menu bar to the screen, type the following line in the Immediate window, and then press ENTER:

   CommandBars(strCurrentMenuName).Visible = True
   						

   Note that the original menu bar reappears, and your custom menu bar disappears.