Opgelost textbox kleuren als datum gepasseerd is

[Schipper1994]

ik zou mijn textvak willen kleuren als de huidige datum gepasseerd is.
Leek mij simpel maar blijkbaar niet.
er worde enkel rekening gehouden met het 1ste getal.
bvb 31-12-2024. het vergelijk word enkel met het getal 3 gedaan dan.

ik heb deze code gebruikt.

If TextBox1.Value > TextBox2.Value Then
Me.TextBox1.BackColor = vbRed
Else
Me.TextBox1.BackColor = vbWhite
End If

 

[edmoor]

Maak er eens dit van:

Private Sub TextBox1_Change()
    On Error Resume Next
    If CDate(TextBox1.Value) > CDate(TextBox2.Value) Then
        TextBox1.BackColor = vbRed
    Else
        TextBox1.BackColor = vbWhite
    End If
End Sub

 

[AHulpje]

Ik zou de AfterUpdate gebeurtenis gebruiken (en de kleurtjes omwisselen ):

Private Sub TextBox1_AfterUpdate()
    If CDate(TextBox1.Value) > CDate(TextBox2.Value) Then
        Me.TextBox1.BackColor = vbGreen
    Else
        Me.TextBox1.BackColor = vbRed
    End If
End Sub

 

[edmoor]

En dat Me. verwijderen

 

[Schipper1994]

Het werkt.

Ja die "me." da heb ik ooit is ergens gevonden en gebruik da altijd
Mijn vba dingetjes hangen met youtube en veel van jullie informatie aan elkaar. Maar het werkt.

Dank u.

 

[OctaFish]

Me. gebruik je op het moment dat je code op een formulier o.i.d. gebruikt; in Access bijvoorbeeld werkt het perfect omdat je veel code op een formulier maakt. Je kunt dan heel simpel de objecten op dat formulier aanspreken en vinden met IntelliSense. Ik zou het dus zéker niet vergeten, en zelfs aanraden als je het op de juiste manier toepast . Niet alle tips van edmoor zijn nuttig of zinvol .

 

[Schipper1994]

dank u voor de verduidelijking.
Ik kwam er vandeweek ook achter dat je userform1.textbox.value ook kan gebruiken om gegevens uit een ander userform te halen.
Altijd leuk om als beginner dingetjes te leren.

 

[OctaFish]

Zolang dat formulier open staat . Je kunt alle geopende objecten opvragen wat dat betreft.