CSD - Progress Bars

1. Go to MVP Sandra Daigle's site for some working examples:

http://www.daiglenet.com/msaccess.htm
(Download Progress Meter 2.0)

2. For a detailed visual walk-through, see this link:
http://www.datapigtechnologies.com/flashfiles/progressbar.html

3. MVP Arvin Meyer also has a sample here:
http://www.datastrat.com/Download/ProgressBar2K.zip

4. And here is a past post on this subject by MVP Sandra Daigle herself:

"I suggest avoiding the ActiveX control because of the issues that arise when dealing with ActiveX's. Instead you might want to consider using the built-in Progress meter or build your own.

Following is a simple example of how to use the system progress meter - look down in the lower left corner to see it working. Create a form with a single button, then paste this code into the Click event procedure for the button. Basically you initialize the progress meter with a number that represents how many intervals there are, then you make successive calls to update the progress meter with an incremental value. Finally you remove the meter. My example shows it as used in a looping procedure but you can also adapt this to a lengthy linear list of tasks.

You can create a more noticeable progress meter by using a rectangle control which you color based on the degree of completion of the task. My example of this is on www.daiglenet.com/msaccess.htm.

There is also a chapter in the Access Cookbook by Ken Getz, Paul Litwin, and Andy Baron which describes how to make a reusable progress meter. You can read this excerpt online at
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnacbk02/html/odc_cookbookchapter8.asp

FWIW, I also like using the progress meter control from the FMS product Total Access Components 2000. It has a richer set of features and can be displayed anywhere on the form. (www.fmsinc.com)."

'**************Code Start*********************
Private Sub Command12_Click()
Dim inti As Integer

'     Initialize the progress meter
Application.SysCmd acSysCmdInitMeter, "Doing Stuff", 10000

For inti = 1 To 5000
   Me.txtCounter = inti

   ' Increment the progress meter on each iteration
   Application.SysCmd acSysCmdUpdateMeter, inti
'     Occasionaly yield CPU to the OS so other stuff can happen
   '     the 77 is an arbitrary number - you can tune this however you
   '     want. You can leave this whole if...then out if you just want the loop
   '     to have all CPU till
   '     it is done
   If inti Mod 77 = 0 Then
       DoEvents
   End If
Next inti

'      Remove the meter
Application.SysCmd acSysCmdRemoveMeter

End Sub
'**************Code End*********************

5. Datafast Consulting has a sample database illustrating this here:

http://www.amazecreations.com/datafast/Download.aspx

(Look for the file called "Progress Meter Code")

6. Here is a Microsoft KB article on the subject.

How to simulate a progress bar in a form without using an ActiveX control in Access 2002:

http://support.microsoft.com/default.aspx?scid=kb;en-us;304581&Product=acc2002

7. Displaying a Progress Bar using the built in Status Bar
http://office-watch.com/access/archtemplate.asp?7-23
(In the Q & A section)

8. How to Create a Generic Reusable Status Meter:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnacbk02/html/ODC_CookbookChapter9.asp

9. More instructions can be found here:
http://www.databasedev.co.uk/query_progress_meter.html

10. Peter Schroeder has a sample file here on UtterAccess for study:
http://www.utteraccess.com/forums/showflat.php?Board=8&Number=1111396

11. Here is a nice download file called “Progress/Status Bars Demo Samples” by Oliver on UtterAccess:
http://tinyurl.com/7phrj

12. http://www.resources.intuidev.com/
(Look for sample called ProgressBar Demo)

13. Another good example can be downloaded from here:
http://www.access-programmers.co.uk/forums/showthread.php?t=130802

Top

This page was last updated on Thursday, September 13, 2007.