Office中国论坛/Access中国论坛

标题: 如何相对链接指定的表 [打印本页]

作者: xdcow 时间: 2010-5-28 08:51
标题: 如何相对链接指定的表
在前台库中，因为表链接到不同的库中，只希望其中两个表实现开启程序后即相对链接到该文件所在根目录。怎么实现呢。
之前看到有相对链接的代码，不过是实现所有表相对链接的。这里是要仅指定两个表。

作者: todaynew 时间: 2010-5-28 16:23
本帖最后由 todaynew 于 2010-5-28 16:25 编辑

Function MyTrdb(Fname As String)
'功能：重建表链接。
'参数：Fname：后台数据库完整文件名
'示例：MyTrdb(CurrentProject.Path & "\后台数据库.mdb")
Dim obj As AccessObject, dbs As Object
Dim tbnmae As String
On Error GoTo MyTrdb_Err

Set dbs = Application.CurrentData
For Each obj In dbs.AllTables
      tbnmae = obj.Name
      If InStr(obj.Name, "MSys") = 0 Then
         DoCmd.DeleteObject acTable,tbnmae                                                       '删除链接
         DoCmd.TransferDatabase acLink, "Microsoft Access", Fname, acTable, tbnmae, tbnmae, False  '建立链接
      End If
Next obj

MyTrdb_Exit:
Exit Function

MyTrdb_Err:
MsgBox Error$
Resume MyTrdb_Exit
End Function

可在for each中加if语句，以实现特定表的链接。

作者: xdcow 时间: 2010-5-28 19:34
哎，俺人笨呢，弄了半天没对，请楼上朋友帮忙写在里面去一下呢。前台库窗体中写了效果。

作者: todaynew 时间: 2010-5-28 20:12

哎，俺人笨呢，弄了半天没对，请楼上朋友帮忙写在里面去一下呢。前台库窗体中写了效果。
xdcow 发表于 2010-5-28 19:34

[attach]42306[/attach]

作者: xdcow 时间: 2010-6-1 19:37
谢谢，很不错，很实用。

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