アクセス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 回答日時： 2013/08/15 21:47

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

この回答へのお礼

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

お礼日時：2013/09/02 18:54