Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > 综合其它

关闭除刚打开的窗体以外的所有窗体的方法

时 间:2009-02-09 09:04:33
作 者:钱玉炜   ID:16  城市:江阴
摘 要:关闭除刚打开的窗体以外的所有窗体的方法
正 文:

问题详述
如果已经在屏幕上打开了若干个窗体,如何使用代码一次性关闭除指定名称之外的所有其他窗体?如果是保留多个指定名称的窗体呢?

专家解答
所有打开的窗体都会添加到Forms集合中,如果要关闭打开的窗体,只需循环Forms集合里的对象,然后逐个关闭除指定名称之外的窗体。不过这里有个比较技巧性的地方,那就是如何循环Forms集合里的对象才能正确关闭所有窗体。

 

不能使用For i = 0 To Application.forms.count -1或For Each frm In Application.Forms这两种方法,因为Forms集合的索引从零开始。如果按照索引引用窗体,则第一个打开的窗体是Forms(0),第二个打开的是Forms(1),依此类推。如果打开Form1,然后打开Form2,则Form2在Forms集合中的索引为Forms(1)。如果关闭Form1,Form2在Forms集合的索引将变为Forms(0),所以当有窗体打开和关闭时,Application.forms里的对象和索引时刻在变化着,而Application.forms.count的值也是变化的,所以使用上述两种方法都无法正确关闭所有窗体。

 

由于在任何时候都可以获取到所有打开的窗体的个数,而窗体的索引是从0开始的,而最后一个窗体的序号永远是窗体的个数减1,只要每次都关闭最后那个窗体,则循环所有窗体直到最后一个窗体之后,就能关闭所有打开的窗体,所以使用下面巧妙的方法来实现关闭所有窗体的功能。

 

Dim intCount As Integer ''用来保存打开窗体的个数

Dim i As Integer ''循环变量

intCount = Application.forms.Count ''将打开窗体的个数保存到intCount变量

 


For i = intCount - 1 To 0 Step -1 ''从大到小循环所有的窗体

DoCmd.Close acForm, Application.forms(i).Name ''关闭最后那个窗体

Next i

上面的代码实现关闭所有打开窗体的功能,如果要保留指定名称的窗体,则创建一个新的函数并改进一下代码。

 

Private Function CloseAllForms(Optional rstrDontClose As String)

 


Dim intCount As Integer ''用来保存打开窗体的个数

Dim i As Integer ''循环变量

intCount = Application.forms.Count ''将打开窗体的个数保存到intCount变量

 


For i = intCount - 1 To 0 Step -1 ''从大到小循环所有的窗体

If Application.forms(i).Name <> Nz(rstrDontClose) Then ''如果不是指定的窗体则关闭它

DoCmd.Close acForm, Application.forms(i).Name ''关闭最后那个窗体

End If

Next i

 


End Function

然后再使用下面的代码来调用这个函数,将要保留的窗体名传递过去。

 

CloseAllForms "窗体2"
程序执行后就会关闭除“窗体2”之外的所有已经打开的窗体。

 

上面的方法只能指定一个窗体名称,如果需要指定多个窗体不关闭,则需要从传递过来的参数中提取每个窗体的名称,然后按照上述同样的方法进行处理,改进后的代码如下。

Private Function CloseAllForms(Optional rstrDontClose As String)

Dim varName As Variant ''存储窗体名称拆分后的数组变量

Dim strFormName As String

Dim intCount As Integer ''用来保存打开窗体的个数

Dim i As Integer ''外循环变量

Dim j As Integer ''内循环变量

Dim blnDontClose As Boolean ''是否需要保留的窗体的标志

intCount = Application.forms.Count ''将打开窗体的个数保存到intCount变量

varName = Split(rstrDontClose, ",") ''将传递过来的参数按分隔符","拆分到数组varName

 


For i = intCount - 1 To 0 Step -1 ''从大到小循环所有的窗体

blnDontClose = False

For j = 0 To UBound(varName) ''循环指定名称的所有窗体

If Application.forms(i).Name = Nz(varName(j)) Then ''如果是指定的窗体则设置标志

blnDontClose = True

Exit For

End If

Next

If blnDontClose = False Then

DoCmd.Close acForm, Application.forms(i).Name ''如果不在保留的窗体之列,则关闭窗体

End If

Next i

 


End Function

再使用下面的方法调用上面的函数,多个窗体名称之间使用“,”符号隔开。

 

CloseAllForms "窗体2,窗体4"

专家点评
从上面的分析得知,无法使用代码在Forms集合中添加或删除Form对象,系统自动维护Forms集合里的对象和索引,所以如果要引用Forms集合中特定的窗体,最好按窗体名称来引用该窗体,而不是使用索引来引用窗体,因为窗体的集合索引可能随时会改变。

 

由于包含CloseAllForms "窗体2,窗体4" 这句代码的窗体也是打开的窗体,所以在关闭时也会关闭这个窗体。另外,不管窗体是打开在设计视图、窗体视图、数据表视图还是其他视图,都是属于打开的窗体,如果在设计视图里的窗体还没有保存,则在关闭时会提示是否保存窗体。

对于Access的报表,也可使用类似的方法来处理,只不过,已打开的报表集合是“Reports”,而不是“Forms”。

 



Access软件网QQ交流群 (群号:54525238)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助