如何正確關閉所有打開的窗體

' 你是否試圖用此法關閉所有打開的窗體? 但實際上總有對象并不能被關閉
    For Each objOpenning In Forms '關閉所有已經打開的窗體
    DoCmd.Close acForm, objOpenning.Name
    Next
    For Each objOpenning In Reports '關閉所有已經打開的報表
    DoCmd.Close acReport, objOpenning.Name
    Next
    用這樣的方法就對了 :)
    Do While Forms.Count > 0 '關閉所有已經打開的窗體
    DoCmd.Close acForm, Forms(0).Name
    Loop
    Do While Reports.Count > 0 '關閉所有已經打開的報表
    DoCmd.Close acForm, Reports(0).Name
    Loop