count seconds until report opens and cast elapsed time to progress

S

Savelie

Hi,

I want the progress bar to count time untill report opens. Now, I have the
progress that iterates through rows and thus does not reflect the elapsed
time till report is generated. I would like to change the code below
(by Achim Ennenbach) to get start time of:

'generates report
DoCmd.OpenReport "tblProductsReport", acViewPreview

and end time in order to feed start and finish time for the iteration below:

Dim i As Integer, X As Integer
X = InitStatus("Count to " & Report.Count - 1, "Current value: 0",
Int(Report.Count - 1))
If X = False Then GoTo EXIT_SUB
For i = 0 To Report.Count - 1
X = SetStatus("Current value: " & i, i)
If X = False Then GoTo EXIT_SUB
Next i

'exit from progress meter if X = False
EXIT_SUB:
X = ResetStatus()

thanks
 
Top