Savoir comment utiliser un contrôle ProgressBar ActiveX dans Microsoft Office Access peut rendre votre application plus conviviale en étant capable de montrer un utilisateur l'état d'avancement d'une tâche particulière . Access est un système de gestion de base de données relationnelle proposé dans la suite Microsoft Office . Microsoft Visual Basic pour Applications ( VBA) est un langage de programmation informatique utilisé dans Access pour automatiser des tâches de routine. Heureusement, VBA peut être utilisé pour créer un contrôle ProgressBar ActiveX et définir ses propriétés. Choses que vous devez
Microsoft Access 2003
Voir Plus Instructions
1

Ouvrez Microsoft Access 2003. Créer une nouvelle base de données en sélectionnant " Nouvelle base de données ", puis sélectionner "Créer". Cliquez sur l'onglet «Formulaires» et sélectionner "Nouveau" pour créer une nouvelle forme .
2

Cliquez sur le menu " Insertion", puis cliquez sur " contrôle ActiveX ". Double -cliquez sur " contrôle ProgressBar Microsoft " pour ajouter le contrôle . Ajouter un bouton de commande en le sélectionnant dans le menu " Outils " . Gauche - cliquez sur le formulaire et faites glisser votre souris tout en maintenant le bouton de la souris . Ajouter une étiquette sur le formulaire en utilisant la même technique. Cliquez-droit sur le nouveau bouton de commande , puis sélectionnez " Créer l'événement . " Sélectionnez " Générateur de code " de la boîte de dialogue "Choisir Builder " . Cliquez sur « OK ».
3

Copiez et collez le texte suivant dans la fenêtre "Module" dans la procédure de bouton de commande pour déclarer les variables que vous allez utiliser :

prg Dim comme ProgressBar

IntValue As long

fmin Dim As String

fmax Dim As String

FSTEP Dim As String

Dim strComplete As String
4 Type de

ce qui suit pour régler le min , max et l'étape pour le contrôle de votre barre de progression :

fmin = 1

fmax = 20 < br >

FSTEP = 2
5

Tapez la commande suivante pour définir la variable "prg " que le contrôle de barre de progression :

Set prg = Me ProgressBar0.Object

6

Tapez la commande suivante à la boucle de la valeur min à la valeur max en mettant à jour l'état d'avancement contrôle de barre :

Do

IntValue = IntValue + FSTEP
< p > Si IntValue > = prg.Max Puis

IntValue = prg.Max

End If

prg.Value = IntValue

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

" % achevé "

Label1.Caption = strComplete

DoCmd.RepaintObject

Loop While IntValue < prg.Max
7

clic droit sur le formulaire, puis cliquez sur « formulaire. " Cliquez sur " Button1 ", qui va exécuter le code de procédure pour remplir le contrôle ProgressBar ActiveX.