Message sablier pendant procédure [Résolu]

[FtF Nemesis]

Bonjour à tous,

Ma base de données Access pilote la création de Word, d'Excel, etc. Il y a certaines procédures qui durent entre 3 et 4 secondes. J'aimerai savoir si il est possible d'afficher une MSGBOX avec un message " VEUILLEZ PATIENTEZ SVP" pendant toute la durée de la procédure ????

Merci d'avance

Hadrien

[nico84]

Je me souviens avoir vu un tuto là-dessus...

Pour ma part j'utilise plus simplement le sablier et/ou la fonction syscmd qui affiche une barre d'avancement en bas

Code :

1
2
3
4
5
6
7
8
9
10
11
dim r as double
...
224   r = SysCmd(1, "Calcul en cours", rst.RecordCount)
226   i = 0
228   While Not rst.EOF
230     i = i + 1
232     r = SysCmd(2, i)
...
246     rst.MoveNext
      Wend
250 r = SysCmd(3) 'Supprime la jauge d'avancement

[jpcheck]

salut,

je pense que tu fais reference a cet article tres utile d'Arkham46

http://arkham46.developpez.com/artic...s/formattente/

[FtF Nemesis]

Merci,

Je vais créer le formulaire du tutorial, il en jète !
Je pourrais dire à mon boss que je l'ai fait tout seul !!!!!