Bedingte Formatierung im Listenfeld

[Carl]

Hallo, mal eine Frage. Mit einem Listenfeld steuere ich zwei Unterformulare an, 90 und 91.

Code [Auswählen] Erweitern


Private Sub Liste87_AfterUpdate()
     With Me!Untergeordnet90.Form
         .Filter = "IDVisitenTermin = " & Me!Liste87 & ""
         .FilterOn = True
     End With
     With Me!Untergeordnet91.Form
         .Filter = "IDvt = " & Me!Liste87 & ""
         .FilterOn = True
     End With
End Sub


Das Listenfeld selbst sieht so aus:

Code [Auswählen] Erweitern


SELECT [abfVisitenTermin].[IDvt], [abfVisitenTermin].[VisitenTerminDatumCDBL], [abfVisitenTermin].[VisitenTerminAcronym] FROM abfVisitenTermin ORDER BY [VisitenTerminDatumCDBL] DESC;


Wobei [VisitenTerminDatumCDBL] abfrageseitig als ZDouble aus einem Datumsfeld berechnet wird.

Ich möchte jetzt, dass jene Listeneinträge in der Schriftfarbe grau erscheinen, deren Wert in [VisitenTerminDatumCDBL] kleiner ist als der des ZDouble des heutigen Datums.

Es sollen also Termine, die schon vorbei sind, grau erscheinen.

Geht sowas?

Carl

[DF6GL]

Hallo,

nein, nicht mit einem Access-eigenen Listenfeld-Steuerelement.

[Carl]

ah, okay

danke