Access判斷查詢是否存在

有時候，我們需要動態(tài)刪除某個查詢。但是刪除之前需要先判斷查詢是否存在

在前面的學習中，我們知道如何判斷一個已知的表對象是否存在，參見《Access判斷數(shù)據(jù)表是否存在》

判斷查詢是否存在的自定義函數(shù)：

Function ExistQuery(qryName As String) As Boolean
    
    
    Dim obj As AccessObject
    Dim dbs As Object
    Set dbs = Application.CurrentData
    For Each obj In dbs.AllQueries
        If obj.Name = qryName Then
            ExistQuery = True
        End If
    Next obj
End Function

窗體中調(diào)用函數(shù)，如果查詢存在。返回信息