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

2019-01-12 14:25:00
tmtony8
原创
412

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

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


函数 IsObjectLoaded 有两个参数。strObjectName 参数是检查的数据库对象的名称。strObjectType 参数是一个 AcObjectType 常量,用于指定要检查的数据库对象的类型。如果指定的数据库对象打开,则 IsObjectLoaded 函数返回 True;如果该对象未打开,则返回 False。

详细源码:
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 "窗体已打开"


    分享