カテゴリー
SugiBlog Webエンジニアのためのお役立ちTips

ACCESS VBA テーブルの削除

この記事は最終更新日から1年以上経過しています。

テーブルの一覧を取得し、削除します。
※DAO参照はなしで実行できるようにしています。

Dim tbls As Object 'DAO.TableDefs
Dim tbl  As Object 'DAO.TableDef

'テーブル一覧取得
Set tbls = CurrentDb.TableDefs

Dim DelTables As Collection

Set DelTables = New Collection

For Each tbl In tbls

	'「MSys」で始まるテーブルはシステムテーブルなので省きます
    If Not tbl.Name Like "MSys*" Then
        DelTables.Add tbl.Name
    End If

Next

For i = 1 To DelTables.Count
    'テーブル削除
    tbls.Delete (DelTables(i))
Next

MsgBox "削除件数=" & DelTables.Count
この記事がお役に立ちましたらシェアお願いします
10,077 views

コメントを残す

メールアドレスが公開されることはありません。 が付いている欄は必須項目です