Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Barre de progression pendant sauvegarde

8 réponses
Avatar
Luis
Bonjour,
J'aimerai savoir comment introduire une fonction de barre=20
progression dans l'action de sauvegarde suivante:

If Not=20
AppOK """MSACCESS.EXE"" ""C:\Data\Mabase.mdb"" /compact""z:
\Data\Mabase.mdb""") Then msgbox "Erreur ex=E9cution"

Pour que le temps d'attente pendant le travail se fasse=20
moins long.
Merci pour votre aide

8 réponses

Avatar
Raymond [mvp]
RE.

Tu ne pourras pas faire une barre de progression réelle indiquant la vrai
progression du compactage. A la limite tu peux faire une barre fictive que
tu fais boucler de 1 à 100, pour faire patienter l'utilisateur.

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Luis" a écrit dans le message de
news:b16001c47974$5afb91a0$
Bonjour,
J'aimerai savoir comment introduire une fonction de barre
progression dans l'action de sauvegarde suivante:

If Not
AppOK """MSACCESS.EXE"" ""C:DataMabase.mdb"" /compact""z:
DataMabase.mdb""") Then msgbox "Erreur exécution"

Pour que le temps d'attente pendant le travail se fasse
moins long.
Merci pour votre aide
Avatar
Luis
Bonjour Raymond,
Pourquoi est-ce qu'on ne peut pas lancer une barre de
progrssion.
Et une barre fictive comment est-ce que je la lance au
départ de la sauvegarde?
Merci pour ton aide.
Luis
-----Message d'origine-----
RE.

Tu ne pourras pas faire une barre de progression réelle
indiquant la vrai

progression du compactage. A la limite tu peux faire une
barre fictive que

tu fais boucler de 1 à 100, pour faire patienter
l'utilisateur.


--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Luis" a écrit dans
le message de

news:b16001c47974$5afb91a0$
Bonjour,
J'aimerai savoir comment introduire une fonction de barre
progression dans l'action de sauvegarde suivante:

If Not
AppOK """MSACCESS.EXE"" ""C:DataMabase.mdb"" /compact""z
:

DataMabase.mdb""") Then msgbox "Erreur exécution"

Pour que le temps d'attente pendant le travail se fasse
moins long.
Merci pour votre aide


.



Avatar
Raymond [mvp]
Bonjour Luis.

dans le déroulement de ta sauvegarde, access ne te retournera pas l'état de
l'avancement de la tâche et tu ne pourras pas alimenter ta barre de
progression. pour être en synchro, il faudrait que tu ais la taille totale
et la taille sauvegardée ou restante toutes les secondes par exemple et
ainsi tu pourrais alimenter la barre.
La barre fictive est une barre que tu alimentes de x% toutes les secondes
par exemple dans l'événement timer du formulaire qui a lancé la sauvegarde.
l'avancement ne reflète pas l'avancement de la sauvegarde. quand tu arrives
à 100 % tu repars à 0. ça fait croire à l'utilisateur que ça avance et le
départ à 0 fait croire à un changement de fichier.

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Luis" a écrit dans le message de
news:bd8901c479f8$f8410ec0$
Bonjour Raymond,
Pourquoi est-ce qu'on ne peut pas lancer une barre de
progrssion.
Et une barre fictive comment est-ce que je la lance au
départ de la sauvegarde?
Merci pour ton aide.
Luis
Avatar
Bonjour Raymond,
J'ai essayé ça:
Dim X As Integer
For X = 1 To 100
Call UpdateProgressMeter("Veuillez patienter, pendant
la mise à jour...", X, 100, "Sauvegarde de vos données", X
& "/" & 100)
DoEvents

If Not
AppOK """MSACCESS.EXE"" ""C:DataMabase.mdb"" /compact""z:
DataMabase.mdb""") Then msgbox "Erreur exécution"

Next X

mais c'est la fenêtre base de données Access qui s'ouvre
au lieu de la barre et ensuite, il se crée un mouvement
sans fin d'ouverture et de fermeture de l'action
sauvegarde.
Merci.
Luis
-----Message d'origine-----
Bonjour Luis.

dans le déroulement de ta sauvegarde, access ne te
retournera pas l'état de

l'avancement de la tâche et tu ne pourras pas alimenter
ta barre de

progression. pour être en synchro, il faudrait que tu ais
la taille totale

et la taille sauvegardée ou restante toutes les secondes
par exemple et

ainsi tu pourrais alimenter la barre.
La barre fictive est une barre que tu alimentes de x%
toutes les secondes

par exemple dans l'événement timer du formulaire qui a
lancé la sauvegarde.

