如何使用Access VBA将各门店数据库的链接表重链到指定网络路径

前置注意事项 #

• 操作前务必备份所有门店的数据库文件，避免误操作导致数据损坏
• 确认新的网络驱动器路径所有门店终端都有正常访问权限
• 提前确认所有需要重定向的链接表对应的后端数据库文件名、表名没有变动

完整VBA实现代码 #

Sub 批量重定向链接表()
    Dim tdf As TableDef
    Dim db As Database
    Dim 新后端路径 As String
    Dim 后端数据库名 As String
    
    ' --------------------------
    ' 以下参数请根据实际情况修改
    ' --------------------------
    新后端路径 = "\\新网络驱动器\共享文件夹\后端数据库\" ' 替换为实际的新网络路径，末尾要加反斜杠
    后端数据库名 = "门店后端数据.accdb" ' 替换为实际的后端数据库文件名
    
    Set db = CurrentDb
    
    ' 遍历所有表定义
    For Each tdf In db.TableDefs
        ' 筛选链接表（排除系统表和本地表）
        If tdf.Connect <> "" And InStr(tdf.Connect, ";DATABASE=") > 0 Then
            ' 替换链接路径
            tdf.Connect = ";DATABASE=" & 新后端路径 & 后端数据库名
            ' 刷新链接
            tdf.RefreshLink
            Debug.Print "已更新链接表：" & tdf.Name
        End If
    Next
    
    Set tdf = Nothing
    Set db = Nothing
    MsgBox "所有链接表重定向完成！"
End Sub

批量适配13家门店的操作步骤 #

• 如果每家门店的后端数据库命名规则统一，直接把上述代码保存为模块，逐个导入每家门店的前端数据库运行即可
• 如果门店后端文件名有区分（比如门店01_后端.accdb、门店02_后端.accdb），可以把后端数据库名变量改为动态读取门店编号生成，不需要逐个修改代码
• 如果需要一次性批量处理所有13个前端数据库，可以新增一个管理库，用代码遍历所有门店前端数据库文件，逐个打开执行上述重定向逻辑，不需要手动打开每个库

上述代码默认处理的是Access后端的链接表，如果你的链接表是对接SQL Server等ODBC数据源，只需要修改tdf.Connect的赋值逻辑为对应的ODBC连接字符串即可。

内容的提问来源于stack exchange，提问作者Ignasijus