Affichages successifs d' aperçus Etat

Bonjour,

Comme suite à une sélection multiple dans une liste dérourante, je souhaite afficher en mode aperçu les états ainsi sélectionnés.

Je voudrais que le code s'arrête dés l'affichage d'un état et jusqu'à la fermeture manuelle de celui-ci, puis reprenne son déroulement pour afficher l'aperçu de l'état suivant.

Voici une partie de mon code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

With Forms("Engagements").DépartsT For n = 0 To .ListCount If .Selected(n) = True Then Filtre = "Compétition=" & "'" & .Column(0, n) & "'" If Forms("Engagements").AperçuE.Caption = "Aperçu" Then On Error Resume Next If Reports("CoureursEngagés").Visible = True Then _ DoCmd.Close acReport, "CoureursEngagés" DoCmd.OpenReport "CoureursEngagés", acViewPreview On Error GoTo 0 Else DoCmd.OpenReport "CoureursEngagés" End If End If Next n

---

Dans la FAQ

http://access.developpez.com/faq/?page=Forms#isloaded

s'applique pour les états avec quelques modifications ....

Code:

---

1 2 3 4 5

DoCmd.OpenReport "NomÉtat", acViewPreview, , Filtre Do While CurrentProject.AllReports("NomÉtat").IsLoaded 'Boucler tant que l'état est ouvert Loop

---

Merci pour ta réponse.
J'ai essayé selon le code:

Code:

---

1 2 3 4 5

If Forms("Engagements").AperçuE.Caption = "Aperçu" Then DoCmd.OpenReport "CoureursEngagés", acViewPreview Do While CurrentProject.AllReports("CoureursEngagés").IsLoaded Loop Else

---

En mode pas à pas cela fonctionne parfaitement, mais en mode normal, l'état ne s'affiche pas entièrement (entourage seulement), la boucle a l'air de s'éxecuter à l'infini, sans possibilté de l'arrêter

Insère un DoEvents après la commande de l'ouverture du rapport

Code:

---

1 2 3

DoCmd.OpenReport "NomÉtat", acViewPreview, , Filtre DoEvents

---

Et bien sur la boucle va s'exécuter tant et aussi longtemps que l'état sera ouvert ....

OK cela marche, mais j'ai du placer Doevents dans la boucle et non avant


Merci