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

刷新链接表时检测MS Access

1 个答案: