Access用VBA代码刷新链接表

在局域网中共享数据库，使多用户访问Access，我们需要拆分Access前台应用和后台数据库。

关于如何拆分数据库可以参考下面文章《Access 拆分数据库及拆分的好处》

数据库拆分后，通过链接表的方式访问后台数据库表。此时，如果后台数据库的文件位置移动了或者文件名更改了等导致读取不到后台数据库。打开表会有错误提示，如图。那么我们需要重新链接一下。

如文章《Access刷新链接表链接后台数据库》有讲述如何在菜单栏中用链接表管理器 刷新链接表。

这里我们再讲讲如何用vba代码刷新链接表

在D盘中，有文件test_be.accdb后台数据库

添加如下代码，刷新链接表

    Dim db As DAO.Database
    Set db = CurrentDb
    Dim tbl As TableDef
    For Each tbl In db.TableDefs
        
        If Len(tbl.Connect) > 0 Then
            tbl.Connect = ";DATABASE=" & Me.Text1
            tbl.RefreshLink
        End If
    Next
    MsgBox "链接表刷新成功"

刷新成功后，即可正常打开表了