Office: Access Datei wird per Makro nicht gespeichert

Hallo zusammen,
anbei mein Makro:
Private Sub Speichern_Click()


Dim Dateiname As String

Dim Kuerzel


Kuerzel = DLookup("mitarbeiterkürzel", "tbl_mitarbeiter", "mitarbeiterid = " & Me.MitarbeiterID_F)


Dim jah

Dim mon

jah = Format([Text117], "yyyy")

mon = Format([Text117], "mmmm")


'Me.LfdNr = Nz(DMax("Lfdnr", "tbl_Rechnungen", "Year(Rg_Datum) = " & Year(Me.Rg_Datum)), 1000) + 1



Dim Pfad As String

Pfad = "C:\Kurt_Rechnungen\" & jah & "\" & mon & "\"


If Dir(Pfad, vbDirectory) = "" Then



MsgBox "aktuelles Jahr oder Monat nicht vorhanden !" _

& Chr(13) & "Jahr oder Monat werden erstellt !"

MakeSureDirectoryPathExists "C:\Kurt_Rechnungen\" & jah & "\" & mon & "\"

Else

MsgBox "Aktuelles Jahr und Monat vorhanden," _

& Chr(13) & "Datei wird jetzt gespeichert !"

End If


Dim DateiN

DateiN = [KundenName] & " " & ([Vorname] + " ") & "Rg.-Nr. " & [Rg_Nummer] & " " & Kuerzel & ".PDF"


MsgBox "Verzeichnis für die Speicherung: " _

& Chr(13) & Pfad & Chr(13) & Chr(13) & "Dateiname: " & Chr(13) & DateiN

'MsgBox DateiN


DoCmd.OutputTo objecttype:=acOutputReport, Objectname:="Rechnung", OutputFormat:=acFormatPDF, OutputFile:=Pfad & DateiN


End Sub

 

Naja, so kann man auch Fragen stellen. Hier ein wenig Chaos-Code. Guckt mal, was Ihr damit anfangen könnt.
Schau Dir mal hier den Button "Einfügen/Code" an um den Code mal leserlich zu machen. Und dann wären ein paar erklärende Zeilen, z.B. welche Fehlermeldungen zu sehen sind, auch nicht schlecht. Hast Du den Code mal im Debugger laufen lassen? Dimensionierungen mitten in der Prozedur sind z.B. ein NoGo. usw.

 

Hallo,
sorry für Fehlercode: Laufzeitfehler 2501 Die Aktion OutputTo wurde abgebrochen.
gruß kurt k

 

Code:

Private Sub Speichern_Click()
On Error GoTo errhandle

    Dim Dateiname   As String
    Dim Kuerzel     As String
    Dim jah         As String
    Dim mon         As String
    Dim Pfad        As String
    Dim DateiN      As String
   
    Kuerzel = DLookup("mitarbeiterkürzel", "tbl_mitarbeiter", "mitarbeiterid = " & Me.MitarbeiterID_F)

    If Kuerzel = "" Then
        MsgBox "Mitarbeiterkürzel nicht gefunden", vbCritical
        Exit Sub
    End If

    jah = Format([Text117], "yyyy")

    mon = Format([Text117], "mmmm")

    'Me.LfdNr = Nz(DMax("Lfdnr", "tbl_Rechnungen", "Year(Rg_Datum) = " & Year(Me.Rg_Datum)), 1000) + 1

    Pfad = "C:\Kurt_Rechnungen\" & jah & "\" & mon & "\"

    If Dir(Pfad, vbDirectory) = "" Then
        MsgBox "aktuelles Jahr oder Monat nicht vorhanden !" _
             & Chr(13) & "Jahr oder Monat werden erstellt !"

        MakeSureDirectoryPathExists "C:\Kurt_Rechnungen\" & jah & "\" & mon & "\"
      Else
        MsgBox "Aktuelles Jahr und Monat vorhanden," _
        & Chr(13) & "Datei wird jetzt gespeichert !"
    End If

    DateiN = [KundenName] & " " & ([Vorname] + " ") & "Rg.-Nr. " & [Rg_Nummer] & " " & Kuerzel & ".PDF"

    MsgBox "Verzeichnis für die Speicherung: " _
           & Chr(13) & Pfad & Chr(13) & Chr(13) & "Dateiname: " & Chr(13) & DateiN

    'MsgBox DateiN

    DoCmd.OpenReport "Rechnung", acViewPreview
    DoCmd.OutputTo objecttype:=acOutputReport, Objectname:="Rechnung", OutputFormat:=acFormatPDF, OutputFile:=Pfad & DateiN
    DoCmd.Close acReport, "Rechnung"
   
