Berichtsdaten invertiert hervorheben (Access 97, 2000)

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.

 

Dienstleistungen

Als starker Partner an Ihrer Seite unterstützen wir Sie in folgenden Breichen:

Access-Programmierung

Benötigen Sie Unterstützung bei der Programmierung von Access-Anwendungen? Wir bieten die gesamte Bandbreite von der Access-Programmierung auf Stundenbasis bis zur Durchführung eines Software-Projektes als Auftragsarbeit an. Kontaktieren Sie uns für ein kostenloses Erstgespräch.

Software-Beratung

Haben Sie ein Software-Projekt und Sie wissen nicht, ob Access die richtige Plattform ist? Wir haben über 20 Jahre Erfahrung beim Erstellen von Windows-, Web und mobilen Anwendungen. Kontaktieren Sie uns für eine kostenlose Erstberatung.