Kundendaten aus Tabelle als Bericht einzel in PDF form abspeichern

[Daniel0308]

Hallo zusammen ,

Ich habe bei uns im Betrieb ein neues Aufgabengebiet übernommen , Wir habe in einer Access Tabelle angelegte Kunden bzw. Projekte die über eine Abfrage miteinander verknüpft sind .
Tabelle Kunde beinhaltet Kundennummer Kunde Anschrift ...
Tabelle Projekte beinhaltet verschiedene Projekte die über die Kundennummer einem Kunden zugeordnet werden mit Projekt Name Anschrift Daten zum Kunden Wartungsintervall und dem Termin der Wartung  . Sprich ein Kunde kann mehrere Projekte haben aber ein Projekt immer nur ein Kunde .

Jetzt mein Problem ich möchte aus beiden Tabellen Wartungskarten filtern .
z.B. möchte ich über den Monat alle offenen Wartungen einzeln als .pdf speicher wenn möglich mit der dazugehörigen Projektbezeichnung und einer Fabriknummer
Als Beispiel sollte die pdf so aussehen
Wartungskarte Sportheim #01234567

Ich bin mit Access noch nicht so alle am Arbeiten deshalb komme ich jetzt auch nicht mehr weiter .

Danke schonmal
Soweit funktioniert das

[database]

Hallo,

kannst du eine Kopie deiner DB mit 5 beispielhaften Datensätzen hochladen um deine Fragestellung nachzubauen?
DB reparieren/komprimieren und dann zippen!

[MaggieMay]

Hallo,

zunächst einmal brauchst du eine Abfrage, die dir die für den Bericht benötigten Daten liefert. Um für jeden Datensatz einen separaten Bericht zu erstellen, kannst du ein Recordset auf Basis dieser Abfrage öffnen und in einer Leseschleife über alle Datensätze den Bericht mit Filterkriterium öffnen und per OutputTo-Methode als PDF-File ausgeben.

Beispiel:

Code [Auswählen] Erweitern

Dim rs As DAO.Recordset
Set rs = CurrentDB.OpenRecordset("Select Kunden_ID, Projekt_ID From abfragename Order By Kunden_ID, Projekt_ID")
Do While Not rs.EOF
    DoCmd.OpenReport "berichtsname", acViewPreview, , "Projekt_ID=" & rs!Projekt_ID, acHidden
    DoCmd.OutputTo acReport, "berichtsname", acFormatPDF, ....  ' weitere Parameter s. Access-Hilfe
    DoCmd.Close acReport, "berichtsname"
    rs.MoveNext
Loop
rs.Close