BeforeRefresh Event Example
This example runs before the query table is refreshed.
Private Sub QueryTable_BeforeRefresh(Cancel As Boolean) a = MsgBox("Refresh Now?", vbYesNoCancel) If a = vbNo Then Cancel = True MsgBox Cancel End Sub