Office: (Office 2016) Bericht: Je Gruppe eine PDF erzeugen

Es will iwie nicht, ich habe dir mal meine Datei angehängt vll hilft das

 

Bitte setze VBA-Code in Codetags. Siehe dazu das Bildchen.

 

Danke für den Hinweis

 

Moin,

mit dem folgenden Code werden 3 PDFs erzeugt, mir scheint allerdings, das Feld AUF_ID_F ist nicht das Gelbe vom Ei.

Code:

 

Vielen Dank für deinen Code Ralf,

jetzt verstehe ich das mit dem Steuerelement auch *Smilie

Aber leider funktioniert es nicht wie gewünscht. Bei mir erstellt er nur eine PDF mit allen Seiten, aber nicht wie gewünscht einzelne PDFs nach Gruppe.

Was genau hast du an meinem Feld AUF_ID_f auszusetzen?

Vielen Dank

 

Vermutlich das gleiche wie ich, die Auf_ID kennzeichnet nicht die einzelnen Gruppen.
maike

 

Ok, verstehe ich aber es hapert an meiner Umsetzung.
Ich habs mit meiner SubSTDAufID versucht bekomme aber folgende Fehlermeldung "Datenbank kann das in Ihrem Ausdruck angesprochen Feld "SubSTDAufID" nicht finden." *frown.gif*

 

Einen Tippfehler schließe ich jetzt mal aus.
Das Feld ist vermutlich nicht in der Datenherkunft des Berichts (Tabelle oder Abfrage) enthalten.
maike

 

Ich habs mehrmals geprüft, dass Feld ist in der Datenherkunft enthalten.

Hast du dir meine Datenbank angesehen?

 

Ja, jetzt. Da wär ich nie drauf gekommen.

Code:

Ein Recordset ist ein Haufen Datensätze.
Der kommt aus einer Tabelle, oder kann auch die Datenherkunft eines Formulars sein - aber nicht eines einzelnen ID-Feldes.
SubSTDAufID solltest du statt Auf_ID_f als Kriterium angeben, das meinte ich doch deutlich geschrieben zu haben.

maike

 

Ich danke dir vielmals Meike, es funktioniert.
Genau das habe ich auch probiert nur ohne .fields("...

Wenn du mir kurz erklären könntest warum .fields...?

Zum einen damit ich es verstehe und zum anderen weil ich die PDF wie folgt speichern möchte:
Code:

Das Feld "Lot" erkennt er nicht. Hierbei handelt es sich um ein im Abfrage Generator errechnetes Feld.

 

Die Felder aus dem Recordset des Unterformulars sind in der Auflistung .fields enthalten. Wenn Lot nicht dabei ist, musst du es entweder mit aufnehmen oder dir den Wert anderweitig ermitteln (z.B. DLookup, Variante 1 ist aber besser).

Du beziehst dich hier auf die Felder im Recordset und nicht auf die Formularfelder.
maike

 

Danke für deine Erklärung, wieder was gelernt und umgesetzt.

Da wir schon dabei sind könntest du dir nochmal mein zweites Problem anschauen (du hattest es bereits kommentiert)?

https://www.ms-office-forum.net/foru....php?p=1876513

 

Ich habe ein kleines Problem mit dem Code, bzw. eine kleine Erweiterung:

With Me.[frmfertAuftrag Unterformular].Form.Recordset
.MoveFirst
Do Until .EOF

DoCmd.OpenReport "BrcZertifikate_de_Logo", acViewPreview, , "[SubSTDAufID] = " & .Fields("SubSTDAufID")
DoCmd.OutputTo acOutputReport, "BrcZertifikate_de_Logo", acFormatPDF, "\192.168.178.57DateienZERTIFIKATE" & pfad & "" & .Fields("AnzeigeBez") & "-" & .Fields("Name") & " (" & .Fields("Lot") & ") " & ".pdf"
'DoCmd.PrintOut
DoCmd.Close acReport, "BrcZertifikate_de_Logo"
.MoveNext
Loop
End With

Soweit funktiniert das ganze, nun möcht ich aber das zusätzlich abgefragt wird ob das JA/Nein Feld WAHR ist, nur dann soll auch die PDF erzeugt werden. Ich dachte dan evtl an folgenden Code (funktioniert leider nicht):

With Me.[frmfertAuftrag Unterformular].Form.Recordset
.MoveFirst
Do Until .EOF

DoCmd.OpenReport "BrcZertifikate_de_Logo", acViewPreview, , "[SubSTDAufID] = " & .Fields("SubSTDAufID") & .Fields("Bericht") = "-1"
DoCmd.OutputTo acOutputReport, "BrcZertifikate_de_Logo", acFormatPDF, "\192.168.178.57DateienZERTIFIKATE" & pfad & "" & .Fields("AnzeigeBez") & "-" & .Fields("Name") & " (" & .Fields("Lot") & ") " & ".pdf"
'DoCmd.PrintOut
DoCmd.Close acReport, "BrcZertifikate_de_Logo"
.MoveNext
Loop
End With

Hat da jemand eine Idee?

 

Moin,
Code:

mir scheint, da fehlt ein " AND ".