Barre de progression

Access 97 | Compatible |
Access 2003 | Non testé |

Utilisé dans Cantor (VFE).

Code trouvé sur le site de Walter Stucki.

Le défilement de la barre de progression n’est efficace que si plusieurs actions successives se déroulent.
Par exemple si plusieurs commandes d’ouvertures de requêtes ont lieu.

Créer sur son formulaire :

• Un contrôle étiquette qui servira de fond à la barre de progression (Nommez-le comme vous voulez) :
  largeur : 7,123cm
  hauteur : 0,501cm
  contenu : I
  (La valeur du contenu n’a pas d’importance, mais le « i » majuscule a l’avantage de se voir le moins...)
  couleur fond : rouge
  couleur texte : rouge
  bordure : 3D enfoncé

• Un contrôle Zone de texte (Supprimer l’étiquette) :
  nom : txtProgression
  largeur : 0,053cm
  hauteur : 0,42cm
  couleur fond : bleu marine
  couleur texte : jaune
  bordure : sans
  Alignez le sur la barre de fond et à gauche.

• Code à insérer sur un évènement (Bouton sur click par exemple) : 'Le code pour la barre de progression vient du site de Walter Stucki : 'http://mypage.bluewin.ch/w.stucki/Formulaires.htm#BarreProgression 'Partie A : Dim intX As Integer, intZ As Integer ' Mettre ici l'action 'Partie B : For intX = 1 To 100 ' vu que la boucle s'exécute rapidement on ajoute une pause For intZ = 1 To 60 DoEvents Next intZ ' Mise à jour de la barre de progression. On donne une valeur entre 1 et intX Me!txtProgression = intX & "%" Me!txtProgression.Width = 40 * intX Next intX ' Mettre ici l'action suivante 'Partie C : ' Message final facultatif Me!txtProgression = "Opération terminée"

Par exemple si il y a 4 requêtes à exécuter, celà donne :

Partie A (Déclaration des variables)

Requête 1
Partie B (For intX = 1 To 25)

Requête 2
Partie B (For intX = 26 To 50)

Requête 3
Partie B (For intX = 51 To 75)

Requête 4
Partie B (For intX = 76 To 100)

Partie C