Office中国论坛/Access中国论坛

标题: access链接表问题 [打印本页]

作者: lvancbx 时间: 2006-9-4 23:48
标题: access链接表问题
请问，access链接表是绝对路径，请问怎么才能设置成相对路径，有什么好办法吗？我不想下发的表格还规定使用者的存放位置

作者: 一点通 时间: 2006-9-4 23:57
请用"相对路径"关键字搜索一下旧贴

作者: lvancbx 时间: 2006-9-5 00:07
大哥说具体点好不好？我不是很懂啊，你说的搜索找不到解决方法，谢谢

作者: kelind 时间: 2006-9-5 00:14
做一个链接窗体。可以选择任何路径，包括局域网内各电脑的路径。

作者: lvancbx 时间: 2006-9-5 18:11
有能在具体点吗？[em06][em06]

作者: fan0217 时间: 2006-9-5 20:26
在打开数据库的时候，检查链接是否正确，如果不正确，通过程序检查当前路径的后台，并链接正确即可。

作者: fan0217 时间: 2006-9-5 20:27
以下是网络上提供的一个刷新链接表的函数：

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

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)