Office: Export eines Berichts im PDF Format

Hallo Leute
Ich habe seit Access 2019 folgendes Problem beim exportieren eines Berichtes:
Folgende Prozedur verwende ich

Private Sub BSFexp_Click()
Const ConErrNotUpdatable = 2501

Dim stDocName As String
stDocName = "B_Altersklassen"
Dim stSpeichername As String
stSpeichername = DLookup("[Speichername]", "T_Exportpfade", "[ID] =" & 1)
DoCmd.OutputTo acReport, stDocName, acFormatPDF, stSpeichername
Exit_BSFExp_Click:
Exit Sub
Err_BSFExp_Click:
If Err.Number = ConErrNotUpdatable Then
MsgBox ("Hier sind noch keine Daten vorhanden")
End If
Resume Exit_BSFExp_Click
End Sub

In den vorigen Versionen hat es immer funktioniert. stDocname ist der Name des zu exportierenden Berichts und stSpeichername ist der Name unter welchem der Bericht
gespeichert werden soll. Leider akzeptiert Access stSpeichername nicht. Lasse ich das weg wird der Bericht unter dem Namen stDocName gespeichert.
Woran kann das liegen??
Danke für Eure Hilfe

 

Hallo,

Enthält die Variable "stSpeichername" einen gültigen Pfad+Dateinamen? Du fragst ja diesen mit der DLOOKUP-Funktion aus dem Feld "Speichername" der Tabelle "T_Exportpfade" ab, wobei du als Kriterium für den auszuwählenden Datensatz "[ID] = 1" verwendest: Es muss also in dieser Tabelle das Feld [ID] mit dem Feldwert 1 existieren und das Feld "Speichername" dieses Satzes einen korrekten Datenpfad (für Dateien der Dateierweiterung *.PDF) enthalten.
Mehr kann ich leider dazu im Moment nicht sagen. Vielleicht helfen dir die beiden Microsoft-Links weiter:
DoCmd.OutputTo-Methode (Access) | Microsoft Docs
Application.DLookup-Methode (Access) | Microsoft Docs

 

Hallo Anton
Habe jetzt alles überprüft, trotzdem klappt es nicht.
So Sieht die Tabelle Exportpfade aus
ID Pfadfix Saison Berichtsname Speichername
1 F:\Kegeln\Kegelstatistik\Allgemeine Stammdaten\ 2020/2021 B_Altersklassen 2020/2021 Altersklassen.pdf

und so lautet meine Prozedur als Ribbon
Sub ExpRepAltersklassen(control As IRibbonControl)

Dim Pfadfix As String
Pfadfix = DLookup("[Pfadfix]", "T_Exportpfade", "[ID] =" & 1)
Dim Berichtsname As String
Berichtsname = DLookup("[Berichtsname]", "T_Exportpfade", "[ID] =" & 1)
Dim stDocName As String
stDocName = DLookup("[Speichername]", "T_Exportpfade", "[ID] =" & 1)

If Dir(Pfadfix, vbDirectory) <> "" Then
Shell "explorer.exe """ & Pfadfix & """", vbNormalFocus
Else
MkDir Pfadfix
Shell "explorer.exe """ & Pfadfix & """", vbNormalFocus
End If

ChDir Pfadfix

DoCmd.OutputTo acOutputReport, "B_Altersklassen", acFormatPDF, stDocName
End Sub

Der Pfad wird problemlos gefunden. Allerdings bricht er dann bei der Output Aktion mit Laufzeitfehler 2501 ab