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
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.