如何关闭数据库文件，但不关闭Access

firetor

请问，如何实现关闭并保存所有数据库文件，但不关闭Access界面。

如果使用application.quit 就把Access也同时关闭了，
如果使用docmd.close 只能关闭当前窗口，并不能关闭所有窗口

急用，谢谢！

styhs

Sub clsForm()
Dim frm As Variant
    For Each frm In CurrentProject.AllForms
        DoCmd.Close acForm, frm.Name
    Next
End Sub

firetor

谢谢你，我试试