Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access Problème sur Barre de progression

Problème sur Barre de progression

3 réponses
Avatar
NetChris
Bonjour Ami(e)s programmeurs,

J'ai un traitement sur 6500 enregs environ, avec une boucle du premier au
dernier enreg.
Le traitement marche super !
Mais impossible d'afficher la barre de progression pendant le traitement (si
je stop le traitement, je vois bien l'avancement de la barre, mais pas
pendant !)
Pourtant cette séquence est bien dans le boucle, et la barre de statut
affiche bien mon % et la valeur de Me.txtProgression.Width
J'ai vérifié .visible, .enabled, ....et la couleur ! Je
bloque !

VarX = RsCF.RecordCount
Do Until RsCF.EOF 'boucle
...
...
'Affichage de la progression + barre de statut
Me.txtProgression = Format$((intX / VarX), "0.00%")
Me.txtProgression.Width = MaLongueur * (intX / VarX)
DoCmd.Echo True, Format((intX / VarX), "0.00%") & " " &
Me.txtProgression.Width & "/" & VarX
...
...
RsCF.MoveNext
intX = intX + 1
Loop


NetChris
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
NetChris
J'ai résolu mon problème en ajoutant une boucle de temporisation. (avec
Doevents)

"NetChris" a écrit dans le message de
news:bjhjm9$go1$
Bonjour Ami(e)s programmeurs,

J'ai un traitement sur 6500 enregs environ, avec une boucle du premier au
dernier enreg.
Le traitement marche super !
Mais impossible d'afficher la barre de progression pendant le traitement
(si

je stop le traitement, je vois bien l'avancement de la barre, mais pas
pendant !)
Pourtant cette séquence est bien dans le boucle, et la barre de statut
affiche bien mon % et la valeur de Me.txtProgression.Width
J'ai vérifié .visible, .enabled, ....et la couleur !
Je

bloque !

VarX = RsCF.RecordCount
Do Until RsCF.EOF 'boucle
...
...
'Affichage de la progression + barre de statut
Me.txtProgression = Format$((intX / VarX), "0.00%")
Me.txtProgression.Width = MaLongueur * (intX / VarX)
DoCmd.Echo True, Format((intX / VarX), "0.00%") & " " &
Me.txtProgression.Width & "/" & VarX
...
...
RsCF.MoveNext
intX = intX + 1
Loop


NetChris





Avatar
Raymond
Bonjour.

Tu devrais savoir qu'on reste dans le même fil. heureusement que j'ai donné
la même réponse.
bonne journée.
--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.


"NetChris" a écrit dans le message de
news:bjhr7a$7mq$
J'ai résolu mon problème en ajoutant une boucle de temporisation. (avec
Doevents)



Avatar
NetChris
Désolé Raymond,

Mais l'affichage de mon poste a mis près de 40 minutes à s'afficher. Croyant
à une mauvaise manip de ma part, j'ai recréé un nouveau post.

Merci encore.

"Raymond" a écrit dans le message de
news:
Bonjour.

Tu devrais savoir qu'on reste dans le même fil. heureusement que j'ai
donné

la même réponse.
bonne journée.
--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.


"NetChris" a écrit dans le message de
news:bjhr7a$7mq$
J'ai résolu mon problème en ajoutant une boucle de temporisation. (avec
Doevents)