龙空技术网

Access用VBA代码刷新链接表

小辣椒高效Office 249

前言:

现时咱们对“net读取access数据库连接”大约比较讲究,同学们都需要了解一些“net读取access数据库连接”的相关资讯。那么小编在网络上收集了一些关于“net读取access数据库连接””的相关资讯,希望咱们能喜欢,小伙伴们一起来学习一下吧!

在局域网中共享数据库,使多用户访问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交流网:

标签: #net读取access数据库连接