Can't find the DLL

[lars7]

Hi,

I have a big problem with a form. I'm not sure that the problem is but this is what happened.

I had a module that built a query if it did not exist but then I found a better way to do it so I delete the old code and replaced with the new and deleted the module. That was ok in my office 2003 computer but when I changed to windows xp Pro like the other users so we would be on the same version now I keep getting a message that it can't find the DLL or just crashing.

The module I used was this:

Public Function QueryExists(QueryName As String) As Boolean
' Checks for the existence of a query (named as QueryName)
' and returns true if query exists.
Dim db As DAO.Database
Dim qdf As DAO.QueryDef
QueryExists = False
Set db = CurrentDb
For Each qdf In db.QueryDefs
If qdf.Name = QueryName Then
QueryExists = True
Exit Function
End If
Next qdf
End Function

If this is not the problem then maybe a function I got here might need a reference?:

Public Function AllSum()
Dim ctl As Control, hldSum

For Each ctl In Me.Controls
If ctl.Tag = "?" Then
hldSum = hldSum + Nz(ctl)
End If
Next

AllSum = hldSum

End Function.

It worked well in my Office 2003 version but now It is so irratic opening one minute and then just crashing. Can anyone shed any light on this.

 

[lars7]

sorry the Message is

"Error in loading DLL

 

[PHV]

Double check the references (menu Tools -> References ...) and compiles the DB (menu Debug -> Compile)

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[lars7]

Hi Ph,
I can't check until Monday now but I did notice at home here on my ofice 2003 I have a reference to Microsoft access 11 library but on the xp at work it was 10 could this have anything to do with it.