在 MS Access (2013) 中刷新链接表不起作用

Question

这是我创建的一个界面，用于在 IT 部门决定更改网络名称或路径时帮助客户切换数据库链接。

我正在尝试清理我搞砸的例行程序。 它曾经工作得很好，但现在它没有刷新，我不知道为什么。

1) 当用户单击“浏览”为数据库选择新路径时，我调用此例程：

Private Sub cmdBrowsePath_Click()
    Dim strFile As String
    Dim strPath As String
    Dim strNewPath As String


    strFile = GetFilePath("Locate and select the Master Database")

    If strFile <> "" Then


       Me.txtMaster = strFile

       Call ChangeLinkPath("TBL_VERSION_LATEST", Me.txtMaster)

    End If



End Sub

2）选择新路径时，我希望链接表自动切换到用户选择的内容 - 我调用了一个名为 ChangeLinkPath 的例程，我这样调用它：

Public Sub ChangeLinkPath(strLinkName As String, strNewPath As String)

On Error GoTo ChangeLinkPath_Err

    Dim db As DAO.Database
    Dim TDF As DAO.TableDef

    Set db = CurrentDb
    Set TDF = db.TableDefs(strLinkName)

    If (Mid(TDF.Name, 1, 4) <> "MSys" And Mid(TDF.Name, 1, 4) <> "~TMP") Then
        Debug.Print "Current link: " & TDF.Connect

        TDF.Connect = ";DATABASE=" & strNewPath
        TDF.RefreshLink

        db.TableDefs.Refresh

        Debug.Print "AFTER REFRESHING: " & TDF.Connect

    End If

    Set TDF = Nothing

ChangeLinkPath_Err:

Select Case Err.Number

Case 3011
    MsgBox "'" & strLinkName & "' is NOT in this engine. Make sure you point to an engine that has the same tables or DELETE the linked table if you no longer wish to refresh it.  The original link has not been changed.", vbCritical, "Skipping - " & strLinkName


End Select

ChangeLinkPath_Exit:

Set db = Nothing
Set TDF = Nothing

End Sub

一切正常，除了最重要的部分 - 更改链接路径！

我在选择新路径后检查链接，它仅在文本框中更改，而不是在链接本身中更改。 当我将鼠标悬停在链接上时，它仍然具有旧路径。 我错过了什么？

如果我知道，我可以让这个基本部分用于更改任何链接路径。