Discussion :

[dany06]

Bonjour à tous,

Après la visualisation d'un état, je souhaiterai lors de sa fermeture par le bouton du ruban "Fermer l'aperçu avant l'impression" du ruban que cet état soit automatique imprimer en "pdf" pour le sauvegarder.

J'ai essayé le code suivant sur l'événement fermeture de l'état:

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
Private Sub Report_Close()
 Dim CheminFichier As String
 
 
      Select Case MsgBox("Voulez vous archiver le Bon de Commande", vbYesNo Or vbExclamation Or vbDefaultButton1, "SAUVEGARDE DU BON DE COMMANDE")
 
        Case vbYes
            ' Validation case à cocher pour Génération en pdf
            CheminFichier = "C:\" & "Liste des clients.pdf"
             DoCmd.OutputTo acOutputReport, "rptBonCommande", acFormatPDF, True
 
        Case vbNo
 
        End Select  
end sub

Mais j'ai le message d'erreur suivant :

"erreur d'exécution '2585':

Impossible d'exécuter cette action pendant le traitement d'un événement de formulaire ou d'état."

Quelqu'un a t'il une solution ? Faut-il mettre ce code sur un autre événement de l'état?

Merci de votre aide par avance.

Cordialement,

Dany06.

[marot_r]

Je ne pense pas que tu puisses l'associer à un événement de l'état mais tu peux surement asscier ce code à celui qui l'ouvre.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
do while currentproject.allreports("rptBonCommande").isloaded
   'Ne rien faire et attentendre que le rapport se ferme
loop
 
Select Case MsgBox("Voulez vous archiver le Bon de Commande", vbYesNo Or vbExclamation Or vbDefaultButton1, "SAUVEGARDE DU BON DE COMMANDE")
 
  Case vbYes
     ' Validation case à cocher pour Génération en pdf
      CheminFichier = "C:\" & "Liste des clients.pdf"
      DoCmd.OutputTo acOutputReport, "rptBonCommande", acFormatPDF, True
 
  Case vbNo
 
End Select

A+