1. Open the sample database, Northwind.mdb, and on the View menu, point to Toolbars, and click Customize.
2. In the Customize dialog box, on the Toolbars tab, click New.
3. In the New Toolbar dialog box, type MyCustomShortCut in the Toolbar Name box. Click OK.
   
   NOTE: A new toolbar appears in the Customize dialog box.
4. In the Customize dialog box, on the Toolbars tab, click Properties.
5. In the Toolbar Properties dialog box, make sure MyCustomShortcut is selected in the Selected Toolbar list. In the Type list, click PopUp. Click OK on the informational message displayed.
6. Click Close in the Toolbar Properties dialog box. Click Close in the Customize dialog box.
7. Create a module and type the following line in the Declarations section if it is not already there:

   Option Explicit
   					

8. Type the following procedure in the module:

   Function RefShortcut()
      Dim cb as CommandBar
      Set cb = CommandBars("MyCustomShortcut")
      Msgbox cb.Name
   End Function
   					

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

   ?RefShortcut()
   					

Back to the top

Steps to Reproduce Behavior

1. Create a module and type the following line in the Declarations section if it is not already there:

   Option Explicit
   					

2. Type the following procedure in the module:

   Function Test()
      Dim cb as CommandBar
      Set cb = CommandBars("Shortcut Menus")
      Msgbox cb.Name
   End Function
   					

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

   ?Test()
   						

   Note that you receive the following error message:
   Run-time error '5': Invalid procedure call or argument

Back to the top