Bericht automatisch als PDF abspeichern (Access)

RalfM, Mittwoch, 04.09.2019, 15:51 (vor 13 Tagen)

Hallo,
ich würde gerne einen Bericht automatisch als PDF unter seinem Wochentag abspeichern.
Dazu habe ich ein Startformular erstellt, mit dem über eine Schaltfläche der Bericht als PDF abgespeichert werden soll. Der Dateiname soll dabei dem Wochentag entsprechen.
Leider klappt das nicht so, wie ich es mir vorstelle

Private Sub Befehl44_Click()
Const REPORT_NAME As String = "Tägliche Anwesenheitsliste"
R = Weekday(Date, 2)
Select Case R
Case Is = 1: Const Wochentagname As String = "Montag"
Case Is = 2: Const Wochentagname As String = "Dienstag"
Case Is = 3: Const Wochentagname As String = "Mittwoch"
Case Is = 4: Const Wochentagname As String = "Donnerstag"
Case Is = 5: Const Wochentagname As String = "Freitag"
Case Is = 6: Const Wochentagname As String = "Samstag"
Case Is = 7: Const Wochentagname As String = "Sonntag"
End Select
Const REPORT_NAME As String = "Tägliche Anwesenheitsliste"
Const FILE_NAME As String = "C:\tmp\" & Wochentagname & ".pdf"
DoCmd.OutputTo acOutputReport, REPORT_NAME, acFormatPDF, FILE_NAME
DoCmd.Close acReport, REPORT_NAME, acSaveNo

End Sub

Ich bekomme beim Kompilieren den Fehler, dass eine Mehrfachdeklaration vorliegt für den Wochentagname.

Wie kann ich das lösen?


gesamter Thread:

 RSS-Feed dieser Diskussion

powered by my little forum