安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假

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

2019-01-12 14:25:00
黄善超
原创
177

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


    分享
    ? 1999-2019 Office交流网?? 中山市天鸣科技发展有限公司 粤ICP备10043721号-5 SQL查询:3
    内存占用:4.75MB
    PHP 执行时间:0.09
    双色球大奖2000年
    安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假