詳しい人求む！

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

解決済

質問者：capeofdragon
質問日時：2022/11/17 15:45
回答数：1件

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

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

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (1件)

ベストアンサー優先
最新から表示
回答順に表示

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% …

- 0
- 件

通報する

この回答へのお礼

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

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