Discussion :

[gbzmt]

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 :

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

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

[mikeGo20]

Dans la FAQ

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

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

Code :

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

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

[gbzmt]

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

Code :

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

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

[mikeGo20]

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

Code :

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

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 ....

[gbzmt]

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


Merci