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

在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 "窗体已打开"

学习更多的Access源码技巧，请关注Office交流网：http://www.office-cn.net