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

青青

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 集合示例