Extreme Veteran
Beiträge: 567
| Hallo,
Dann ist eine Verknüpfung zwischen Haupt- und Unterberichten kontraproduktiv. Stattdessen solltest du so vorgehen:
- Abfragen anlegen, für jeden Unterbericht eine.
- Jedem Unterbericht seine Abfrage zuordnen.
- in Report_Open des Hauptberichts den SQL-String jeder Abfrage mit dem ausgewählten Filter als WHERE-Klausel ersetzen:
Dim Db As DAO.Database
Set Db = CurrentDb
Db.QueryDefs("DeineAbfrage").SQL = "SELECT ... FROM ... WHERE DeinFeld='" & strFilterwert & "'"
'Für alle Abfragen wiederholen
Set Db = Nothing
Wenn es verschiedene Ansichten desselben Datenbestands sind, reicht vielleicht eine einzelne Abfrage, und damit nur einmal ersetzen.
----- Gruss - Peter |