access vba关闭所有已加载的窗体

在VBA (Visual Basic for Applications) 中，如果你想要关闭Access应用中所有已加载的窗体，你可以使用以下步骤：

1. 首先，你需要引用Microsoft Access Object Library，这是包含Access对象和方法的库。在VBA编辑器中，选择 "插入" -> "引用"，然后在弹出的窗口中找到 "Microsoft Access Object Library" 并选中它。

2. 然后，编写一个Sub过程，例如：

Sub CloseAllForms()
    Dim objApp As Access.Application
    Dim objForm As Form
    
    ' 创建Access应用对象实例
    Set objApp = New Access.Application
    
    ' 遍历所有打开的窗体
    For Each objForm In Application.Forms
        If Not objForm Is Null Then
            ' 关闭每个窗体
            objForm.Close SaveChanges:=False
        End If
    Next objForm
    
    ' 安全地释放对象，释放资源
    Set objApp = Nothing
End Sub

这个过程会循环遍历所有的Form对象，并尝试关闭它们（`SaveChanges:=False`表示不保存更改）。确保运行此代码前，你对Access应用程序有适当的操作权限。