access链接表问题

lvancbx

请问，access链接表是绝对路径，请问怎么才能设置成相对路径，有什么好办法吗？我不想下发的表格还规定使用者的存放位置

fan0217

以下是网络上提供的一个刷新链接表的函数：

Public Function ReLink(ByVal strName As String, ByVal strPath As String, ByVal strPWD) As Boolean
    Dim dbs As Database
    Dim tdf As TableDef, i As Variant

  On Error GoTo ErrorHandler

    ReLink = False
    Set dbs = CurrentDb
   
   
    For Each i In Application.CurrentData.AllTables  '历遍的有表
    If DCount("*", "MSysObjects", "[Name]='" & i.Name & "' And [Type]=6") > 0 Then
                       '判断只有链接表才运行以下代码
      strName = i.Name
    Set tdf = dbs.TableDefs(strName)
    tdf.Connect = "WD=" & strPWD & ";database=" & strPath
    tdf.RefreshLink

    End If
    Next i
   
    ReLink = True
    Exit Function
   
ErrorHandler:    ' 错误处理程序。
   

    MsgBox "刷新失败!" & vbCr & vbCr & "失败原因 :" & vbCr & vbCr & _
        "错误代码 : " & Err.Number & vbCr & _
        "错误描述 : " & Err.Description, _
        vbCritical
End Function

fan0217

在打开数据库的时候，检查链接是否正确，如果不正确，通过程序检查当前路径的后台，并链接正确即可。

lvancbx

有能在具体点吗？[em06][em06]

kelind

做一个 链接窗体。可以选择任何路径，包括局域网内各电脑的路径。

lvancbx

大哥说具体点好不好？我不是很懂啊，你说的搜索找不到解决方法，谢谢

一点通

请用"相对路径"关键字搜索一下旧贴