Discussion :

[Virgile59]

Bonjour, je voudrais ajouter à mon code une ligne qui commande la fermeture du report ouvert si il y en à un.
Merci

Code :

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

1
2
3
DoCmd.Close acReport, ???????????????
DoCmd.OpenReport "Requête affichage", acViewPreview
DoCmd.OpenQuery "Impression affichage Vrai", acViewNormal, acAdd

[Trini]

Bonjour,

Une petite boucle comme ça permet de fermer tous les états ouverts :

Code :

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

1
2
3
4
 
  For I = 0 To Reports.Count - 1
    DoCmd.Close acReport, Reports(I).Name
  Next

Si ça peut servir ...

salut,

[Virgile59]

Merci c'est sympa !

[pgz]

Bonjour,

Si tu ne connais pas le nom de l'état et que tu ne sait pas s'il est ouvert,
tu peux fair un truc du genre :

Code :

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

1
2
3
4
Dim rpt as AccesObject
for each rpt in Application.CurrentProject.AllReports
    If rpt.IsLoaded then DoCmd. Close acreport, rpt.name
next rpt

C'est l'idée. Il y a sûrement des fautes de syntaxe...

pgz