Forum - Questions sur Access - Erreur sur OutputTo après 27 envois
Sujet n° 802
le 31/03/2018 : 10:19
par possible924
visiteur
Bonjour à tous merci pour vos réponses qui m'ont permis de bien progresser. J'ai un gros souci sur la ligne "DoCmd.OutputTo acOutputReport, "E_Facture", "PDFFormat(*.pdf)", Strfile, False, "", , acExportQualityScreen"
DoCmd.SetWarnings False Dim NbFactNoPrintPDF As Integer Dim FirstFactNuméro As Variant Dim Strfile As String Do NbFactNoPrintPDF = DCount("FeM_Facture_Imprimé_PDF", "T_Factures_envoi_Messagerie", "FeM_Facture_Imprimé_PDF = 0") Me.Test = NbFactNoPrintPDF FirstFactNuméro = DMin("FeM_Facture_Numéro", "T_Factures_envoi_Messagerie", "FeM_Facture_Imprimé_PDF = 0") Strfile = "W:BasesIrisFacturesEnvoiMessagerie" & DLookup("FeM_PDF_Nom", "T_Factures_Envoi_Messagerie", "FeM_Facture_Numéro =" & FirstFactNuméro) Dim qdf As DAO.QueryDef Set qdf = CurrentDb.QueryDefs!R_Factures_Etat qdf.SQL = "SELECT R_Factures.*, R_Facture_Contenu.* FROM R_Factures LEFT JOIN R_Facture_Contenu ON R_Factures.CléP_Facture = R_Facture_Contenu.FC_Clé_Facture " & _ "WHERE R_Factures.Fact_Numéro = " & FirstFactNuméro Set qdf = Nothing DoCmd.OutputTo acOutputReport, "E_Facture", "PDFFormat(*.pdf)", Strfile, False, "", , acExportQualityScreen DoCmd.RunSQL "UPDATE T_Factures_Envoi_Messagerie SET T_Factures_Envoi_Messagerie.FeM_Facture_Imprimé_PDF = -1 " & _ "WHERE T_Factures_Envoi_Messagerie.FeM_Facture_Numéro = " & FirstFactNuméro Loop Until NbFactNoPrintPDF = 1 DoCmd.SetWarnings True
Tout se passerait bien, sauf qu'à la 28ème facture imprimée en pdf, je reçois un message d'erreur : "Erreur d'exécution '2501' L'action OutputTo a été annulée"
Pourquoi ? je n'en ai aucune idée ! Merci par avance pour votre aide Pierre
sujet actif
sujet clos
Important!
Nouveau message
Rectifier message Clôturer sujet Remonter
Rectifier message Clôturer sujet Remonter