Table of contents
Collapse the table of content
Expand the table of content

Use the Status Bar Progress Meter

office 365 dev account|Last Updated: 6/12/2017
1 Contributor

This topic shows how to use the SysCmd method to create a progress meter on the status bar that gives a visual representation of the progress of an operation that has a known duration or number of steps.

There are three intrinsic constants that can be used with the SysCmd method's action argument to manipulate the progress meter on the status bar. The following table describes them.

Intrinsic constantDescription
acSysCmdInitMeterInitialize the progress meter. The maximum value that the process will attain is specifed in the SysCmd method's value argument.
acSysCmdUpdateMeterUpdate the progress meter. A numeric expression that represents the current progress toward completion is specified in the SysCmd method's value argument.
acSysCmdRemoveMeterRemove progress meter.

The following procedure uses the SysCmd method to update the progress meter as data from the Customers table is printed in the Immediate window.

Sub ProgressMeter() 
   Dim MyDB As DAO.Database, MyTable As DAO.Recordset 
   Dim Count As Long 
   Dim Progress_Amount As Integer 

   Set MyDB = CurrentDb() 
   Set MyTable = MyDB.OpenRecordset("Customers") 

   ' Move to last record of the table to get the total number of records. 
   Count = MyTable.RecordCount 

   ' Move back to first record. 

   ' Initialize the progress meter. 
    SysCmd acSysCmdInitMeter, "Reading Data...", Count 

   ' Enumerate through all the records. 
   For Progress_Amount = 1 To Count 
     ' Update the progress meter. 
      SysCmd acSysCmdUpdateMeter, Progress_Amount 

     'Print the contact name and number of orders in the Immediate window. 
      Debug.Print MyTable![ContactName]; _ 
                  DCount("[OrderID]", "Orders", "[CustomerID]='" &; MyTable![CustomerID] &; "'") 

     ' Go to the next record. 
   Next Progress_Amount 

   ' Remove the progress meter. 
   SysCmd acSysCmdRemoveMeter 

End Sub
© 2018 Microsoft