Function 对象是否打开(查询名 As String, Optional 对象类型 As Integer)
    对象是否打开 = (SysCmd(acSysCmdGetObjectState, 对象类型, 查询名) <> 0)　　　　　
End Function
'SysCmd方法：acSysCmdGetObjectState返回对象状态　

Sub 查询是否打开()
    If 对象是否打开("查询1", acQuery) = True Then
    MsgBox "查询1处于打开状态"
    Else
    MsgBox "查询1处于关闭状态"
    End If
End Sub

Sub 表是否打开()
    If 对象是否打开("表1", acTable) = True Then
    MsgBox "表1处于打开状态"
    Else
    MsgBox "表1处于关闭状态"
    End If
End Sub

Sub 窗体是否打开()
    If 对象是否打开("窗体1", acForm) = True Then
    MsgBox "窗体1处于打开状态"
    Else
    MsgBox "窗体1处于关闭状态"
    End If
End Sub

Sub 报表是否打开()
    If 对象是否打开("报表1", acReport) = True Then
    MsgBox "报表1处于打开状态"
    Else
    MsgBox "报表1处于关闭状态"
    End If
End Sub

来源：孙兴华 Access DLC查询篇