office交流網--QQ交流群號

Access培訓群:792054000         Excel免費交流群群:686050929          Outlook交流群:221378704    

Word交流群:218156588             PPT交流群:324131555

Access判斷查詢是否存在

2018-01-09 16:20:00
tmtony8
原創
3066

有時候,我們需要動態刪除某個查詢。但是刪除之前需要先判斷查詢是否存在

在前面的學習中,我們知道如何判斷一個已知的表對象是否存在,參見《Access判斷數據表是否存在


判斷查詢是否存在的自定義函數:

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

窗體中調用函數,如果查詢存在。返回信息




    分享
    北京十一选五基本走势