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



zimmer9Asked:
Who is Participating?
 
Patrick MatthewsCommented:
Then it would appear that your user does not have that component installed.

(Is it part of .Net Framework or something?)
0
 
peter57rCommented:
We need to see the code around the error line.
0
 
Patrick MatthewsCommented:
On that other computer, when you look up the references, are any listed as missing?

What line of code does the debugger jump to?
0
 
kraivenCommented:
It looks like the other user has a missing Office library component. You may need to get hold of the required Office interop.
0
 
zimmer9Author Commented:
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
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.