Mam's WebSite
建築CGパース住宅CGパース

Mamの覚書Q&A検索

トップページMamの覚書Q&A検索Access(VBA)⇒Q&A


大項目:「 Access 」 - 中項目:「 VBA 」

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

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


回答

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

ソース

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


Mam's WebSite