[Access VBA] Refreshlinkを使用してリンクをカレントフォルダのMDBに更新する Const DbName = "XXXX" Sub RefreshTableLink() Dim t As TableDef For Each t In CurrentDb.TableDefs If t.Connect <> "" Then Debug.Print t.Connect t.Connect = ";DATABASE=" & Here & "\" & DbName t.RefreshLink End If Next End Sub Public Function Here() As String Here = CurrentProject.Path End Function