Deleting

[EscapeUK]

How do I in code

delete a query called qry1
delete another query called qry2
delete yet another query called qry3

However is is possible that they might not exist.

so what i need to do is search for the qry if it exists delete it if not do nothing

ta

 

[Cagliostro]

You can do in only in VB.
docmd.DeleteObject acQuery,"queryName" John Fill
ivfmd@mail.md

 

[RickSpr]

In addition to using DeleteObject, you'll need to use error handling to trap the error that occurs if the query doesn't exist.

If you prefer to verify that the query exists first, use code like this:

Sub DeleteQuery(QueryName As String)
    Dim db As DAO.Database, qdf As DAO.QueryDef
    Set db = CurrentDb()
    For Each qdf In db.QueryDefs
        If qdf.Name = QueryName Then
            Set qdf = Nothing
            DoCmd.DeleteObject acQuery, QueryName
            Exit For
        End If
    Next qdf
    Set qdf = Nothing
    Set db = Nothing
End Sub

Using an error handler will take less code, however. Rick Sprague