Felt skal skifte farve

Dim lngRed As Long, lngYellow As Long, lngBlack As Long, lngWhite As Long
lngRed = RGB(255, 0, 0)
lngYellow = RGB(255, 255, 0)
lngBlack = RGB(0, 0, 0)
lngWhite = RGB(255, 255, 255)
If Felt1 < "4" Then
Felt1.ForeColor = lngRed
Felt1.BackColor = lngWhite
Else
Felt1.ForeColor = lngYellow
Felt1.BackColor = lngBlack
End If
Me.Refresh

Feltnevnene / betingelsen skal naturligvis retes til.

I fortsættelse af mugs:

Brug funktionen DateDiff("m",Date,[Updated])=6
til at finde perioden (se evt. DateDiff hjælpeteksten)

.. og så findes farverne i øvrigt prædefineret som:
vbRed, vbYellow, vbBlack, vbWhite osv.  ;o)

fdata > prædefinerede farver, korrekt. Men giver det dig mulighed for at justere farvernes intensitet?

Rolig nu. Jeg skrev "I fortsættelse af ..."
Det var kun for at fortælle Schoesler, at netop de farver, som du omtalte (grundfarverne) var prædefinerede - og så kunne han af dit svar se, hvordan de øvrige bygges op. That's all.

Rolig > Du lyder som om du føler dig stødt! Har jeg udtrykt mig forkert beklager jeg :o)

mugs> No problem.
Gad vide om Schoesler er med endnu?

fdata > Schoesler kommer tilbage. Han skulle vist være væk et par dage.

Ja.! så er jeg tilbage, vil afprøve jeres foreslag og da vende tilbage

'mugs' jeg er endnu ikke kommet vidre, har du et eks. liggende