How to Use a Progress Meter in Access

ADezii

Many Access Users fail to realize that it has a built-in Progress Meter that can display the relative completion percentage of various processes. It is fairly limited, but nonetheless, does provide visual feedback indicating the percent completion of a certain task. The Meter itself, when activated, rests on the left hand corner of the Status Bar and is controlled via the SysCmd() Method. It is straightforward, simple to use, and involves only 3 steps to implement it, These steps are listed below. Following these steps, a code segment involving the updating of a Field within a Recordset, will demonstrate its use.

Initiate the Meter using the acSysCmdInitMeter Action Argument, descriptive text, and a Value Argument which is the Maximum Value of the Meter.
Periodically update the Meter with the acSysCmdUpdateMeter Action Argument and a Value Argument indicating the relative progress of the task at hand.
Remove the Meter using the acSysCmdClearStatus.

Expand|Select|Wrap|Line Numbers

 'The following code will loop through all Records in tblEmployee

and Update the value in a newly created Field called [Full Name] 

to [FirstName] & " " & [LastName]. The relative completion percentage 

of this operation will be displayed in our Progress Meter.
 
Dim MyDB As DAO.Database, MyRS As DAO.Recordset

Dim varReturn, intCounter As Long, dblNum, intNoOfRecs As Long
 
Set MyDB = CurrentDb()

Set MyRS = MyDB.OpenRecordset("tblEmployee", dbOpenDynaset)
 
MyRS.MoveLast: MyRS.MoveFirst

intNoOfRecs = MyRS.RecordCount
 
 'Initialize the Progress Meter, set Maximum Value = intNoOfRecs
 
varReturn = SysCmd(acSysCmdInitMeter, "Updating...", intNoOfRecs)
 
Do While Not MyRS.EOF

  With MyRS

    .Edit

      ![Full Name] = ![FirstName] & " " & ![LastName]

        intCounter = intCounter + 1

        'Update the Progress Meter to (intCounter/intNoOfRecs)%
 
        varReturn = SysCmd(acSysCmdUpdateMeter, intCounter)    .Update

        .MoveNext

  End With

Loop
 
 'Remove the Progress Meter
 
varReturn = SysCmd(acSysCmdClearStatus)
 
MyRS.Close

NOTE: If updating a large Recordset, you may wish to periodically relinquish control to the Windows Environment using DoEvents. If anyone is interested in how to do this, please let me know,

PCurtin

I am using syscmd for the meter....if I do not stay on the screen and go to another application, when I try to come back to the screen it does not update the meter anymore....I have the same thing with msgbox.

wassimdaccache

Very useful code thank you

I'm using a full screen form am I able to change the place of the update meter ? for example having it as msgbox in my form ..

I'm interesting in DoEvents because I'm using a very large recordset (more than 1000 000 records/ table ) I'm always have delay if I want to select a record in the recordset or navigate using loop ...

Can u explain for me the best way to search a value in a very large recordset ?
Does memories (ram) || cash memory || CPU frequencies || system heat are factors to change the speed of getting a value in a recordset ?

ADezii

Quote:

Originally Posted by wassimdaccache

Very useful code thank you

I'm using a full screen form am I able to change the place of the update meter ? for example having it as msgbox in my form ..

I'm interesting in DoEvents because I'm using a very large recordset (more than 1000 000 records/ table ) I'm always have delay if I want to select a record in the recordset or navigate using loop ...

Can u explain for me the best way to search a value in a very large recordset ?
Does memories (ram) || cash memory || CPU frequencies || system heat are factors to change the speed of getting a value in a recordset ?

The most efficient and fastest way to search for a value in a very large Recordset is by using the Seek() Method. It must, however, be based on a Table Type Recordset. Everything you mentioned is more than likely a factor that effects the speed with which searches can be done, but one of the most critical factors, in my opinion, is whether or not the Field is Indexed.

rcollins

Here is the error I am getting now: "You can't reference a property or method for a control unless the control has the focus."
Here is my exact code for picking from two choises. I only get this error on the first choice, but don't get anything in the text box with the second one.

Expand|Select|Wrap|Line Numbers

 
Private Sub StandardizedAllocation_AfterUpdate()

If StandardizedAllocation.Text = "HOUSE MEETINGS:" Then StandardizedAllocationSumm.Text = "Consult with direct care staff ongoing medical concerns and plan of care."

If StandardizedAllocation.Text = "MD Appt.Prep:" Then StandardizedAllocationSumm.Text = "Case file reviewed for pending medical appointment.  Plan of care reviewed and updated."
 
End Sub

ADezii

Quote:

Originally Posted by rcollins

Here is the error I am getting now: "You can't reference a property or method for a control unless the control has the focus."
Here is my exact code for picking from two choises. I only get this error on the first choice, but don't get anything in the text box with the second one.

Expand|Select|Wrap|Line Numbers

 
Private Sub StandardizedAllocation_AfterUpdate()

If StandardizedAllocation.Text = "HOUSE MEETINGS:" Then StandardizedAllocationSumm.Text = "Consult with direct care staff ongoing medical concerns and plan of care."

If StandardizedAllocation.Text = "MD Appt.Prep:" Then StandardizedAllocationSumm.Text = "Case file reviewed for pending medical appointment.  Plan of care reviewed and updated."
 
End Sub

You use the Text property to set or return the text contained in a Text Box or in the text box portion of a Combo Box. It is a Read/write String. To set or return a control's Text property, the Control must have the focus, or an error occurs. If you are just concerned with setting/retrieving the value in the Control itself, then adjust your code to:

Expand|Select|Wrap|Line Numbers

 Private Sub StandardizedAllocation_AfterUpdate()

If Me![StandardizedAllocation] = "HOUSE MEETINGS:" Then   

  Me![StandardizedAllocationSumm] = "Consult with direct care staff ongoing medical concerns and plan of care."

ElseIf Me![StandardizedAllocation] = "MD Appt.Prep:" Then   

  Me![StandardizedAllocationSumm] = "Case file reviewed for pending medical appointment.  Plan of care reviewed and updated."

Else

  'not sure what you want to do here, if anything

End If

End Sub

rcollins

Awesome, sorry I posted this in the wrong place, but working on three databases at the same time. Worked perfect.

How to Use a Progress Meter in Access

re: How to Use a Progress Meter in Access

re: How to Use a Progress Meter in Access

re: How to Use a Progress Meter in Access

re: How to Use a Progress Meter in Access

re: How to Use a Progress Meter in Access

re: How to Use a Progress Meter in Access

Similar Microsoft Access / VBA bytes

/bytes/development

/bytes/it

/bytes/about