ACC97: Error When You Click a Custom Command Bar Button

MORE INFORMATION

Steps to Reproduce Problem

1. Create a new database named Db1.mdb.
2. Insert a new module, and then create a reference to Microsoft Office 8.0 Object Library.
3. Type the following line in the Declarations section if it is not already there:

         Option Explicit
   					

4. Type the following procedures:

          Sub Test()
   
             Dim MBar As CommandBar
             Dim MBarItem As CommandBarControl
   
             Set MBar = CommandBars.Add(Name:="Test Bar")
             MBar.Visible = True
             Set MBarItem = MBar.Controls.Add(Type:=msoControlButton)
             With MBarItem
               .Caption = "Test"
               .Style = msoButtonCaption
               .OnAction = "=RunMe()"
             End With
   
          End Sub
   
          Function RunMe()
             MsgBox "You pressed a toolbar button!"
          End Function
   					

5. On the File menu, click Save. Type Module1 in the Save As dialog box, and then click OK.
6. To test this function, type the following line in the Debug window, and then press ENTER:

   Test

   A new menu bar should appear.
7. On the Test menu bar, click Test. You should get a message box that reads "You pressed a toolbar button!" Click OK.
8. On the File menu, click Exit.
9. Open Windows Explorer and change the name of the file to This is a long file name.mdb.
10. Open the "This is a long file name.mdb" file.
11. On the Test menu bar, click Test. You should receive the error message mentioned in the "Symptoms" section.