设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 3354|回复: 7
打印 上一主题 下一主题

[与其它组件] 求助:如何判断一个窗口已经打开!

[复制链接]
跳转到指定楼层
1#
发表于 2004-11-9 22:50:00 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
在ACCESS中如何判断一个窗口已经打开,语句怎么写写?

谢谢各位!:)
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
发表于 2004-11-9 23:00:00 | 只看该作者
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>
复制代码
3#
发表于 2004-11-9 23:12:00 | 只看该作者
从帮助文件中贴的,竟成乱码,自己到帮助中找吧。关键字:AllForms 集合示例
4#
发表于 2004-11-10 01:18:00 | 只看该作者
给你个函数: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
5#
发表于 2004-11-10 01:23:00 | 只看该作者
來個簡單的if CurrentProject.AllForms("您的表單名").IsLoaded=false   未打開
6#
发表于 2006-8-2 20:54:00 | 只看该作者
if CurrentProject.AllForms("您的表單名").IsLoaded=false   未打開或打开但  是  子窗体
7#
发表于 2006-8-2 20:56:00 | 只看该作者
以下是引用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

此函数是否来自罗斯文?

8#
发表于 2006-8-2 23:33:00 | 只看该作者
好象函数名不一样
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-14 14:54 , Processed in 0.095641 second(s), 31 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表