Automation error---[RESOLVED]

[mik706]

I am trying to call a procedure in a dll i have created, there are no errors i can see in the code but at runtime the error:

Runtime error '-2147024770 (8007007e)'
Automation error
The specified module could not be found.

is generated. WHY?

APP Code:

Private WithEvents mobjThread As ThreadProxy.DataSearches
 
Private Sub cmdNew_Click()
    Dim DBPath As String
    
'On Error GoTo ErrHandler
    
    DBPath = "test"
    
    mobjThread.NewSearch DBPath, 1, True, 20, True
 
    Exit Sub
'ErrHandler:
'    MsgBox "Error"
End Sub

Dll Code:

Public Sub NewSearch(ByVal sDBPath As String, ByVal sInt1 As Integer, ByVal sBool1 As Boolean, ByVal sInt2 As Integer, ByVal sBool2 As Boolean)
 'do stuff
End Sub

[randem]

mik706


Did you register the dll?

[mik706]

Yes.

[randem]

mik706


How do you setup you code to call the dll mobjThread? Sets, include it in you project etc...

[mik706]

i set the relationship on form load

Private Sub Form_Load()
    Set mobjThread = New ThreadProxy.DataSearches
    'rest of form load stuff
End Sub

[randem]

mik706

You referenced the dll in your project?

[mik706]

Yes

[Hyperspaced]

What operating system are you using to create the executable and setup package ?

I was getting an automation error because one of my controls could not be registered correctly when creating the setup from WinXP.

Try building from Win98SE (clean version). It might work.

--hyperspaced

[mik706]

I am using Win2000, no errors have been reported, ether when i built the dll or registered it.

[mik706]

Sorry randem and hyperspaced, as hyperspaced suggested the dll hadn’t registered properly even though i could view the objects. I deleted the original and built the file again and all is now well. Thanks for the help.