【函数】窗体关闭时关闭所有打开的窗休

tmtony

这是早期写的系统关闭时的一个方法。与大家分享一下
在系统关闭前先关闭已经打开的窗体会比较安全

For Each aoj In CurrentProject.AllForms
If aoj.name <> "frmMain" Then '关闭除主窗体外的所有窗体
  Docmd.Close acform, aoj.name
End If
Next

也可使用类似的方法来做其它事情，如把窗体全部更换为英语，或法语等语言

For Each aoj In CurrentProject.AllForms
If aoj.name <> "frmZstmSetLang" Then
  Me.lblPregress.Caption = "Processing Form:" & aoj.name
  gt_GenLangPackToTable 2052, "Form", aoj.name
  DoEvents
End If
Next

另 鱼儿游游 网友发现，使用FORMS枚举不行，要枚举CurrentProject.AllForms

zhuyiwen

谢谢分享

秋风萧萧

学习学习

Agent

不错不错.