Detect a field edit in Excel and refresh a Query
Private Sub Worksheet_Change(ByVal Target As Range) Dim wks As Worksheet Set wks = ActiveSheet If Target.Row = 1 And Target.Column = 1 Then wks.QueryTables(1).Refresh End If Set wks = Nothing End Sub
DZone Snippets > davetrane > access
12390 users tagging and storing useful source code snippets
Snippets is a public source code repository. Easily build up your personal collection of code snippets, categorize them with tags / keywords, and share them with the world
David Davis rsswire.info
Private Sub Worksheet_Change(ByVal Target As Range) Dim wks As Worksheet Set wks = ActiveSheet If Target.Row = 1 And Target.Column = 1 Then wks.QueryTables(1).Refresh End If Set wks = Nothing End Sub