Bericht speichern als pdf

[farsey]

Hallo,

Ich bin neu hier erstmal ein nettes Hallo.

Ich bin gerade dabei Reports in ein PDF zu erstellen.

Ist Situation ist wie folgt :

Ein Button erstellt ein Report welcher nach Geschäftspartner nummer filtert und den Dateinamen inviduell abspeichert basierend auf anderen Einträgen.

Es gibt einen Vertreter welcher mehrere Geschäftspartner hat.

Meine Frage bezieht sich daraus : Kann ich bevor der Button meine PDF's erstellt nochmal abfragen für welchen Vertreter er es speichert ?

Jetzt speichert er einfach alle Geschäftsnummern hintereinander weg.

Code [Auswählen] Erweitern

Private Sub Befehl211_Click()
   
    '-----------------------------------------------------------------
    ' table: "2022"
    ' data in 2022: "gepa"
    ' report: "2022_PS_EN_Ohne_Abfrage"
    ' target: "C:\Fettzuschlag\" & Land & "_" & gepa & "_" & Name_1 & ".PDF"
    '-----------------------------------------------------------------
   
    Dim strSQL As String
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim strDatei As String, strWhere As String
   
    Set db = CurrentDb
    'The code should set the current database active
    strSQL = "SELECT Distinct [gepa],[Name 1],[Land],Vertretung FROM 2022"
    'The data field "gepa" from the table "2022" should be selected
    Set rs = db.OpenRecordset(strSQL, dbOpenSnapshot)
    'The first entry should be taken
    Do Until rs.EOF
        strDatei = "C:\Fettzuschlag\" & rs.Fields(2).value & "_" & rs.Fields(0).value & "_" & rs.Fields(1).value & ".pdf"
        'The file should be given the name of the data field in the target folder
        DoCmd.OpenReport "2022_PS_EN_Ohne_Abfrage", acViewPreview, , "gepa = '" & rs(0) & "'", acHidden
        'the report is opened and the invoice number is entered as a selection criterion.
        DoCmd.OutputTo acOutputReport, "2022_PS_EN_Ohne_Abfrage", acFormatPDF, strDatei, False
        'The PDF is generated and stored in the folder with the invoice number.
        DoCmd.Close acReport, "2022_PS_EN_Ohne_Abfrage"
        rs.MoveNext
    Loop
    rs.Close
    Set rs = Nothing
   
    Set db = Nothing
End Sub