deleting a query

[jordan0904]

I create a query like this:
set qd=db.createquerydef("query.....
docmd.openquery "query"
ect...
anyway next time i run this code I would like to check if this query exsists and delete it before creating it again.

 

[KDg]

Hi Jordan,

the below should work

Sub findQry()

Dim q As QueryDef

For Each q In CurrentDb.QueryDefs
If q.name = "QueryName" Then
DoCmd.DeleteObject acQuery, "QueryName"
End If
Next
End Sub


HTH

Drew

[This message has been edited by KDg (edited 10-01-2000).]

 

[MHM]

Or just do:

On Error Resume Exit_
If CurrentDB.QueryDefs!("NameOfQuery") then
CurrentDB.QueryDefs.Delete "NameOfQuery"
endif
Exit_:

Mic