質問: ";database=" & newpath '→新しいパス名 a.refreshlink end if next db.tabledefs.refresh
回答: 下記のコードを試してみて下さい。ただし、すでにtbl伝票データ,tbl伝票データ,tbl商品マスターがリンクテーブルとして存在していることが条件です。 dim db as database dim a as tabledef set db = currentdb() for each a in db.tabledefs if len(a.connect) <> 0 then select case a.name case "tbl伝票データ" a.connect = ";database=" & "c:\db1\a.mdb" '→新しいパス名(tbl伝票データ a.refreshlink case "tbl得意先マスター" a.connect = ";database=" & "c:\db2\b.mdb" '→新しいパス名(tbl得意先マスター a.refreshlink case "tbl商品マスター" a.connect = ";database=" & "c:\db2\c.mdb" '→新しいパス名(tbl商品マスター a.refreshlink end select end if next db.tabledefs.refresh