l'avancement ne reflète pas l'avancement de la
sauvegarde. quand tu arrives

à 100 % tu repars à 0. ça fait croire à l'utilisateur que
ça avance et le

départ à 0 fait croire à un changement de fichier.

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Luis" a écrit dans
le message de

news:bd8901c479f8$f8410ec0$
Bonjour Raymond,
Pourquoi est-ce qu'on ne peut pas lancer une barre de
progrssion.
Et une barre fictive comment est-ce que je la lance au
départ de la sauvegarde?
Merci pour ton aide.
Luis


.



Avatar
Raymond [mvp]
passe par une barre personnelle:
http://access.jessy.free.fr/htm/DownLoad/ProgressBar.htm
http://access.seneque.free.fr/bases_exemples.htm N° 12,12a, 12b
il ne faut pas mettre ta sauvegarde dans une boucle.
dans les exemple de de barres ci-dessus, on passe par l'événement timer et
non une boucle.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


a écrit dans le message de
news:bfb601c479ff$38ea3130$
Bonjour Raymond,
J'ai essayé ça:
Dim X As Integer
For X = 1 To 100
Call UpdateProgressMeter("Veuillez patienter, pendant
la mise à jour...", X, 100, "Sauvegarde de vos données", X
& "/" & 100)
DoEvents

If Not
AppOK """MSACCESS.EXE"" ""C:DataMabase.mdb"" /compact""z:
DataMabase.mdb""") Then msgbox "Erreur exécution"

Next X

mais c'est la fenêtre base de données Access qui s'ouvre
au lieu de la barre et ensuite, il se crée un mouvement
sans fin d'ouverture et de fermeture de l'action
sauvegarde.
Merci.
Luis
Avatar
Luis
Bonjour Raymond,
J'ai pris la barre 12b et j'ai fait ça:

' ouvrir la barre de progression
Pbar.Ouvrir
' charger la minuterie en
1/1000 de seconde.
Pbar.Minuterie 300 ' mettre 0 si avance manuelle
' si <> 0 , barre indépendante
inaccessible sauf fermeture


If Not
AppOK """MSACCESS.EXE"" ""C:DataMabase.mdb"" /compact""z:
DataMabase.mdb""") Then msgbox "Erreur exécution"
' fermer la barre de progression
Pbar.Fermer

mais pas de barre de progression qui s'ouvre.
Sais-tu pourquoi?
Luis
-----Message d'origine-----
passe par une barre personnelle:
http://access.jessy.free.fr/htm/DownLoad/ProgressBar.htm
http://access.seneque.free.fr/bases_exemples.htm N°
12,12a, 12b

il ne faut pas mettre ta sauvegarde dans une boucle.
dans les exemple de de barres ci-dessus, on passe par
l'événement timer et

non une boucle.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


a écrit dans le
message de

news:bfb601c479ff$38ea3130$
Bonjour Raymond,
J'ai essayé ça:
Dim X As Integer
For X = 1 To 100
Call UpdateProgressMeter("Veuillez patienter, pendant
la mise à jour...", X, 100, "Sauvegarde de vos données", X
& "/" & 100)
DoEvents

If Not
AppOK """MSACCESS.EXE"" ""C:DataMabase.mdb"" /compact""z
:

DataMabase.mdb""") Then msgbox "Erreur exécution"

Next X

mais c'est la fenêtre base de données Access qui s'ouvre
au lieu de la barre et ensuite, il se crée un mouvement
sans fin d'ouverture et de fermeture de l'action
sauvegarde.
Merci.
Luis


.



Avatar
Raymond [mvp]
passe ton formulaire par mail.

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Luis" a écrit dans le message de
news:c14c01c47a1d$e79af930$
Bonjour Raymond,
J'ai pris la barre 12b et j'ai fait ça:

' ouvrir la barre de progression
Pbar.Ouvrir
' charger la minuterie en
1/1000 de seconde.
Pbar.Minuterie 300 ' mettre 0 si avance manuelle
' si <> 0 , barre indépendante
inaccessible sauf fermeture


If Not
AppOK """MSACCESS.EXE"" ""C:DataMabase.mdb"" /compact""z:
DataMabase.mdb""") Then msgbox "Erreur exécution"
' fermer la barre de progression
Pbar.Fermer

mais pas de barre de progression qui s'ouvre.
Sais-tu pourquoi?
Luis
Avatar
Raymond [mvp]
il y a un problème d'incompatibilité en cas d'erreur appok et ça plante
access avec cet api. il n'y a pas grand chose à faire.
tu peux toujours mettre un timer sur ce formulaire et faire clignoter un
message.

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum