Access如何清除链接表原有存储路径、保留链接且不显示旧地址

实现方案 #

Access的DAO框架要求链接表的Connect属性必须符合对应数据源的链接串格式，直接赋值空值、Null或不符合格式的字符串会被校验拦截，因此你可以通过构造合法但指向无效占位路径的Jet链接串覆盖旧路径，同时保留链接表对象，具体实现如下：

步骤1：修正原有代码的变量问题 #

你现有代码存在变量笔误：定义了路径变量strConnect但实际调用了未声明的sMyConnectString，且没有从旧链接串中提取后端库文件名的逻辑，先补全这部分逻辑，同时增加错误捕获。

步骤2：新增失效链接处理逻辑 #

捕获刷新链接时的「找不到后端文件」错误，出错时将Connect属性替换为格式合法、但指向不存在路径的占位串即可，既覆盖旧路径，又保留链接表结构。

完整可运行代码 #

Dim db As DAO.Database
Dim strNewPathPrefix As String, strOldConnect As String, strDbName As String
Dim tdf As DAO.TableDef

Set db = CurrentDb
' 所有后端库默认和前端同目录
strNewPathPrefix = ";DATABASE=" & CurrentProject.Path & "\"

For Each tdf In db.TableDefs
    ' 只处理Access后端的链接表，跳过系统表、ODBC链接等
    If Len(tdf.Connect) > 0 And Left(tdf.Connect, 10) = ";DATABASE=" Then
        ' 从旧链接串中提取后端库的文件名
        strOldConnect = tdf.Connect
        strDbName = Mid(strOldConnect, InStrRev(strOldConnect, "\") + 1)
        
        On Error Resume Next
        ' 尝试刷新到新路径
        tdf.Connect = strNewPathPrefix & strDbName
        tdf.RefreshLink
        
        ' 刷新失败（后端库不存在）
        If Err.Number <> 0 Then
            Err.Clear
            ' 构造合法格式的无效占位链接串，完全覆盖旧路径
            ' 占位内容可自定义，只要符合;DATABASE=xxx的Jet链接串格式即可
            tdf.Connect = ";DATABASE=【缺失对应后端库：" & strDbName & "】"
            ' 此处不需要调用RefreshLink，避免报错，直接保存Connect属性即可
        End If
        On Error GoTo 0
    End If
Next tdf

Set tdf = Nothing
Set db = Nothing

效果说明 #

• 旧路径会被完全替换为你自定义的占位内容，不会泄露原有存储地址
• 链接表对象完全保留，表结构、字段属性、关联查询等都不受影响
• 后续用户拿到对应后端库放到程序目录后，重新运行刷新代码即可自动恢复正常链接，不需要重建链接表

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