Forum - Questions sur Access - Erreur sur OutputTo après 27 envois

 


le 31/03/2018 : 10:19
par possible924

Anonyme

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 clos Haut  
Réponse n° 1
--------
le 02/04/2018 : 09:22
par possible924

Anonyme

visiteur

Bonjour à tous,

Le problème venait du fait que dans la raison sociale du destinataire qui était repris dans la variable StrFile, il y avait un "/' qui provoquait l'erreur.

J'ai remplacé le"/" par un "-"

Cordialement

clos par 3Stone le 04/04/2018 : 19:03 Haut  
actif sujet actif   clos sujet clos   Important! Important!   Nouveau Nouveau message
Rectifier Rectifier message   Clôturer Clôturer sujet   Remonter Remonter  
Catégories de discussion  Forum