'Crea un módulo nuevo y pega este código. Nombre: basDemoSysCmd

Option Compare Database
Option Explicit

'Se puede utilizar también como código detras de cualquier formulario.

Sub demoSysCmd()
'From: "happy" <happy@ya.com>
'Newsgroups: es.comp.bd.ms -Access
'Subject: Re: progress bar
'Date: Sat, 23 Mar 2002 21:11:36 +0100

'Modificado: 23/03/2002
'Por: Mcpegasus <mcpegasus@iespana.es>

    Dim dblPausa As Double
    Dim dblInicio As Double
    Dim intContador As Integer
    
    dblPausa = 0.01
    'Aquí inicializamos (constante acSysCmdInitMeter) el texto _
    y el valor total de la barra de progreso.
    Call SysCmd(acSysCmdInitMeter, "Demo de Progreso ...", 100)
    'Hacemos un contador de tiempo para probar el método
    For intContador = 1 To 100
        dblInicio = Timer
        Do While Timer < dblInicio + dblPausa
            DoEvents
        Loop
        'Aquí actualizamos (constante acSusCmdUpdateMeter) _
        el valor de la barra de progreso.
        Call SysCmd(acSysCmdUpdateMeter, intContador)
    Next
    'Aquí dejamos la barra de estado como estaba.
    Call SysCmd(acSysCmdClearStatus)

End Sub