Saber utilizar un control ProgressBar ActiveX en Microsoft Office Access puede hacer su aplicación más fácil de usar por ser capaz de mostrar al usuario el progreso de una tarea en particular. El acceso es un sistema de gestión de base de datos relacional que ofrece en la suite de Microsoft Office. Microsoft Visual Basic para Aplicaciones ( VBA) es un lenguaje de programación utilizado en Access para automatizar tareas rutinarias. Afortunadamente , VBA se puede utilizar para crear un control ProgressBar ActiveX y definir sus propiedades . Cosas que necesitará
Microsoft Access 2003
Ver Más instrucciones
1

Abra Microsoft Access 2003. Crear una nueva base de datos seleccionando " Nueva base de datos ", y luego seleccione " Crear". Haga clic en la pestaña " Formularios" y selecciona "Nuevo " para crear un nuevo formulario.

2 Haga clic en el menú " Insertar" y , a continuación, haga clic en "Control ActiveX ". Haga doble clic en "Control ProgressBar Microsoft " para agregar el control. Agregue un botón de comando seleccionando en el menú " Herramientas " . Izquierda - clic en el formulario y arrastre el ratón mientras se mantiene pulsado el botón del ratón. Agregar una etiqueta a la forma con la misma técnica . Haga clic en el nuevo botón de comando y, a continuación, seleccione " Crear evento ". Seleccione " Generador de código " en el cuadro de diálogo "Elegir Builder" . Haga clic en " Aceptar".
3

Copia y pega el siguiente a la ventana de "módulo " dentro del procedimiento de botón de comando para declarar las variables que va a utilizar :

prg Dim Como ProgressBar

intValue Dim As Long

fmín dévil como secuencia

fmáx dévil como secuencia

FSTEP Dim As String Dim

strComplete As String
4

Escriba el siguiente para establecer el mínimo, máximo y el paso por el control de barra de progreso :

fmin = 1

fmáx = 20 < br >

FSTEP = 2
5

Escriba lo siguiente para definir la variable " prg ", como el control de barra de progreso :

Set prg = Me ProgressBar0.Object
página 6

Escriba el siguiente bucle desde el valor mínimo hasta el valor máximo durante la actualización del control de barra de progreso :

¿

intValue = intValue + FSTEP
< p > Si intValue > = prg.Max Entonces

intValue = prg.Max

End If

prg.Value = intValue

strComplete = Format ( ( prg.Value /prg.Max ) * 100 , "# #") & _

"% completo "

Label1.Caption = strComplete

DoCmd.RepaintObject

Loop While intValue < prg.Max
7

Haga clic en el formulario y , a continuación, haga clic en " Vista formulario . " Haga clic en " Button1 ", que se ejecutará el código de procedimiento para rellenar el control ProgressBar ActiveX.