I would like to measure the amount of time that it takes for a query to run after changing the control source.
This is my answer ... works perfectly. And it is very close to the MS solution linked below. Just in case .. someone else needs a good timing function.
http://support.microsoft.com/kb/233275
Basically .. this below, from another Access forum. Kinda sad.
Private Declare Function GetTickCount Lib "kernel32" () As Long
Sub mytimer()
Dim timers(2) As Long
timers(1) = GetTickCount
--- insert code here ------
timers(2) = GetTickCount
MsgBox (timers(1) & " " & timers(2) & " Elapsed ms: " & timers(2) - timers(1))
End Sub