Access判断数据库对象是否打开

在Access中程序设计中，在以编程方式编辑该对象之前，通常需要了解特定数据库对象是否打开。

以下示例用 acSysCmdGetObjectState 操作使用 SysCmd 方法来确定数据库对象是否打开。

Function IsObjectLoaded(ByVal strObjectName As String, ByVal strObjectType As AcObjectType) As Boolean
    
    If SysCmd(acSysCmdGetObjectState, strObjectType, strObjectName) <> 0 Then
        
       ' The object is open.
        IsObjectLoaded = True
    Else

       ' The object is not open.
        IsObjectLoaded = False
    End If
    
End Function

调用该函数

If IsObjectLoaded("关于", acForm) = True Then MsgBox "窗体已打开"