- VB,VBA
- 2016-10-14
この記事は最終更新日から1年以上経過しています。
Microsoft Accessにて、名前を指定して1つのテーブルを削除するだけであれば
DeleteObjectで削除することができます。
しかし、例えば任意の文字列が名前に含まれるテーブルを削除することができません。
その場合は以下のような方法で削除します。
例としてインポートでエラーが発生した際に作成されたエラーのテーブルを全て削除してみます。
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 If tbl.NAME Like "*インポート*エラー" Then DelTables.Add tbl.NAME End If Next For i = 1 To DelTables.Count 'テーブル削除 tbls.Delete (DelTables(i)) Next
14,553 views