スキルアップ・問題解決なら、モーグにおまかせ！

他データベースのテーブルにリンクさせたテーブルを、RefreshLinkメソッドを用いて更新します。ここでは他のデータベース「出席者名簿1.mdb」内のテーブル「量子力学」を自データベース「NorthWind.mdb」にリンクさせたテーブル「量子力学出席者」の内容をまた別のデータベース「出席者名簿2.mdb」内のテーブル「量子力学」に更新させます。

(テーブル)
「出席者名簿2.mdb」のテーブル「量子力学」
　学生番号　　　出席者名
　　0001　　　　森上 偉久馬
　　0002　　　　田中 和明
　　0004　　　　葛城 孝史
　　0006　　　　新田 哲也
　　0008　　　　内野 義昭
　　0003　　　　平野 彩子
　　0009　　　　青木 俊之

●サンプルコード●
Private Sub Dao_Link2()
'リンクの更新
  Dim DB As Database
  Dim tbl As TableDef
  
  Set DB = OpenDatabase("D:\NorthWind.mdb")
  Set tbl = DB.TableDefs("量子力学出席者")
  tbl.Connect = ";DATABASE=D:\出席者名簿2.mdb"
  tbl.RefreshLink

  DB.Close

  Set DB = Nothing
  Set tbl = Nothing
    
End Sub

●動作確認●
「NorthWind.mdb」内リンクテーブル「量子力学出席者」の内容が更新されていることを確認してください。

●補足●
出席者名簿1.mdbと出席者名簿2.mdbのテーブル名は同じであることが必要です。