Berichtsdaten invertiert hervorheben (Access 97, 2000)
Veröffentlicht am 29.12.2003
Wichtige Daten verdienen natürlich besondere Aufmerksamkeit.
Um bestimmte Daten hervorzuheben, invertieren Sie einfach die Vorder- und Hintergrundfarbe des Feldes.
Ein Textfeld mit schwarzer Schrift auf weißem Hintergrund würde nach der Invertierung also mit weißer Schrift auf schwarzem Hintergrund erscheinen.
Die folgende Beim Formatieren-Ereignisprozedur des Detailbereichs eines Berichts wertet das Feld Anzahl aus und invertiert es, wenn der Wert 0 oder negativ ist:
Const vbSchwarz = 0
Const vbWeiss = 16777215
Private Sub Detailbereich_Format(Cancel As Integer, FormatCount As Integer)
' Wenn weniger als 1 Artikel bestellt wurde,
' dann die Anzahl mit weiß auf schwarz drucken
If Me!Anzahl <= 0 Then
Me!Anzahl.BackColor = vbSchwarz
Me!Anzahl.ForeColor = vbWeiss
Else
Me!Anzahl.BackColor = vbWeiss
Me!Anzahl.ForeColor = vbSchwarz
End If
End Sub
Damit die Hintergrundfarbe sichtbar wird, stellen Sie sicher, dass die Eigenschaft Hintergrundart des Textfeldes auf Normal gesetzt ist.
Steht Ihnen ein Farbdrucker zur Verfügung, können Sie anstelle des schwarzen Hintergrunds natürlich auch jede andere Farbe einsetzen (z.B. rot). Achten Sie nur darauf, dass Sie für positive Werte die üblichen Farbwerte wiederherstellen, damit Access nicht alle restlichen Datensätze ebenfalls hervorgehoben darstellt.
