office交流網(wǎng)--QQ交流群號(hào)及微信交流群

Access培訓(xùn)群:792054000         Excel免費(fèi)交流群群:686050929          Outlook交流群:221378704    

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

微信交流群(請(qǐng)用微信掃碼)

        

Access判斷數(shù)據(jù)庫(kù)對(duì)象是否打開(kāi)

2019-01-12 14:25:00
tmtony8
原創(chuàng)
5172

在Access中程序設(shè)計(jì)中,在以編程方式編輯該對(duì)象之前,通常需要瞭解特定數(shù)據(jù)庫(kù)對(duì)象是否打開(kāi)。

以下示例用 acSysCmdGetObjectState 操作使用 SysCmd 方法來(lái)確定數(shù)據(jù)庫(kù)對(duì)象是否打開(kāi)。


函數(shù) IsObjectLoaded 有兩箇蔘數(shù)。strObjectName 蔘數(shù)是檢查的數(shù)據(jù)庫(kù)對(duì)象的名稱。strObjectType 蔘數(shù)是一箇 AcObjectType 常量,用於指定要檢查的數(shù)據(jù)庫(kù)對(duì)象的類型。如果指定的數(shù)據(jù)庫(kù)對(duì)象打開(kāi),則 IsObjectLoaded 函數(shù)返迴 True;如果該對(duì)象未打開(kāi),則返迴 False。

詳細(xì)源碼:
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


調(diào)用該函數(shù)

If IsObjectLoaded("關(guān)於", acForm) = True Then MsgBox "窗體已打開(kāi)"


    分享
    文章分類
    聯(lián)繫我們
    聯(lián)繫人: 王先生
    Email: 18449932@qq.com
    QQ: 18449932
    微博: officecn01
    移動(dòng)訪問(wèn)