office交流网--QQ交流群号

Access培训群:792054000         Excel免费交流群群:686050929          Outlook交流群:221378704    

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

Access判断查询是否存在

2018-01-09 16:20:00
tmtony8
原创
7677

有时候,我们需要动态删除某个查询。但是删除之前需要先判断查询是否存在

在前面的学习中,我们知道如何判断一个已知的表对象是否存在,参见《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

窗体中调用函数,如果查询存在。返回信息




    分享