Access VBAで効率的に全てのクエリとテーブルを一括で閉じる方法

投稿日：2023年12月9日

Access VBAを使用してシステムを構築する際、データの確認に複数のテーブルを同時に開くことがよくあります。特に、特定のユーザーに関連するデータを一覧表示する機能を作成すると、現在開いているテーブルやクエリが多いとデータの確認が困難になることがあります。

この問題を解決するために、Access VBAで簡単に現在開いている全てのテーブルとクエリを一括で閉じることができるコードを作成しました。

いろいろ試してみて、エラーになったりしていたのですが、最終的に正常に動作することが確認できているコードなので、コピペして使ってください。

Sub クエリを閉じる()

    Dim objACC As AccessObject

    For Each objACC In CurrentData.AllQueries
        If objACC.IsLoaded Then
            DoCmd.Close AcObjectType.acQuery, objACC.Name, AcCloseSave.acSaveNo
        End If
    Next
    
End Sub

Sub テーブルを閉じる()

    Dim objACC As AccessObject
    
    For Each objACC In CurrentData.AllTables
        If objACC.IsLoaded Then
            DoCmd.Close AcObjectType.acTable, objACC.Name, AcCloseSave.acSaveNo
        End If
    Next
    
End Sub

Sub クエリを閉じる()

Dim objACC As AccessObject

For Each objACC In CurrentData.AllQueries

If objACC.IsLoaded Then

DoCmd.Close AcObjectType.acQuery, objACC.Name, AcCloseSave.acSaveNo

End If

End Sub

Sub テーブルを閉じる()

Dim objACC As AccessObject

For Each objACC In CurrentData.AllTables

If objACC.IsLoaded Then

DoCmd.Close AcObjectType.acTable, objACC.Name, AcCloseSave.acSaveNo

End If

End Sub