如何相对链接指定的表

xdcow

在前台库中，因为表链接到不同的库中，只希望其中两个表实现开启程序后即相对链接到该文件所在根目录。怎么实现呢。
之前看到有相对链接的代码，不过是实现所有表相对链接的。这里是要仅指定两个表。

todaynew

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

哎，俺人笨呢，弄了半天没对，请楼上朋友帮忙写在里面去一下呢。前台库窗体中写了效果。

todaynew

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

xdcow

谢谢，很不错，很实用。