Bonjour à tous,
Dans un formulaire de traitement, je dois créer des fichier pdf provenant d'un état paramétré. Les états me donnent le bon résultat, par contre quand j'utilise la commande output to pdf, c'est comme si le recordsource ne recupère pas le sql.
merci pour votre aide
Voici le code dans mon é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
16
17
18 Private Sub Report_Load() Select Case Forms!frmEnvoiDemandeUnite!QuelRpt Case Is = "CN Int" Me.RecordSource = "SELECT tblProduit.ProdUniteCalled, tblProduit.ProdNoUnite, tblProduit.ProdCommodity, tblProduit.ProdPoidsShipper " _ & "From tblProduit WHERE (((tblProduit.ProdStatusLocalisation)=16) AND ((tblProduit.ProdCheminDeFer)='CN Int'));" Case Is = "CP Int" Me.RecordSource = "SELECT tblProduit.ProdUniteCalled, tblProduit.ProdNoUnite, tblProduit.ProdCommodity, tblProduit.ProdPoidsShipper " _ & "From tblProduit WHERE (((tblProduit.ProdStatusLocalisation)=16) AND ((tblProduit.ProdCheminDeFer)='CP Int'));" Case Is = "Wagon" Me.RecordSource = "SELECT tblProduit.ProdUniteCalled, tblProduit.ProdNoUnite, tblProduit.ProdCommodity, tblProduit.ProdPoidsShipper " _ & "From tblProduit WHERE (((tblProduit.ProdStatusLocalisation)=16) AND ((tblProduit.ProdCheminDeFer)='CN Car')) OR (((tblProduit.ProdCheminDeFer)='CP Car'));" End Select Me.Requery End Sub
mon code dans le formulaire
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8 Private Sub EnvoiCourrielDemande() ' préparer fichier PDF strTitre = ChrDateEtHeure(Now()) & " Demande de livraison Intermodales" DestinationFichier = "C:\TamponEnvoiPDF\" & strTitre & ".pdf" DoCmd.OutputTo acOutputReport, "rptDemandeUnite", acFormatPDF, DestinationFichier, False ' préparer courriel End Sub
Partager