Voorwaardelijke opmaak in een doorlopend formulier

[handyhanky]

Beste lotgenoten

In een doorlopend formulier (Access) wil ik een datumveld (LWdatum) een kleur meegeven die bepaald wordt aan de hand van de huidige datum.
Zoiets:

If Me.LWdatum.Value = Date Then
Me.LWdatum.ForeColor = vbGreen
Else
Me.LWdatum.ForeColor = vbBlack
End If

Echter: in alle records komt dezelfde kleur, namelijk die correspondeert met het eerste record. Dus als in record 1 LWdatum = date dan worden alle records groen.

Waarschijnlijk heb ik een loopje nodig maar ik kom er niet uit

 

[OctaFish]

Dan doe je het niet helemaal juist, en zo te zien aan je code ook niet via <Voorwaardelijke Opmaak>. En dat is er nu juist zo geschikt voor
Maak op je datumveld een Voorwaardelijke opmaak van het type Expressie, met deze formule: [LWdatum]=Date()
Kleurtjes kun je zelf wel kiezen, zou ik zo zeggen!

Overigens is dit een standaard Access vraag; hoeft zeker niet in het VBA forum

 

[handyhanky]

Met dank. Ik kijk al 15 jaar naar Accessschermen en dan krijg je wel eens tunnelvisie