安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假

Access用VBA代码刷新链接表

2018-12-14 17:26:00
tmtony8
原创
1161

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

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


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



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





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

    分享
    ? 1999-2019 Office交流网?? 中山市天鸣科技发展有限公司 粤ICP备10043721号-5 SQL查询:19
    内存占用:7.75MB
    PHP 执行时间:0.15
    双色球大奖2000年
    安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假
    舞龙官网 时时彩软件 圣诞奇迹电子游艺 17175港式五张 陕西福彩快乐十分走势图视频 google血流成河 非常幸运在线客服 阿里巴巴 股票 北京赛车开奖直播app 龙虎兄弟