Exit Sub
errhandle:
    MsgBox Err.Description
End Sub

 

Guten Abend JO5,
Fehlermeldung: "die Aktion OutputTo wurde abgebrochen"
mfg kurt k

 

Guten Abend zusammen,
ich wäre auch erst mit einer Speicherung als Access Datei einverstanden, später dann als pdf A Version, wie bei Excel, speichern.
Würde mich freuen wenn’s klappen würde,
Danke im Voraus
Gruß Kurt k

 

Guten Abend,
ich habe mal eine kleine Musterdatei erstellt, mit dem gleichen Problem.
Werde mal die Datei hochladen, würde mit freuen wenn sich jemand damit
beschäftigt und mir eine Lösung zeigt, damit ich die Datei ins Verzeichnis
speichern kann.

 

Leider steht der OutputTo immer etwas auf Kriegsfuß mit dem Window-Dateisystem (Sonderzeichen, Pfade, etc).
Ich nutze da einen Workaround, indem ich die Datei zuerst mit einem simplen Dateinamen im Access-Arbeitsverzeichnis erstellen lasse um Sie dann mit einem simplen FileCopy und dem gewünschten Dateinamen in das richtige Verzeichnis zu übertragen. Das Zielverzeichnis muss natürlich existieren. Ich habe die entsprechende Prozedur mal angepasst. Natürlich solltest Du noch eine Fehlerbehandlung einbauen. Die hab ich mir hier der Übersicht halber gespart.

Code:

Private Sub Kurt_Click()
Dim Zielpfad As String
Dim Kuerzel
Dim Pfad As String
Dim DateiN

Kuerzel = DLookup("mitarbeiterkürzel", "tbl_mitarbeiter", "mitarbeiterid = " & Me.MitarbeiterID_F)

Pfad = "C:\_Kurt_Rechnungen_gedruckt\"

DateiN = [KundenName] & " " & [Vorname] & " " & "Rg.-Nr. " & [Rg_Nummer] & "  " & Kuerzel & ".PDF"
DateiN = Replace(DateiN, " ", "_")
DateiN = Replace(DateiN, ".", "_") & ".pdf"

Zielpfad = Pfad & DateiN
Dateiname = "Test.pdf"
DoCmd.OutputTo objecttype:=acOutputReport, Objectname:="Rechnung", OutputFormat:=acFormatPDF, OutputFile:=Dateiname

FileCopy Dateiname, Zielpfad
Kill Dateiname
End Sub

 

Guten Morgen Andreas,
leider wieder diese Fehlmeldung:
Laufzeitfehler2501
Die Aktion OutputTo wurde abgebrochen
Hat es bei DIR funktioniert ?
Dann sende mal die funktionierende Datei,
danke im Voraus Kurt

 

Biddööö.

 

Sorry Andreas,
was mach ich FALSCH ?
Bei mir selbe Meldung:
Laufzeitfehler2501
Die Aktion OutputTo wurde abgebrochen
Ich klicke Bericht an und drücke Button speichern.
bleibt hier stehen:

DoCmd.OutputTo objecttype:=acOutputReport, Objectname:="Rechnung", OutputFormat:=acFormatPDF, OutputFile:=Dateiname
gruß kurt

 

Welche Access und Windoofversion hast Du?

 

Microsoft Office LTSC Professional Plus 2021 Version 2108
Windows 11 Version 24H2

mfg kurt

 

mmh, ich hab Office 2016 pro und Win11 die selbe Version.

Eine andere Möglichkeit wäre ja noch den Report an Word zu schicken und dort als PDF zu speichern. Müsste ich aber auch erst austüffteln.

 

Hallo Andrfeas,
hatt den die Speicherung bei dir funktioniert ?
gruß kurt