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