即効テクニック |
他データベースのテーブルにリンクさせたテーブルを、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のテーブル名は同じであることが必要です。