Access - Bericht - Listen formatieren

Im Detailbereich - Ereignis - Beim Formatieren

Private Sub Detailbereich_Format(Cancel As Integer, FormatCount As Integer)
  Me.Section(acDetail).BackColor = IIf(((CurrentRecord - 1) \ 3) Mod 2 = 1, RGB(227, 248, 150), vbWhite)
End Sub

bewirkt dass jeweils 3 Zeilen mit der Hintergrundfarbe 'hellgrün'/'weiss' foramtiert werden