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 "窗體已打開"