ACC97: Errors in "GetObject Function" Example in Help

• Microsoft Access 97

SYMPTOMS

Moderate: Requires basic macro, coding, and interoperability skills.

If you copy the example from the "GetObject Function" Help topic in Microsoft Access 97 and paste it into a module, you may receive the following error message when you compile your code:

   Compile error:

   Expected: list separator or )

CAUSE

This error is caused by missing commas in the Declare statement for the SendMessage function. A comma is missing after the ByVal wMsg As Long argument and after the ByVal wParam As Long argument for this function.

NOTE: If you insert the missing commas and try to compile your code, you receive another error:

   Compile error:

   Syntax error

   Set the object variable to reference the file you want to see.

RESOLUTION

Modify the following portions of the code in the Help example to include the two missing commas and the missing apostrophe.

Add the Two Missing Commas

Add a comma in the SendMessage Function after the ByVal wMsg As Long argument and after the ByVal wParam As Long argument as follows:

   Declare Function SendMessage Lib "user32" Alias _
   "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, _
                   ByVal wParam As Long, _
                   ByVal lParam As Long) As Long

Add an Apostrophe for the Comment

Add an apostrophe (') to remark the "Set the object variable to reference the file you want to see" comment as follows:

   ' Set the object variable to reference the file you want to see.
      Set MyXL = GetObject("c:\vb4\MYTEST.XLS")

Keywords          : AutoGnrl DcmHlp kberrmsg kbole PgmApi SynGnrl IntpOleA
Version           : 97
Platform          : WINDOWS
Hardware          : x86
Issue type        : kbprb
Solution Type     : Info_Provided