ACC2000: Activating a Commandbar Drop-Down List Causes an Abnormal Program Termination

When you activate a commandbar drop-down list, you may receive one of the following error messages:

To resolve this problem, obtain Microsoft Office 2000 Service Release 1/1a (SR-1/SR-1a).

To obtain SR-1/SR-1a, click the article number below to view the article in the Microsoft Knowledge Base:

Microsoft has confirmed that this is a problem in Access. This problem was corrected in Microsoft Office 2000 SR-1/SR-1a.

Steps to Reproduce Behavior

1. Create a new database.
2. Create a new form and save it as frmCommand.
3. Open the frmCommand form in Design view.
4. Create a command button in the form footer, and then set its properties as follows:
   Name: cmdDropdown
   Caption: Open Command Bar Dropdown
   OnClick: [Event Procedure]
5. Set the OnClick property of the command button to the following event procedure:

   Private Sub cmdDropdown_Click()
      Dim cmdBar As CommandBar
      Dim cmdControl As CommandBarControl
   
      Set cmdBar = CommandBars("Test")
   
      For Each cmdControl In cmdBar.Controls
         If cmdControl.Type = 4 Then
            cmdControl.SetFocus
            SendKeys "{Down}", True
         End If
      Next cmdControl
   End Sub
   					

6. In the Visual Basic Editor, click References on the Tools menu, and make sure the following reference is selected:
   Microsoft Office 9.0 Object Library
   NOTE: You may have to scroll through the references to find it.
   
   This references the CommandBars object and its properties.
7. Set the OnOpen property of the form to the following event procedure:

   Private Sub Form_Load(Cancel As Integer)
      Set focusBar = CommandBars.Add(Name:="Test")
      With CommandBars("Test")
         .Visible = True
         .Position = msoBarTop
      End With
   
      Set testComboBox = CommandBars("Test").Controls. _
         Add(Type:=msoControlComboBox, Id:=1)
   
      With testComboBox
        .AddItem "First Item", 1
        .AddItem "Second Item", 2
      End With
   End Sub
   					

8. Set the OnUnload property of the form to the following event procedure:

   Private Sub Form_Unload(Cancel As Integer)
      For Each cmdBar In CommandBars
         If cmdBar.Name = "Test" Then
            cmdBar.Delete
         End If
      Next cmdBar
   End Sub
   					

9. Run the form and click the button. Note that you encounter the symptoms described in the Symptoms section of this article.
   
   NOTE: In Windows NT, it may take a few seconds to see the error message.