[刷新链接表时检测到MS Access

Question

是否有一种方法可以检测用户何时在Access中按下全部刷新或刷新？刷新表后，我想运行VBA脚本。如果没有办法，如何使用VBA刷新所有链接表？我只知道刷新/重新查询表格。

Answer 1

AFAIK，没有用于处理tdf.RefreshLink方法的事件。您可以使用以下代码刷新所有表链接：

Public Sub Refresh_Linked_Tables()

    Dim mdb As Access.Application

    Dim db As DAO.Database
    Dim tdf As DAO.TableDef

        Set mdb = Access.Application
        Set db = mdb.CurrentDb

        For Each tdf In db.TableDefs
            If LCase(Left(tdf.Name, 4)) <> "msys" Then
                If Len(tdf.Connect) > 0 Then
                    tdf.RefreshLink
                End If
            End If
        Next tdf

End Sub