[分享]檢測表單是否打開

ADAM

我檢測表單是否打開是這樣做的:

Dim AC1 As AccessObject
Set AC1 = CurrentProject.AllForms("TEST")
MsgBox AC1.IsLoaded

[此贴子已经被作者于2003-10-18 10:44:57编辑过]

wxnqd

这是表还是窗体

ADAM

當然是窗體了..

ADAM

再來一個,這個更方便:

intObjState = SysCmd(acSysCmdGetObjectState, "ACFORM", "TEST")
If intObjState <> 0 Then
'如果表單TEST沒有開啟,則.....
'INTOBJSTATE 為 1 表示開啟,0表示未開啟,2表示變更未儲存,4表示新增....
    .
    .
    .
End If

ADAM

esmile,你這個問題好厲害,我開了好久都不行,最近在ACCESSSOFT中看到一貼
是關于顯示共享數據庫登錄入員的例子的,我改了一下,你看看吧,希望能對你有
幫助,

另外,我也很想知道你問題的作案???,期待中...........

Private Sub Command24_Click()
'Sub ShowUserRosterMultipleUsers()
    Dim cn As ADODB.Connection   '原句有加NEW
    Dim cn2 As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim i, j As Long

    'cn.Provider = "Microsoft.Jet.OLEDB.4.0"   '原句
    'cn.Open "Data Source=D:\My Documents\EXAMPLE.mdb"   '原句
    Set cn = CurrentProject.Connection

    'cn2.Open "rovider=Microsoft.Jet.OLEDB.4.0;" _
    & "Data Source=D:\My Documents\EXAMPLE.mdb"  '原句

     Set rs = cn.OpenSchema(adSchemaProviderSpecific, _
    , "{947bb102-5d43-11d1-bdbf-00c04fb92675}")

    Debug.Print rs.Fields(0).Name, "", rs.Fields(1).Name, _
    "", rs.Fields(2).Name, rs.Fields(3).Name

    While Not rs.EOF
        Debug.Print rs.Fields(0), rs.Fields(1), _
        rs.Fields(2), rs.Fields(3)
        rs.MoveNext
    Wend

End Sub