Progress meter Help

[Michael]

My progress meter shows up a gray for a few seconds then turns green
and goes to 100 percent right away, then it dissappears and I just
see the "proccessing data" for more than 90% of the processing time. I
have tryed the update statemetn before and after the movenext
statement

What am i missing?

rstCount = rst.RecordCount
Application.SysCmd acSysCmdInitMeter, "processing data....", rstCount

Do Until rst.EOF
' code processing data from snipped out

rstCount = rstCount - 1
rstPercent = rstPercent + 1
Application.SysCmd acSysCmdUpdateMeter, rstPercent

rst.Update
rst.MoveNext

Loop
Application.SysCmd acSysCmdRemoveMeter

 

[Tom van Stiphout]

On Wed, 22 Jul 2009 05:48:05 -0700 (PDT), Michael <[email protected]>
wrote:

Perhaps your recordcount is incorrect. You will have to:
rst.MoveLast
rst.MoveFirst
before it will be accurate. That's by design.

-Tom.
Microsoft Access MVP

 

[Roger Carlson]

Try adding a DoEvents line in your loop.

Do Until rst.EOF
' code processing data from snipped out

rstCount = rstCount - 1
rstPercent = rstPercent + 1
Application.SysCmd acSysCmdUpdateMeter, rstPercent
DoEvents
rst.Update
rst.MoveNext

Loop


--
--Roger Carlson
MS Access MVP
Access Database Samples: www.rogersaccesslibrary.com
Want answers to your Access questions in your Email?
Free subscription:
http://peach.ease.lsoft.com/scripts/wa.exe?SUBED1=ACCESS-L