使用下面的函数，可以判断一个查询处于打开还是关闭状态。

Function qryIsLoaded(strName As String, Optional intObjectType As Integer = acQuery)
  qryIsLoaded = (SysCmd(acSysCmdGetObjectState, intObjectType, strName) <> 0)
End Function

 '调用代码示例：
Sub aaa()
    If qryIsLoaded("查询1") = True Then
        MsgBox "查询1处于打开状态"
    Else
        MsgBox "查询1处于关闭状态"
    End If
End Sub