Link to home
Start Free TrialLog in
Avatar of zimmer9
zimmer9Flag for United States of America

asked on

How to resolve the [Run-time error '424', Object requred] when running an Access 2003 application with an mdb type file?

I am developing an Access 2003 application using an MDB type file.

When I run the application on my PC, the application runs successfully.

When I run the application on another user's machine, I get the following error:

Run-time error '424':
Object required

And if I set a breakpoint in the Access application, I get a different run-time errror of '429'.

Do you know how I can resolve this error?

I notice the following in the Tools -> References:   Available References

Visual Basic for Applications
Microsoft Access 11.0 Object Library
OLE Automation
Microosoft DAO 3.6 Obj Library
Microsoft Active X Data Obj 2.5 Library
Microsoft Excel 11.0 Obj Library
Microsoft Office 11.0 Obj Library
Microsoft Outlook 11.0 Obj Library
PDF Creator

And in the application the following 2 dlls are used:
Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)
Private Declare Function RegOpenKeyEx Lib "advapi32.dll" _
    Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, _
    ByVal ulOptions As Long, ByVal samDesired As Long, _
    phkResult As Long) As Long



Avatar of peter57r
peter57r
Flag of United Kingdom of Great Britain and Northern Ireland image

We need to see the code around the error line.
On that other computer, when you look up the references, are any listed as missing?

What line of code does the debugger jump to?
Avatar of kraiven
kraiven

It looks like the other user has a missing Office library component. You may need to get hold of the required Office interop.
Avatar of zimmer9

ASKER

The last line that the compiler reaches is as follows:
Set msDir = CreateObject("MSDotNet.COMDirectory.Search")
this statement appears in the following Function:
----------------------------------------------------------------------------
Public Function getUSER(id As String, pswd As String)
On Error GoTo errFunct
Dim msDir
Set msDir = CreateObject("MSDotNet.COMDirectory.Search")   <-- last line before error
...
errFunct:
        If Err.Number <> 0 Then

and the Err.Number generated is 429
ASKER CERTIFIED SOLUTION
Avatar of Patrick Matthews
Patrick Matthews
Flag of United States of America image

Link to home
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Start Free Trial