Dato overskredet

Du kan benytte den indbyggede funktion; betinget formatering....\'

Farmater / Betinget formatering..., følg herefter guiden.....

Der skulle stå: formater / Betinget formatering....

I formens vedÅbning hændelse:

If me.txtboxNavn > date() then
  me.txtboxNavn.backcolor = 111111
end if


Niels

virker ikke!

Den kan slet ikke finde ud af de kommandoer.
Desuden bruger man ikke længere () efter date i access, den tvinger det selv til blot at hede Date

:-)

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 DATO >Date Then
DATO.Forecolor = lngRed
Else
DATO.ForeColor = lngBlack
End If

Koden fungerer i Access97

-> cqleerup  - Godt jeg ikke skal udtale det  ;)

VBA er ikke konsekvent i brugen af () ved funktionskald. Nogle gange skal de med andre gange ikke.

Mugs\'s kode ser MEGET fornuftig ud - Om den virker efter hensigten afhænger af hvilken hændelse du vælger at skrive den i. Vær opmærksom på at hændelsen er valgt i egenskabsarket - det er ikke nok bare at kopiere proceduren ind i formens kodemodul

Niels

nih > Du har ret, koden er lagt i formularens OnCurrent hændelse. D.v.s. jo sige at feltet ikke skifter farve før der flyttes til en anden post og tilbage igen eller formularen lukkes og åbnes. Det er jo ikke særlig smart. men det kan vel rettes ved efter End If at indsætte linien:

Me.Refresh

som til spørgerens orientering opdaterer den underliggende tabel / forespørgsel.

Tak for din kommentar :o) 

Jeg har ændret koden:

Den skal ligge i datofeltets Change event, og skal se således ud:

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

cqleerup > Jeg bør tilføje, at tallene i paranteserne henfører til hvor meget farve (komplimentærfarver?), der er i de farver, du ser på skærmen.

F.eks.:
lngRed = RGB(255, 0, 0)

Hvis du ændrer tallet 255 (som er max.) til en lavere værdi, vil den røde farve få et mindre indhold af rødt, og dermed blive blegere.

Iøvrigt tak for point.