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) :

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