Office中国论坛/Access中国论坛

标题: [分享]檢測表單是否打開 [打印本页]

作者: ADAM 时间: 2003-10-16 04:39
标题: [分享]檢測表單是否打開
我檢測表單是否打開是這樣做的:

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

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

作者: wxnqd 时间: 2003-10-16 06:08
这是表还是窗体

作者: ADAM 时间: 2003-10-16 15:28
當然是窗體了..

作者: ADAM 时间: 2003-10-16 16:46
再來一個,這個更方便:

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

作者: esmile 时间: 2003-10-16 19:39
提示: 作者被禁止或删除内容自动屏蔽

作者: ADAM 时间: 2003-10-18 18:49
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

作者: esmile 时间: 2003-10-18 19:55
提示: 作者被禁止或删除内容自动屏蔽

作者: esmile 时间: 2003-10-18 19:59
提示: 作者被禁止或删除内容自动屏蔽

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)