Discussion :

[User]

Bonjour,

Je reviens sur ce problème (image animée dans formulaire d'attente) dans le cas ou le process est l'exécution d'une requête très longue ou d'1 état basé sur ce type de requête.

Comment passer la main à l'image animée durant l'exécution de ce type de requête ?

Dans le cas par exemple d'1 boucle VBA il est possible de repasser la main à l'image animé avec 1 DoEvents dans la boucle (comme indiqué dans le tuto d'Arkham), mais dans le cas d'1 requête comment fait-on ?

[ClaudeLELOUP]

Bonjour User,

Je n'ai peut-être pas compris ta question.

Chez moi ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
DoCmd.OpenForm "Patience"
DoCmd.OpenQuery "RequêteQuiDure"
DoCmd.Close acForm, "Patience"

Ouvre le formulaire, qui fait son cinéma pendant le temps que la query se fabrique

"Patience" se ferme lorsque la query s'affiche.

Pour info ma requête :

Code sql :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
SELECT [&tousmvts].mvt, [mvt]*durer() AS Expr1
FROM [&tousmvts];

et la fonction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Public Function durer()
Sleep 10000     ' pendant 10''
durer = 1
End Function

[User]

Salut Claude,

Désolé mais chez-moi ca ne tourne pas,

J'ai mis un code sur le timer du formulaire d'attente (en réglant l'intervalle sur 2000 ms) pour en avoir le coeur net :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub Form_Timer()
MsgBox ("Patientez !")
 
End Sub

Mais aucun message n'apparait durant le traitement de la requête, à la fin la requête s'ouvre et le form se ferme c'est tout (et l'image reste figée durant le traitement qui dure plus de 10 s)

[ClaudeLELOUP]

Bonjour User,

Je n'utilise pas de timer.
Patience = avec animation mais vois la remarque de Arkham46

la solution avec l'activeX Gif89 est simple aussi mais :
=> le fichier gif est je crois intégré dans le contrôle, donc pas besoin de le fournir en plus
=> par contre cela demande l'installation de l'activeX sur tous les PC
=> tu ne peux donc pas juste fournir le fichier Access tout seul, il faut créer un setup d'install et l'installer avec un compte admin pour enregistrer l'activeX

L'exemple en annexe avec PatienceFixe (sans animation)

[User]

ReBonjour Claude,

cela doit venir te ton fichier gif intégré dans le contrôle

Pour ce qui est du timer :

Il s'agit d'une procédure événementielle attachée au formulaire d'attente. Je voulais simplement savoir s'il était possible de passer la main à cette procédure durant l'exécution de la requête

[ClaudeLELOUP]

Dans le fichier annexé à mon post précédent, il y a un exemple avec un formulaire sans gif que l'on ouvre, suivi d'un doEvents, et le lancement du proccessus long, et on enchaîne avec la fermeture du formulaire. Cela doit aussi fonctionner chez toi.

Mais cela ne répond à ta question, à laquelle je n'ai pas de réponse.
Peut-être une astuce ?
Dans la requête, ajouter une fonction "qui-ne-mange-pas-de-pain" du style toujours égale à "" mais qui, au passage, aménage un trigger pour déclencher le timer.
Quoi qu'il en soit, bon dimanche.

[User]

Merci Claude,

Ton activeX Gif89 est assez épatant

Il semble fonctionner en parallèle avec le déroulement de la requête...

ce qui n'est pas le cas du contrôle Web Browser ni du Windows Media Player

Bonne semaine