Access判斷數(shù)據(jù)庫對象是否打開

在Access中程序設計中，在以編程方式編輯該對象之前，通常需要了解特定數(shù)據(jù)庫對象是否打開。

以下示例用 acSysCmdGetObjectState 操作使用 SysCmd 方法來確定數(shù)據(jù)庫對象是否打開。

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

調(diào)用該函數(shù)

If IsObjectLoaded("關(guān)于", acForm) = True Then MsgBox "窗體已打開"