是否有方法可以检测用户何时在Access中按下Refresh All或Refresh?我希望在刷新表时运行VBA脚本。如果没有办法,如何使用VBA刷新所有链接表?我只知道刷新/重新查询表单。
发布于 2020-02-09 21:15:53
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
https://stackoverflow.com/questions/55943633
复制相似问题