Action Query stops Form from refreshing

[jancheta]

I am trying display the elapsed time when an action query is being ran. The problem I'm encountering is that when the query runs, the form is not updated. I placed Me.Repaint and Doevents but the text box will still not update.

----
FORM1
-----
'I have a text box called ElapsedTime and a button called cmdRun
'
Option Compare Database
Option Explicit
Dim TotalElapsedMilliSec As Long
Dim StartTickCount As Long
Private Declare Function GetTickCount Lib "kernel32" () As Long

Private Sub cmdRun_Click()
Dim mydb As Database, qdf As QueryDef
StartTickCount = GetTickCount()
Me.TimerInterval = 15
Set mydb = CurrentDb
Set qdf = mydb.CreateQueryDef("", "sql - action query&quot
qdf.Execute dbFailOnError
Me.TimerInterval = 0
End Sub

Sub Form_Timer()
Dim Hours As String, Minutes As String, Seconds As String
Dim MilliSec As String, Msg As String, ElapsedMilliSec As Long
ElapsedMilliSec = (GetTickCount() - StartTickCount) + _
TotalElapsedMilliSec
Hours = Format((ElapsedMilliSec \ 3600000), "00&quot
Minutes = Format((ElapsedMilliSec \ 60000) Mod 60, "00&quot
Seconds = Format((ElapsedMilliSec \ 1000) Mod 60, "00&quot
MilliSec = Format((ElapsedMilliSec Mod 1000) \ 10, "00&quot
Me!ElapsedTime = Hours & ":" & Minutes & ":" & Seconds & ":" _
& MilliSec
End Sub

Then I created another Form that opens when the cmdRun is clicked with the same fashion as above thinking that this form might be refreshed, but it didn't as well.

Jason