ACC2000: Access Automation Causes Run-Time Error -2147467259

Method 1: Trap for the Error

Function AutomationTest()
   On Error GoTo AutomationErr

   <Automation code goes here>

AutomationExit:
   Exit Function

AutomationErr:
   If Err.Number = -2147467259 Then
      Resume    'until control is visible.
   Else
      <handle any other errors>
   End If
End Function
				

Method 2: Insert a Time Delay

Private Sub Form_Timer()
   Me.TimerInterval = 0
   Application.CommandBars.ActiveMenuBar.Controls(1).SetFocus
End Sub
				

Steps to Reproduce Behavior

1. Start Access.
2. Create Db1.mdb in the C:\ folder.
3. Click Macros on the Database window and then click New.
4. Add the AddMenu action with the following arguments:

             Menu Name: Message
       Menu Macro Name: Macro2
       Status Bar Text: <leave blank>
   					

5. Close the macro and save it as Macro1.
6. Open another new macro.
7. On the View menu, click Macro Names.
8. Type the Macro Name Message, and then add the MsgBox action with the following arguments:

       Message: Hello
          Beep: Yes
          Type: None
         Title: <leave blank>
   					

9. Close the macro and save it as Macro2.
10. In the Database window, click Forms, click New, and with Design View selected, click OK.
11. If the Property window is not already open, click Properties on the View menu.
12. On the Other tab in the Property window, scroll to the MenuBar property.
13. Assign Macro1 to the MenuBar.
14. Close the form and save it as Form1.
15. On the File menu, click Close, and on the File menu, click New Database to create another new database.
16. Create Db2.mdb in the C:\ folder.
17. In Db2.mdb, click Modules in the Database window, and then click New.
18. Add the following code:

    Option Compare Database
    Option Explicit
    
    Dim objAccess As Access.Application
    
    Function AutomationTest()
    
       Set objAccess = CreateObject("Access.Application")
    
       objAccess.Visible = True
       objAccess.OpenCurrentDatabase ("C:\Db1.mdb")
       objAccess.DoCmd.OpenForm "Form1"
       objAccess.CommandBars.ActiveMenuBar.Controls(1).SetFocus
    
    End Function
    					

19. Click Compile Db2 on the Debug menu and then click Save Db2 on the File menu, saving the module as Module1.
20. Click anywhere within the function AutomationTest() and then click Run Sub/UserForm on the Run menu.