如何关闭已经打开的所有窗体？

作者：cg1 摘自：access911.net 录入：cg1 时间：2002-11-27 浏览人次：920

专题地址：http://www.access911.net/index.asp?u1=a&u2=78FAB61E 如果需要更详细的评论或说明，请点击该地址。

简述：如何关闭已经打开的所有窗体？《窗体》

Private Sub FORM_Load()
　　Do Until Application.FORMs.Count = 1
　　　　If Application.FORMs(0).Name <> Me.Name Then
　　　　　　DoCmd.Close acFORM, Application.FORMs(0).Name
　　　　Else
　　　　　　DoCmd.Close acFORM, Application.FORMs(1).Name
　　　　End If
　　Loop
End Sub

因为每次关闭一个窗体，Application.FORMs对象集合都会发生变化，所以不能用 for each...in　Application.FORMs 来循环关闭窗体。

用 for each 也可以

Private Sub FORM_Load()
    dim frm as form
    do until application.forms.count = 1
        for each frm in application.forms
            if frm.name <> "username" then docmd.close acform, .....................
...........

资料库随时有更新，欲查看最新详情请单击专题地址：http://www.access911.net/index.asp?u1=a&u2=78FAB61E

上一篇：如何去除项目不在列表时出现的对话框！

下一篇：如何解决Access在密集运算时进入假死状态？

2010年7月2日生成静态资料