Access365 Bericht per PDF speichern
Hi habe folgenden Code:
Private Sub Befehl39_Click()
Dim stDocName As String
Dim LinkCriteria As String
stDocName = "Wache"
LinkCriteria = "[WacheID] = " & Me.[WacheID]
DoCmd.OpenReport stDocName, acPreview, , LinkCriteria
DoCmd.OutputTo acOutputReport, "Wache", acFormatPDF, "D:\" & [Wache] & ".pdf", False
DoCmd.Close acReport, stDocName
End Sub
Dabei wird der Aktuelle Datensatz per PDF in Datei "Wache.pdf" gespeichert (soweit klar).
Jedoch möchte ich hinter "Wache", noch das Datum ([WachBeginnDatum]; Format: 99.99.0000;0;_) und die Uhrzeit ([WachBeginnUhrzeit]; Format: 00:00;0;_) das in dem aktuellen Datensatz vorkommt, speichern lassen. Und da komm ich nicht mehr klar. Kann mir jemand helfen?
Sollte dann so aussehen: Wache-12-12-2016-10-30.pdf oder so ähnlich, damit man halt Wache,Datum,Uhrzeit rauslesen kann.
Private Sub Befehl39_Click()
Dim stDocName As String
Dim LinkCriteria As String
stDocName = "Wache"
LinkCriteria = "[WacheID] = " & Me.[WacheID]
DoCmd.OpenReport stDocName, acPreview, , LinkCriteria
DoCmd.OutputTo acOutputReport, "Wache", acFormatPDF, "D:\" & [Wache] & ".pdf", False
DoCmd.Close acReport, stDocName
End Sub
Dabei wird der Aktuelle Datensatz per PDF in Datei "Wache.pdf" gespeichert (soweit klar).
Jedoch möchte ich hinter "Wache", noch das Datum ([WachBeginnDatum]; Format: 99.99.0000;0;_) und die Uhrzeit ([WachBeginnUhrzeit]; Format: 00:00;0;_) das in dem aktuellen Datensatz vorkommt, speichern lassen. Und da komm ich nicht mehr klar. Kann mir jemand helfen?
Sollte dann so aussehen: Wache-12-12-2016-10-30.pdf oder so ähnlich, damit man halt Wache,Datum,Uhrzeit rauslesen kann.
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-Key: 309473
Url: https://administrator.de/contentid/309473
Ausgedruckt am: 19.03.2024 um 03:03 Uhr
1 Kommentar
Hi
https://msdn.microsoft.com/de-de/library/office/gg251755.aspx
Notes: Depending on how you store your date and time values in the database it could be that you have to use cDate() to convert the values to date time format.
Regards
"D:\" & Me.Wache.Value & "-" & Format(Me.WachBeginnDatum.Value,"mm\-dd\-yyyy") & "-" & Format(Me.WachBeginnUhrzeit.Value, "hh\-nn") & ".pdf"
Notes: Depending on how you store your date and time values in the database it could be that you have to use cDate() to convert the values to date time format.
Regards