vba - 以编程方式更改链接表位置

Question

我在第二个数据库中有一个带有链接表的 Access 数据库，该数据库与第一个数据库位于同一目录中。
我想将整个目录复制到一个新位置(用于测试)，并使数据库一仍然链接到数据库二中的表，但链接仍然是原始目录，而不是新位置。
我想做两件事之一:要么

以文件夹路径是相对的方式链接到数据库 2 中的表 - 数据库 2 的路径不是硬编码的。
要么

在Form_Load有套路(或 autoexec 宏)检查 application.path 并以编程方式相应地调整链接。

Answer 1

谢谢，

我成功地使用了它，但是没有将它与记录集一起使用。

Const LnkDataBase = "C:\NorthWind.mdb"
Sub relinktables()
'Routine to relink the tables automatically. Change the constant LnkDataBase to the desired one and run the sub
Dim dbs As DAO.Database
Dim tdf As DAO.TableDef
Dim strTable As String
Set dbs = CurrentDb()
For Each tdf In dbs.TableDefs
    If Len(tdf.Connect) > 1 Then 'Only relink linked tables
        If tdf.Connect <> ";DATABASE=" & LnkDataBase Then 'only relink tables if the are not linked right
            If Left(tdf.Connect, 4) <> "ODBC" Then 'Don't want to relink any ODBC tables
                strTable = tdf.Name
                dbs.TableDefs(strTable).Connect = ";DATABASE=" & LnkDataBase
                dbs.TableDefs(strTable).RefreshLink
            End If
        End if
    End If
Next tdf
End Sub