tekst datumveld anders kleuren bij bv zondag

[Friend]

Beste Forummers, Bij het uitprinten van mijn rapport(planning) zou ik graag als de datum op bv een zondag valt de tekst niet in zwart willen uitprinten maar bv in marine blauw. Hoe zou ik dit kunnen verwezelijken?? Friend

 

[OctaFish]

Probeer dit eens:

Private Sub Details_Format(Cancel As Integer, FormatCount As Integer)
    If WeekDay(Me.Datum, vbSunday) = 1 Then
        Me.Datum.ForeColor = RGB(0, 0, 255)
    Else
        Me.Datum.ForeColor = RGB(0, 0, 0)
    End If
End Sub

Deze code zet je in het rapport, bij de <Bij opmaken> regel van de Detailsectie.

 

[Friend]

OctaFisch, Perfect :thumb: Het staat er gekleurd op Thanks again ! Friend

 

[Friend]

OctaFish, nog een aanvullend vraagje als het kan. Is het ook mogelijk om het tekstveld te kleuren ?? Wat moet ik dan eranderen aan de code ?? Friend

 

[OctaFish]

Bedoel je de achtergrond van het tekstvak? Dat doe je met Backcolor. Verder zelfde principe.

 

[Friend]

OctaFish, beetje dom keek niet goed maar forecolor moet natuurlijk backcolor worden. Hartelijk dank :thumb::thumb: Friend