Discussion :

[com-ace]

Bonjour,

Je souhaite détecter la fermeture de la fenêtre Preview d'Openreport.
Cela fait partie d'une procédure d'impression d'états à la suite.

Code :

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

1
2
 
DoCmd.OpenReport "xxxxx", acViewPreview, , Critère

Je souhaite dérouler le reste du code après fermeture la fenêtre Preview.

Je n'ai pas trouvé de solutions.
Merci de votre aide.

[=JBO=]

Bonjour,
Voci une proposition.

Dans un module de code ajoute la définition de la procédure ci-dessous.

Code :

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

1
2
3
4
5
6
7
Public Sub AttendreFermeture(sNom as String)
    On Error Resume Fin
    Do
        DoEvents
    Loop While sNom = Application.Reports(sNom).Name
Fin:
End Sub

Ensuite, dans ton code tu peux faire appel à cette procédure:

Code :

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

1
2
DoCmd.OpenReport "xxxxx", acViewPreview, , Critère
AttendreFermeture "xxxxx"

Je te livre ça tel quel (je n'ai pas testé... pas le temps )
Tiens nous informés .

[com-ace]

Merci beaucoup cela fonctionne correctement.
Attention petite erreur

Code :

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

1
2
 
On error Goto fin

MERCI ENCORE