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.
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