Office中国论坛/Access中国论坛

标题: 求助：如何判断一个窗口已经打开！ [打印本页]

作者: nicepp 时间: 2004-11-9 22:50
标题: 求助：如何判断一个窗口已经打开！
在ACCESS中如何判断一个窗口已经打开，语句怎么写写？

谢谢各位！：）

作者: 青青 时间: 2004-11-9 23:00
AllForms 集合示例以下示例打印在 AllForms 集合中打开的 AccessObject 对象的名称。

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

复制代码

<SCRIPT language=VBScript src="ShowMe_Code.vbs">
</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
<script>

复制代码

作者: 青青 时间: 2004-11-9 23:12
从帮助文件中贴的，竟成乱码，自己到帮助中找吧。关键字：AllForms 集合示例

作者: bigsea76 时间: 2004-11-10 01:18
给你个函数：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 时间: 2004-11-10 01:23
來個簡單的if CurrentProject.AllForms("您的表單名").IsLoaded=false 未打開

作者: suve 时间: 2006-8-2 20:54
if CurrentProject.AllForms("您的表單名").IsLoaded=false 未打開或打开但是子窗体

作者: suve 时间: 2006-8-2 20:56

以下是引用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 时间: 2006-8-2 23:33
好象函数名不一样

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