<<< 返回 access911.net 编程静态资料库索引页

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

 

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


专题地址:http://access911.net/fixhtm/78FAB61E.htm 如果需要更详细的评论或说明,请点击该地址。

 

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

 


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://access911.net/fixhtm/78FAB61E.htm

 


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

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

2017年2月22日生成静态资料