Vba Datum Controleren met datum vanddag

[Djang]

Hoi ,

Ik ben een Vba aan't maken om reservatie's in te geven .
Nu wil ik eem MsgBox als de ingegeven datum reeds verstreken is , dus datum vergelijken met datum van Vandaag .

    If Trim(Me.InvoerAankomstDatum.Value) < TODAY Then
    Me.InvoerAankomstDatum.SetFocus
    MsgBox " Aankomst Datum reeds verstreken"

    Exit Sub
    End If

Deze werkt niet ,wie weet raad ?

 

[edmoor]

Het veld InvoerAankomstDatum is een tekstveld neem ik aan? En wat is het datatype van TODAY en hoe is deze gevuld?

 

[Djang]

Hoi Elmoor

InvoerAankomstDatum is idd een tekstvak , TODAY is een gok om te verwijzen naar datum Vandaag

 

[OctaFish]

De formule moet zowiezo dit zijn:

If Me.InvoerAankomstDatum.Value Then < Date()

Tenzij je een aparte functie hebt gemaakt die de functie Date() Toevoegt aan de variabele TODAY, wat een beetje onzinnig zou zijn omdat de functienaam dan langer is dan de functie.

 

[edmoor]

Vandaar m'n vraag Michel
Nu moet Me.InvoerAankomstDatum.Value nog worden geconverteerd naar een datumtype voordat je hem kun vergelijken met Date() of andersom.

Je zou zoiets kunnen doen:
If CDate(Me.InvoerAankomstDatum.Value) < Date Then

 

[Warme bakkertje]

Beetje muggeziften :d

If CDate(Me.InvoerAankomstDatum.[COLOR="#FF0000"]Text[/COLOR]) < Date Then

 

[edmoor]

Jij mag dat
En je hebt helemaal gelijk.

 

[Djang]

Hoi ,

Deze werkt perfect : If CDate(Me.InvoerAankomstDatum.Value) < Date Then

Thanks

Ben vb nog aan't leren , waarom zou je text zetten ipv Value ?

Weet er toevalig iemand een goed boek of webside om VBA te leren ?

Greetings Jan