Would like to show elasped time while task runs.

[JockB]

Hi All,
Need help with this one. I have a task under Access that takes
about 1 hour to complete and I would like to display the time since the task
started updated every say 5 min. Just not sure were to start with this. Don't
mind were on the screen it displays, but would like it on top.

 

[Alex Dybenko]

Hi,
you can use form's timer event to update textbox with time on it, just do
not forget to add doevents there, so screen will be refreshed

--
Best regards,
___________
Alex Dybenko (MVP)
http://accessblog.net
http://www.PointLtd.com

 

[JockB]

Thanks Alex,
You pointed me in the right direction where I found this
and modified it for my job.

Private Sub Form_Timer()
'If Label1 is visible, hide it, otherwise show it
If Me.Label2.Visible = True Then
Me.Label2.Visible = False
Else
Me.Label2.Visible = True
End If

'Decrement the timer interval, causing the
'label to flash more quickly
Me.TimerInterval = Me.TimerInterval - 50

'Once the timer interval becomes zero,
'make the label visible
If Me.TimerInterval = 0 Then
Me.Label2.Visible = True
End If
End Sub