第一个链接复制该文件，重命名为accdb（或mdb）。



然后运行代码重新链接到原始文件：

First link a copy of the file, renamed as accdb (or mdb).

Then run code to relink to the table(s) from the original file:

Public Function Relink()

    Dim Database    As DAO.Database
    Dim Table       As DAO.TableDef
    
    Dim Connect     As String
    
    Set Database = CurrentDb
    Set Table = Database.TableDefs("SomeTable")
    
    Connect = Table.Connect
    Debug.Print Connect
    Connect = Replace(Connect, ".accdb", ".dvprj")
    Debug.Print Connect
    
    Table.Connect = Connect
    Table.RefreshLink
    Debug.Print Table.Connect

End Function

这是一个很好的解决方案。



我会向前推进尝试。



谢谢，汤姆

This is a great solution.

I will give it a try as I move forward.

Thanks, Tom