「データベースのリンクテーブルのみリンクを削除」
データベースのリンクテーブルのみリンクを削除するにはどうすればよいでしょうか。
回答
以下のプログラムで動きます。
ソース
'カレントデータベースのリンクテーブルだけを全て削除する
Sub erase_link_table()
Dim db As Database
Dim td As TableDef
Dim i As Integer
Set db = CurrentDb
db.TableDefs.Refresh
For i = db.TableDefs.Count - 1 To 0 Step -1
Set td = db.TableDefs(i)
If (td.Attributes And dbAttachExclusive) Then
db.TableDefs.Delete (td.Name)
End If
Next
db.TableDefs.Refresh
Set db = Nothing
End Sub