code to delete existing query

[Legacy 15162]

what would be the vba code to first see if a query exists, then to delete if true?

 

[Joe4]

The following lines of code will delete the query if it exists, and do nothing if it doesn't.

    On Error Resume Next
    DoCmd.DeleteObject acQuery, "QueryName"
    On Error GoTo 0

 

[Norie]

How about something like this:

Sub DeleteExistingQuery()
Dim db
Dim qdf
Dim QueryName
Dim Deleted As Boolean

    QueryName = InputBox("Please enter the name of the query you wish to delete:", "Delete existing query")

    If QueryName <> "" Then
        Set db = CurrentDb
        
        For Each qdf In db.QueryDefs
            If qdf.Name = QueryName Then
                db.QueryDefs.Delete qdf.Name
                Deleted = True
                Exit For
            End If
        Next
        
        If Deleted Then
            MsgBox QueryName & " succesfully deleted.", vbOKOnly + vbInformation, "Query deleted"
        Else
            MsgBox QueryName & " not found - check name and try again.", vbOKOnly + vbCritical, "Query not found"
        End If
        
    End If
End Sub

 

[Legacy 15162]

thanks!