【译文】判断数据库中是否存在某个查询

时　间:2012-05-14 13:43:17
作　者:周芳   ID：24526  城市：上海
摘　要:判断数据库中是否存在某个查询
正　文:

Public Function QueryExists(strQueryName As String) As Boolean

   Dim accQry As AccessObject
   QueryExists = False ' 默认值为不存在，除非查询被找到。
  

   ' 使用CurrentData.AllQueries集合来获取已有的查询。
   ' 依次通过已有的查询列表来获取查询名。
   For Each accQry In CurrentData.AllQueries

        If strQueryName = accQry.Name Then
           QueryExists = True ' 找到这个查询
          
           Exit For ' 跳出循环
       End If
   Next accQry

End Function