ACC2000: Access Automation Causes Run-Time Error -2147467259

ID: Q209157

The information in this article applies to:

Microsoft Access 2000

SYMPTOMS

While opening Microsoft Access and a form through Automation and setting focus to the the form custom menu bar, the following Microsoft Visual Basic error message occurs:

Run-time error '-2147467259 (80004005)':
Method 'SetFocus' of object 'CommandBarPopup' failed

CAUSE

SetFocus fails because the control, in this case the menu bar, is not visible in the user interface at the time the Automation code executes.

RESOLUTION

Microsoft provides programming examples for illustration only, without warranty either expressed or implied, including, but not limited to, the implied warranties of merchantability and/or fitness for a particular purpose. This article assumes that you are familiar with the programming language being demonstrated and the tools used to create and debug procedures. Microsoft support professionals can help explain the functionality of a particular procedure, but they will not modify these examples to provide added functionality or construct procedures to meet your specific needs. If you have limited programming experience, you may want to contact a Microsoft Certified Solution Provider or the Microsoft fee-based consulting line at (800) 936-5200. For more information about Microsoft Certified Solution Providers, please see the following page on the World Wide Web:

http://www.microsoft.com/mcsp/

For more information about the support options available from Microsoft, please see the following page on the World Wide Web:

http://www.microsoft.com/support/supportnet/overview/overview.asp

To work around this behavior, use either of the following methods:

Method 1: Trap for the Error

Enter a function similar to the following:


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

Set focus using code behind the form instead of the Automation code. For example, set the form TimerInterval to 1000 (the value assigned may vary). Then add the following code to the form:


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

MORE INFORMATION

This run-time error occurs only while using Automation. The occurrence varies based on whether or not Access is idle after the form opens, but before the Automation code attempts to set focus to a control. Variations in CPU speeds, program timing, and operating systems may cause this behavior to occur on some computers, but not others.

Steps to Reproduce Behavior

Start Access.

Create Db1.mdb in the C:\ folder.

Click Macros on the Database window and then click New.

Add the AddMenu action with the following arguments:


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

Close the macro and save it as Macro1.

Open another new macro.

On the View menu, click Macro Names.

Type the Macro Name Message, and then add the MsgBox action with the following arguments:


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

Close the macro and save it as Macro2.

In the Database window, click Forms, click New, and with Design View selected, click OK.

If the Property window is not already open, click Properties on the View menu.

On the Other tab in the Property window, scroll to the MenuBar property.

Assign Macro1 to the MenuBar.

Close the form and save it as Form1.

On the File menu, click Close, and on the File menu, click New Database to create another new database.

Create Db2.mdb in the C:\ folder.

In Db2.mdb, click Modules in the Database window, and then click New.

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

Click Compile Db2 on the Debug menu and then click Save Db2 on the File menu, saving the module as Module1.

Click anywhere within the function AutomationTest() and then click Run Sub/UserForm on the Run menu.

NOTE: Once the second instance of Access is generated by the Automation code, click Microsoft Visual Basic on the taskbar to see the error message described in the Symptoms section.

REFERENCES

For more information about Automation, in the Visual Basic Editor, click Microsoft Visual Basic Help on the Help menu, type "understanding Automation" in the Office Assistant or the Answer Wizard, and then click Search to view the topic.

Additional query words: prb

Keywords : kbdta
Version : WINDOWS:2000
Platform : WINDOWS
Issue type : kbprb