アクセスVBA現在開いている全てのテーブルを閉じる

質問

現在開いている全てのテーブルを閉じるってことをしたいのですが

Sub 現在開いている全てのテーブルを閉じる()
Dim intCnt As Integer
For intCnt = Tables.Count - 1 To 0 Step -1
DoCmd.Close acTable, Tables(intCnt).Name
Next intCnt
End Sub

これだとエラーになります。
フォームならうまくいくのですが・・・。

フォームとテーブルでは構成が違うのでしょうか？

回答No.1

nicotinism · ベストアンサー

Sub test1()
Dim i As Integer
For i = 0 To CurrentDb.TableDefs.Count - 1
If CurrentDb.TableDefs(i).Attributes = 0 Then
DoCmd.Close acTable, CurrentDb.TableDefs(i).Name
End If
Next
End Sub
かな？
すでに閉じているテーブルを閉じようとしてもエラーにはならないみたいです。
当方Access2010

お礼

ありがとうございました。