检测对象是否已打开

通常需要知道特定数据库对象是否处于打开状态，然后才能以编程方式编辑对象。 以下示例演示如何将 SysCmd 方法与 acSysCmdGetObjectState 操作结合使用，以确定数据库对象是否处于打开状态。

示例函数 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

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。