Berichte aufteilen

17/06/2010 - 14:03 von Carsten Ulinski | Report spam
Hallo zusammen,
habe hier einen Bericht mit über 3000 Seiten. Darin sind aus meinem
ersten post Mitarbeiter und Produkte aufgeführt. Jeder Mitarbeiter hat
ca. 13 Seiten. Nun soll der Bericht pro Mitarbeiter automatisch
erstellt und evtl. auch versendet werden. So ein batchdruckmailing...
Ich dachte evtl. den Versand als snp.
Wer kann nochmal helfen?
 

Lesen sie die antworten

#1 Carsten Ulinski
17/06/2010 - 15:18 | Warnen spam
On 17 Jun., 14:03, Carsten Ulinski wrote:
Hallo zusammen,
habe hier einen Bericht mit über 3000 Seiten. Darin sind aus meinem
ersten post Mitarbeiter und Produkte aufgeführt. Jeder Mitarbeiter hat
ca. 13 Seiten. Nun soll der Bericht pro Mitarbeiter automatisch
erstellt und evtl. auch versendet werden. So ein batchdruckmailing...
Ich dachte evtl. den Versand als snp.
Wer kann nochmal helfen?



Sodele... guggln ergab dies:

Dim rs As Recordset
Dim strReport As String
Dim strKey As String

strReport = "rptProduktzuordnungVersenden"

Set rs = CurrentDb.OpenRecordset("qryProduktzuordnungen",
dbOpenDynaset)

With rs
Do While Not .EOF
strKey = "PersonalNr = " & !PersonalNr
DoCmd.OpenReport strReport, acNormal, , strKey
.MoveNext
Loop
End With

habe ich jetzt versucht, aber da kommen pro Mitarbeiter tausende von
Seiten heraus. Stimmt wohl was nicht mit der strKey. Aber welche
nehmen?

Ähnliche fragen