Datum invoering

[musti]

Ik heb de volgende velden: dag, maand en jaar. Nou wil ik dat als de gebruiker de datum met korte notatie invoert(26-06-2009), dat de waarde overgaat naar de desbetreffende velden.

bijv. de gebruiker voert de volgende datum in: 26-06-2009, nou komt bij het veld dag de waarde 26 te staan, bij maand 06 en bij jaar 2009. Waarom ik niet een veld gebruik maar meerdere is , omdat ik gestructureerd wil zoeken, bijv dat ik absenties per maand wil bekijken.

 

[OctaFish]

Je kunt bijvoorbeeld zoiets doen:

Private Sub Datum_Geleverd_AfterUpdate()

If IsDate(Me.Datum_Geleverd) Then
    Me.txtDag = Day(Me.Datum_Geleverd)
    Me.txtMaand = Month(Me.Datum_Geleverd)
    Me.txtJaar = Year(Me.Datum_Geleverd)
End If

End Sub