I've been trying to use the example on p. 253 of Beginning Access 2000 VBA on a db I'm working on and it gives me a user-type not defined error message. Has anyone had the same problem? and how did you solve it? Thank you much!

This is the code:

Function MakeQueryDef(strSQL as String) As Boolean

Dim qdf as QueryDef

If strSQL = " " Then Exit Function

Set qdf = CurrentDB.CreateQueryDef("qryExample")
qdf.SQL = strSQL
qdf.Close
RefreshDatabaseWindow

MakeQueryDef = True

End Function

This is an old post but I'll answer in hopes of helping someone out in the future if they come across this.

The likely problem was that Access 2000 doesn't have a DAO reference assigned by default and since this is DAO code that was posted, it would be necessary to make sure to add a reference to Microsoft DAO 3.x (where x is a number like 51 or 6).

__________________
Thanks,

Bob Larson
Access MVP (2008-2010, 2011)
Free Access tutorials, samples, tools