'关闭所有打开的窗体
Private Sub 关闭_Click()
'当窗体数目大于0时，删除其中的第一个窗体

    Do While Forms.Count > 0
        DoCmd.Close acForm, Forms(0).Name
    Loop
End Sub

附   件:

点击下载此附件

演   示: