I am attempting to override the default "Run Query" status bar that appears with my own to show overall progress.
This does work, however the "Run Query" part still flashes behind mine. Can someone provide guidance on how to display only my progress meter?
Code:
Set rs1 = CurrentDb.OpenRecordset(sqlStr)
If rs1.RecordCount = 0 Then
Resume Next
Else
rs1.MoveLast
rs1.MoveFirst
recTotal = rs1.RecordCount
Application.SysCmd acSysCmdInitMeter, "Progress:", recTotal
Do While Not rs1.EOF
<query code>
recProcess = recProcess + 1
SysCmd acSysCmdUpdateMeter, recProcess
rs1.MoveNext
Loop
On Error Resume Next
End If
SysCmd acSysCmdRemoveMeter
This does work, however the "Run Query" part still flashes behind mine. Can someone provide guidance on how to display only my progress meter?