Pro Woche eine seite

[stefan19051990]

Einen wunderschönen Sonntag euch allen.
Ich bin neu hier und hoffe, dass ihr mir helfen könnt.
Nun mein Problem:
Ich möchte eine Datenbank in ACCESS erstellen, bei der es um einen Ausbildungsnachweis geht. Hierbei soll, wenn ich den Bericht öffne, auf jeder Seite eine Kalenderwoche gedruckt werden.
Nun kommt der Moment, wo ich euren input brauche. Ich habe es schon mit VBA versucht :
hier der code:

Dim AnzahlSeiten As Integer
Private Sub Report_Open(Cancel As Integer)
    AnzahlDatensaetze = 0
End Sub

Private Sub Detailbereich_Format(Cancel As Integer, FormatCount As Integer)
    AnzahlDatensaetze = AnzahlDatensaetze + 1
    If AnzahlDatensaetze = 5 Then
        Me.Section("Detailbereich").ForceNewPage = 1
    Else
        Me.Section("Detailbereich").ForceNewPage = 0
    End If
End Sub

Private Sub Seitenkopfbereich_Format(Cancel As Integer, FormatCount As Integer)
    AnzahlDatensaetze = 0
End Sub

Hiermit schaffe ich es aber nur die erste Berichtsseite mit der entsprechenden Datensatzzahl auszuführen.
Sobald ich auf die zweite Seite wechsel zeigt er mir alle weiteren Sätze an.
Es ist ganz wichtig das es immer eine Kalenderwoche pro Blatt ist.

Vielen Dank im Voraus.
ich freue mich jetzt schon auf eure Hilfe

[DF6GL]

Hallo,

erstelle

-eine Berichtsabfrage mit den benötigten Feldern und zusätzlich einer berechneten Spalte mit etwa diesem Inhalt  in Zelle "Feld":

Code [Auswählen] Erweitern


JW: Jahr([DeinDatumsFeld]) & Format(DatTeil("ww";[DeinDatumsFeld];2;2);"00")


-im Bericht einen Gruppenbereich bezogen auf Feld "JW" und setze die Einstellung der Gruppenbereich-Eigenschaft "Neue Seite" auf "vor Bereich"

[stefan19051990]

Super Danke für die schnelle antwort.
werde ich morgen in aller ruhe ausprobieren. ich hoffe das klappt.