Accessのテーブルをすべて削除

質問

テーブルが50個ぐらいあるのですが、それらを一気に削除する方法はないでしょうか？
現在は１つ１つを選択して削除しています。
なにか簡単な方法があれば教えてください。お願いいたします。

回答No.1

maruru01

うまくいくかどうかわかりませんが。

標準モジュールに以下のプロシージャを作ります。
そして、新規マクロを作成し、アクションにプロシージャの実行を選択します。
そして、プロシージャ名に、deleteAllTable ()を入力して保存します。
あとは、そのマクロを実行します。
一度に全部消えないかも知れません。
その時は、何回か実行すれば全部削除できると思いますが。

うまくいかなかったらすいません。

Public Function deleteAllTable() As Boolean

Dim delTable As TableDef

With CurrentDb
For Each delTable In .TableDefs
If (delTable.Attributes And dbSystemObject) = False Then
.TableDefs.Delete delTable.Name
End If
Next
End With

deleteAllTable = True

End Function

お礼

なぜかうまくいきませんでした。
わざわざ書いていただきありがとうございました。