'    你是否试图用此法关闭所有打开的窗体? 但实际上总有对象并不能被关闭
'    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