Wie kann ich den Berichtsfuss in einem Accessbericht automatisch farblich bedingt formatieren?
aus dem Textfeldfeld BonusMittelwert (Zahl) soll die u.a. Hintergrundfarbe gesetzt werden.
Code funktioniert jedoch nicht bei mir.
Option Compare Database
Option Explicit
Private Sub Berichtsfuß_Format(Cancel As Integer, FormatCount As Integer)
Select Case [BonusMittelwert]
Case 90 To 100
Berichtsfuß.BackColor = RGB(0, 255, 0) 'Gr¸n
Case 50 To 89
Berichtsfuß.BackColor = RGB(190, 190, 190) ' grau
Case Else
Berichtsfuß.BackColor = RGB(255, 0, 0) 'Rot
End Select
End Sub