- ACCESS
- 2012-02-07 - 更新:2012-12-19
この記事は最終更新日から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,081 views