Access用VBA代碼刷新鏈接表

在局域網(wǎng)中共享數(shù)據(jù)庫(kù)，使多用戶訪問(wèn)Access，我們需要拆分Access前臺(tái)應(yīng)用和后臺(tái)數(shù)據(jù)庫(kù)。

關(guān)于如何拆分?jǐn)?shù)據(jù)庫(kù)可以參考下面文章《Access 拆分?jǐn)?shù)據(jù)庫(kù)及拆分的好處》

數(shù)據(jù)庫(kù)拆分后，通過(guò)鏈接表的方式訪問(wèn)后臺(tái)數(shù)據(jù)庫(kù)表。此時(shí)，如果后臺(tái)數(shù)據(jù)庫(kù)的文件位置移動(dòng)了或者文件名更改了等導(dǎo)致讀取不到后臺(tái)數(shù)據(jù)庫(kù)。打開(kāi)表會(huì)有錯(cuò)誤提示，如圖。那么我們需要重新鏈接一下。

如文章《Access刷新鏈接表鏈接后臺(tái)數(shù)據(jù)庫(kù)》有講述如何在菜單欄中用鏈接表管理器 刷新鏈接表。

這里我們?cè)僦v講如何用vba代碼刷新鏈接表

在D盤中，有文件test_be.accdb后臺(tái)數(shù)據(jù)庫(kù)

添加如下代碼，刷新鏈接表

    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 "鏈接表刷新成功"

刷新成功后，即可正常打開(kāi)表了