Dateiname für bericht vergeben?

[silentwolf]

Hallo mal wieder

Ich habe folgenden code der auch funktioniert nur werden alle Berichte nun mit dem selben Namen gespeichert.
Wie kann ich den Code ändern eventuell mit einer Inputbox gefragt wird welchen namen diese Datei haben soll.

DoCmd.OutputTo acOutputReport, "rptMitMonatsStunden", acFormatPDF, "y:\Personal\MeinDateiname.pdf"

Würde mich freun wenn mir jemand helfen könnte


Danke

Albert

[MzKlMu]

Hallo,
bitteschön:

Code [Auswählen] Erweitern

Dim Dateiname As String
    Dateiname = InputBox("Bitte Dateiname eingeben")
    If Dateiname <> "" Then
        Dateiname = "y:\Personal\" & Dateiname & ".pdf"
        DoCmd.OutputTo acOutputReport, "rptMitMonatsStunden", acFormatPDF, Dateiname
    End If

[silentwolf]

Hallo !

Super vielen herzlichen Dank!

Schöne Grüße

Albert