连接access数据库vba代码，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