When I try and run this function in the Immediate Window I get the Compile Error: User Defined type not defined. What did I miss
Thanks


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

Hi ste4en,

This is because you are missing the Data Access Objects reference in your project.
Go to Project-->References and add Microsoft DAO 3.51 Object Library.

Cheers,
   nalla




nalaka hewage