Udskrive rapporter med forskellige tabeller.

Ja - Blot udskriv dem efter hinanden.

DoCmd.OpenReport "Rapport1", acPreview, "", ""
DoCmd.OpenReport "Rapport2", acPreview, "", ""
DoCmd.OpenReport "Rapport3", acPreview, "", ""
o.s.v.

'mugs' der er bare lige det, at det skal være den sidste rapport i hver record!
Jan

Jeg tænkte nok der lå noget bag :o)
Men hvad mener du med:

"den sidste rapport i hver record"

Er den sidste post i tabellen, og i givet fald hvordan bestemmer du hvilken post der er den sidste?

'mugs'  det er den sidste post i tabellen 'acLast'

Du må jo have et felt der indentificerer den sidste post, her er det feltetl IDFELT:

Dim VARa As Long
VARa = DMax("[IDFELT]", "acLast")
DoCmd.OpenReport "rapport2", acViewPreview, , "[acLast]![IDFELT]=" & VARa

'mugs' det funker ikke

Her fungerer det upåklageligt, eller vi taler forbi hinanden. Hvilken fejlmelding får du? Din e-mail til en testdb?

'mugs' Primary key er = ID

IDFELT = ID

"rapport2" = "Cash book"

Så det burde køre

Det kører her. Denne er afprøvet og fungerer. Den udskriver den post hvor IDFELT har den højeste værdi i tabellerne:

Dim VARa As Long
VARa = DMax("[IDFELT]", "tabel1")
DoCmd.OpenReport "rapport1", acViewPreview, , "[Tabel1]![IDFELT]=" & VARa
VARa = DMax("[IDFELT]", "tabel2")
DoCmd.OpenReport "rapport2", acViewPreview, , "[Tabel2]![IDFELT]=" & VARa

'mugs' koden funkede. tak for hjælpen

Selv tak - Hvad gik galt?

Det var selve tabel navnet der manglede "tabel1" og "tabel2"