AccessVBAで任意の複数リンクテーブルをAccessVBAを動かす際に削除したいと考えておりま

AccessVBAで任意の複数リンクテーブルをAccessVBAを動かす際に削除したいと考えております
Access2016を使っております

例えば、
B
から始まるリンクテーブルのみ
削除し
残したいテーブルは残す
を実装したいです
DoCmd.DeleteObject acTable,"テーブル名"
は，存じておりまして
具体的な完全なテーブル名がわかる場合の削除はできるのですが任意の固定の文字列から始まるテーブルを削除するコードが記述できません
AccessVBAの正規表現を使えばできるのかと
踏んでいますが良い方法が検索しても
わかりませんでした
ご教授よろしくお願い申し上げます。
capeofdragon

No.1 ベストアンサー 回答者： ShowMeHow 回答日時： 2022/11/17 16:08

ADOXを使えば、テーブル名をリストにすることができますので、対象テーブルのリストを作って、削除すればよいと思います。

https://www.feedsoft.net/access/tips/tips131.html
ぶっちゃけ、削除もできます。
https://excelwork.info/excel/%E3%83%86%E3%83%BC% …

この回答へのお礼

ご返信感謝いたします
以下の様にし実装できました

Public Function Delete_LinkTable()
Dim DB1 As DAO.Database
Dim TD1 As TableDef

Set DB1 = CurrentDb()
For Each TD1 In DB1.TableDefs
If TD1.Attributes ＝ リンクテーブルのAttributes値 Then 'リンクテーブルか?
If Left(TD1.NAME, 1) = "B" Then 'Bで始まる名前か?
Debug.Print "Deleted " & TD1.NAME 'テスト時のみ確認用
DoCmd.DeleteObject acTable, TD1.NAME
End If
End If
Next

DB1.Close
End Function

お礼日時：2022/11/21 11:30