求助：如何判断一个窗口已经打开！

nicepp

在ACCESS中如何判断一个窗口已经打开，语句怎么写写？

谢谢各位！：）

青青

AllForms 集合示例以下示例打印在 AllForms 集合中打开的 AccessObject 对象的名称。

1. Sub AllForms()    Dim obj As AccessObject, dbs As Object    Set dbs = Application.CurrentProject    ' 在 AllForms 集合中搜索打开的 AccessObject 对象。    For Each obj In dbs.[b]AllForms[/b]        If obj.IsLoaded = TRUE then            '打印对象的名称。            Debug.Print obj.Name        End If    Next objEnd Sub

复制代码

1. <SCRIPT language=VBScript src="ShowMe_Code.vbs">
   
   
2. </SCRIPT><SCRIPT language=VBSCRIPT>Sub HelpPopup (sFile, sID)Call InitConstants() On Error Resume Nextr=oua.HelpPopup(sFile,sID)If Err<>0 Then Msgbox L_SECURITY_MSG,48,L_TITLEEnd Sub
   
   
3. <script>

复制代码

青青

从帮助文件中贴的，竟成乱码，自己到帮助中找吧。关键字：AllForms 集合示例

bigsea76

给你个函数：Public Function IsOpen(ByVal strFormName As String) As Boolean

Const ConDesignView = 0

Const conObjStateClosed = 0IsOpen = False

If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <> conObjStateClosed Then

    If Forms(strFormName).CurrentView <> ConDesignView Then

    IsOpen = True

    End If

End If

End Function

zyp

來個簡單的if CurrentProject.AllForms("您的表單名").IsLoaded=false   未打開

suve

if CurrentProject.AllForms("您的表單名").IsLoaded=false   未打開或打开但  是  子窗体

suve

以下是引用bigsea76在2004-11-9 17:18:00的发言：


给你个函数：

Public Function IsOpen(ByVal strFormName As String) As Boolean
Const ConDesignView = 0
Const conObjStateClosed = 0

IsOpen = False
If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <> conObjStateClosed Then
    If Forms(strFormName).CurrentView <> ConDesignView Then
    IsOpen = True
    End If
End If
End Function

此函数是否来自罗斯文？

tz-chf

好象函数名不一样