Leer en inglés

Compartir a través de

Usar el indicador de progreso de la barra de estado

  • Artículo

En este tema se muestra cómo usar el método SysCmd para crear un medidor de progreso en la barra de estado que proporciona una representación visual del progreso de una operación que tiene una duración conocida o un número de pasos.

Se pueden utilizar tres constantes intrínsecas con el argumento action del método SysCmd para manipular el indicador de progreso en la barra de estado. La tabla siguiente las describe.

Constante intrínseca Descripción
acSysCmdInitMeter Inicializa el indicador de progreso. El valor máximo que alcanzará el proceso se especifica en el argumento value del método SysCmd.
acSysCmdUpdateMeter Actualiza el indicador de progreso. Una expresión numérica que representa el progreso actual hasta la finalización se especifica en el argumento value del método SysCmd.
acSysCmdRemoveMeter Quita el indicador de progreso.

El procedimiento siguiente utiliza el método SysCmd para actualizar el indicador de progreso mientras los datos de la tabla Customers (Clientes) se imprimen en la Ventana Inmediato.

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. 
   MyTable.MoveLast 
   Count = MyTable.RecordCount 
 
   ' Move back to first record. 
   MyTable.MoveFirst 
 
   ' 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. 
      MyTable.MoveNext 
   Next Progress_Amount 
 
   ' Remove the progress meter. 
   SysCmd acSysCmdRemoveMeter 
         
End Sub

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.