データベースのリンクテーブルのみリンクを削除

「データベースのリンクテーブルのみリンクを削除」

データベースのリンクテーブルのみリンクを削除するにはどうすればよいでしょうか。

回答

以下のプログラムで動きます。

ソース

'カレントデータベースのリンクテーブルだけを全て削除する
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