office交流网--QQ交流群号

Access培训群:792054000         Excel免费交流群群:686050929          Outlook交流群:221378704    

Word交流群:218156588             PPT交流群:324131555

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

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

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


    分享