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 "链接表刷新成功"

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

学习更多的Access技巧源码，请关注Office交流网：http://www.office-cn.net