Regular
Beiträge: 51
| Hallo
ich bin mit meiner Weisheit am Ende
Ich habe in einem Bericht ein ungebundenes Feld zur Berechnung eines Zeitwertes.
Nun möchte ich dass das Feld abhängig des Zeitwertes eine andee Farbe bekommt, aber das funktioniert nicht.
Mein Listing:
Private Sub Report_Current()
Dim lngRed As Long
'Farbe Rot
lngRed = RGB(255, 0, 0)
edPlus11.SetFocus 'sicheheitshalber eingefügt
'Bei Zeitwert in diesem Bereich Farbe auf Rot setzen
If edPlus11.Value > "07:00" And edPlus11.Value <= "15:00" Then
edPlus11.ForeColor = lngRed
End If
End Sub
Ich habs schon in versciedenen Kombinationen versucht, wie nur mit > als 7 Uhr, <= 15:30, statt And mit Or --> keine Änderung der Farbe!
Wo ist da der Hund begraben?
Danke und ein gutes neues Jahr!!
Paula |