How to tell if a Query Exists

[catbeasy]

Was wanting to get some help on how to use code to test if a query exists..Any suggestions?

Thanks..

 

[steve-oc]

This should work

dim qdf as DAO.querydef

' loop thru all querydefs in db
for each qdf in currentdb.querydefs
[INDENT]debug.print qdf.name[/INDENT]
[INDENT]if qdf.name = "your-query-name" then[/INDENT]
[INDENT][INDENT]' you've found it![/INDENT][/INDENT]
[INDENT]end if[/INDENT]
loop

HTH

 

[Banana]

A variant that doesn't require looping:

Using query to get object names.

 

[raskew]

And modifying the first example from Banana's link:

SELECT MsysObjects.Name
FROM MsysObjects
WHERE (((MsysObjects.Name)=[COLOR="Red"][Query Name][/COLOR]) AND ((Left$([Name],1))<>"~") AND ((MsysObjects.Type)=5))
ORDER BY MsysObjects.Name;

Will prompt you for the query name you are looking for.

Bob