Refreshlinkを使用してリンクをカレントフォルダのMDBに更新する

[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