Check Query Exists?

[icezebra]

How would I check programmatically that a querydef already exists.

I.e. something along these lines:

If Db.QueryDefs(strQueryDef).Exist = False Then

        Set QD = Db.CreateQueryDef(strQueryDef, strSQL)

Else

..... and so on.

It's the If line I'm interested in. strQueryDef is a string variable which contains the name of the relevant query.

Help!

 

[KeithG]

You need a For....Each loop to loop through the QueryDef collection checking the name of each querydef


for each qryDef in currentdb.querydefs
if qryDef.name=NameVariable then
exists
end if
next qryDef

 

[icezebra]

Top stuff. That solves my problem perfectly!

 

[icezebra]

How would I do the same for a form?

For Each Form in CurrentDB
If...

Doesn't work.


Arrg.

 

[KeithG]

Something like below

Dim frm As Object

For Each frm In CurrentProject.AllForms
MsgBox frm.Name
Next frm

 

[icezebra]

Once again... much obliged.

Cheers!