Access-o-Mania

Access-Forum (Deutsch/German) => Bericht => Thema gestartet von: J.D am September 08, 2023, 20:40:45

Titel: Bericht als PDF Speichern
Beitrag von: J.D am September 08, 2023, 20:40:45
Hi Leute,
lange nicht mehr da gewesen, aber nun habt ihr mich zurück... :D

Ich habe da folgendes problem das der Bericht zwar aufgeht mit dem richtigen Datensatz (soll er eigentlich nicht) aber egal... nur kommt immer ein RUNTIME 2501 - The OutputTo action was canceledPrivate Sub Command190_Click()
   Dim strBericht  As String
    Dim strWHERE    As String
    Dim strDatei    As String
    ' Local
    strBericht = "Checkliste"
    strWHERE = "[Rechnung_ID] =" & Me![ID] & ""
    strDatei = "C:\TEMP\""[Rechnung_ID] =" & Me![ID] & """.pdf"
    DoCmd.OpenReport strBericht, acViewPreview, , strWHERE, acHidden
    DoCmd.OutputTo acOutputReport, strBericht, acFormatPDF, strDatei, False
    DoCmd.Close acReport, strBericht
    ' Server
End Sub

please help!!!

grüsse J.D.


Titel: Re: Bericht als PDF Speichern
Beitrag von: andyfau am September 08, 2023, 21:39:02
Hallo,

der Aufbau der Variable strDatei ergibt keinen gültigen Dateinamen. Das verursacht den Fehler 2501.

Gruß
Andreas
Titel: Re: Bericht als PDF Speichern
Beitrag von: Beaker s.a. am September 09, 2023, 11:56:14
Und, falls du noch drauf gekommen bist, - Debug.Print ist deshalb dein Freund.
Titel: Re: Bericht als PDF Speichern
Beitrag von: ebs17 am September 09, 2023, 12:11:31
Gegenfrage: Nach welchen Regeln baust Du den String so zusammen, wobei insbesondere das Einmischen von Anführungszeichen zu beschreiben wäre?
strDatei = "C:\TEMP\""[Rechnung_ID] =" & Me![ID] & """.pdf"Wie dann schon geschrieben ist es oft hilfreich, das anzuschauen und zu überprüfen, was als Ergebnis eigenen Tuns herauskommt.
Titel: Re: Bericht als PDF Speichern
Beitrag von: J.D am September 15, 2023, 09:20:12
ok, danke für den wink mit dem dolch...

hab es hinbekommen, war echt dumm :D

grüsse J.D.