Access用VBA代碼刷新鏈接錶

在局域網(wǎng)中共享數(shù)據(jù)庫，使多用戶訪問Access，我們需要拆分Access前颱應(yīng)用和後颱數(shù)據(jù)庫。

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

數(shù)據(jù)庫拆分後，通過鏈接錶的方式訪問後颱數(shù)據(jù)庫錶。此時(shí)，如果後颱數(shù)據(jù)庫的文件位置移動(dòng)瞭或者文件名更改瞭等導(dǎo)緻讀取不到後颱數(shù)據(jù)庫。打開錶會(huì)有錯(cuò)誤提示，如圖。那麼我們需要重新鏈接一下。

如文章《Access刷新鏈接錶鏈接後颱數(shù)據(jù)庫》有講述如何在菜單欄中用鏈接錶管理器 刷新鏈接錶。

這裡我們再講講如何用vba代碼刷新鏈接錶

在D盤中，有文件test_be.accdb後颱數(shù)據(jù)庫

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

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

刷新成功後，卽可正常打開錶瞭