'*********************************************************
' Progresando1
' 
' Procedimiento que demuestra con un ejemplo sencillo
' cómo hacer avanzar la barra de progreso de la barra de
' estado de Access.
'
' Progresando2
' 
' Procedimiento que demuestra con un ejemplo sencillo
' cómo cambiar el texto de la barra de estado y mostrar
' otro tipo de progreso
'
' Espera
'
' Rutina que se ejecuta un determinado período de tiempo
'
'
Sub Progresando1()
Dim i As Integer

  ' Iniciamos la barra de progreso, indicando
  ' el texto que se verá y su longitud total
  Call SysCmd(acSysCmdInitMeter, "Progresando...", 5)

  ' hacemos un ciclo de 5 veces
  For i = 1 To 5
    ' hacemos que avance una vez
    Call SysCmd(acSysCmdUpdateMeter, i)
    ' esperamos 1 segundo
    Call Espera(1)
  Next

  ' restablecemos la barra de estado
  Call SysCmd(acSysCmdClearStatus)

End Sub

Sub Progresando2()
Dim i As Integer

    ' Hacemos un ciclo de 5 veces
    For i = 5 To 1 Step -1
        ' Escribimos un texto que cambia
        Call SysCmd(acSysCmdSetStatus, _
        "Este texto se autodestruirá en " _
        & i & " segundos ...")
        ' esperamos 1 segundo
        Espera 1
    Next

    ' restablecemos la barra de estado
    Call SysCmd(acSysCmdClearStatus)

End Sub

Sub Espera(TiempoEspera As Double)
Dim Comienzo As Double
    
    Comienzo = Timer
    Do While Timer < Comienzo + TiempoEspera
        DoEvents
    Loop

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