Schlagwort: Me

Private Sub Form_Current() 
' Wert des Datenbankfeldes "Wert1" prüfen 
' und Farbe auf Rot, Gelb oder Grün setzen 
    If Me!Wert1 = 100 Then 
        TextFeld1.BackColor = vbGreen 
    ElseIf Me!Wert1 >= 80 Then 
        TextFeld1.BackColor = vbYellow 
    Else 
        TextFeld1.BackColor = vbRed 
    End If 
End Sub