重新链接访问表

Question

我有一个包含大量表的拆分访问数据库，除了一个表外，所有表都会正确重新链接。该表在指定新位置时给出了错误。错误的说它无法找到那条古老的道路。

为什么要寻找旧路？我正在指定一条新路径！

如果我删除表并重新链接它，它会添加它，但我无法打开它。错误消息是相同的，虽然在链接表管理器中它显示正确的路径（不是错误中的路径）

我发现工作的唯一解决方法是在数据库文件中复制表，删除那里的表，将复制文件重命名为原始名称。

但这只会有所帮助，直到我需要再次重新链接它。这是一个漫长的过程。

Answer 1

当我需要手动设置表路径时，您可以尝试我使用的功能。

Function SetTableLinkPath(strTableName As String, strTablePath As String)
On Error GoTo Err_Handler

    If Nz(strTableName, "") <> "" And Nz(strTablePath, "") <> "" Then
        Dim cdb As DAO.Database

        Set cdb = CurrentDb

        cdb.TableDefs(strTableName).Connect = ";DATABASE=" & strTablePath
        cdb.TableDefs(strTableName).RefreshLink

        MsgBox "Table link for " & strTableName & " has been successfully set to the path: " & strTablePath & "."
    Else
        MsgBox "You must enter a valid Table path and name!"
    End If


Exit_Handler:
    Set cdb = Nothing
    Exit Function

Err_Handler:
    'Your error handling
Resume Exit_Handler
End Function