Access用VBA代碼刷新鏈接表

2018-12-14 17:26:00
tmtony8
原創
2687

局域網中共享數據庫使多用戶訪問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 "鏈接表刷新成功"





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

    分享
    北京十一选五基本走势