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

  • 发表于:
  • 原文链接https://kuaibao.qq.com/s/20181215A0DSWZ00?refer=cp_1026
  • 腾讯「云+社区」是腾讯内容开放平台帐号(企鹅号)传播渠道之一,根据《腾讯内容开放平台服务协议》转载发布内容。
  • 如有侵权,请联系 yunjia_community@tencent.com 删除。

扫码关注云+社区

领取腾讯云代金券