Data Watch - Einsatz am Limit

Zusammenfassende „Ampel“

Eine vom Benutzer gewünschte „Ampel“, also die nzeige nur des schlechtesten Zustands, ist nun ehr einfach zu erstellen. Da die Bewertungen ufällig auch alphabetisch korrekt sortiert sind,können Sie dies über die Max-Funktion lösen:

=DomMax("QTyp";"qryUNION")

Diese wird Steuerelementinhalt einer Textbox und zeigt wie in Bild 6 nur noch den maximalen Text, also die schlechteste Bewertung.

Bild 6: Formular für zusammenfassende Anzeige.
Bild 6: Formular für zusammenfassende Anzeige.

Wenn der Text wie bei einer Ampel rot für "STOP", gelb für "MLDG" und grün für "INFO" gefärbt sein soll, ergänzen Sie das Formular frmAmpel um den Code aus Listing 13. Dadurch wird die Meldung in der passenden Farbe dargestellt und lässt sich relativ klein in irgendeinem Formular mit anzeigen.

Listing 13: Ampelfarben einstellen
Private Sub Form_Current()
Select Case LCase(Me.edtAmpel.Value)
Case "stop": Me.edtAmpel.ForeColor = 255 'rot
Case "info": Me.edtAmpel.ForeColor = 65535 'gelb
Case "mldg": Me.edtAmpel.ForeColor = 65280 'grün
Case Else: Me.edtAmpel.ForeColor = 16711680 'blau
End Select
End Sub