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