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
Hallo,
erstelle
-eine Berichtsabfrage mit den benötigten Feldern und zusätzlich einer berechneten Spalte mit etwa diesem Inhalt in Zelle "Feld":
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"
Super Danke für die schnelle antwort.
werde ich morgen in aller ruhe ausprobieren. ich hoffe das klappt.