Checking for query from code on new query

[Tony Vrolyk]

I am using the following code to check the existance of a query. However it
seems that it only returns true on a new query after closing the db and
reopening? Is there a way around this?


Public Function fDoesQueryExist(strQueryName As String) As Boolean
Dim db As Database
Dim qdf As QueryDef
Set db = DBEngine(0)(0)
fDoesQueryExist = False
For Each qdf In db.QueryDefs
If qdf.Name = strQueryName Then fDoesQueryExist = True
Next qdf
Set db = Nothing
End Function


Thanks
Tony Vrolyk

 

[Chris Nebinger]

After the line:
Set db = DBEngine(0)(0)

Add:
db.QueryDefs.Refresh

Chris Nebinger

 

[Tony Vrolyk]

THANK YOU
THANK YOU
THANK YOU

That has been buggin the heck outa me!