DTPicker saisir Date Futur impossible

Résolu/Fermé
colombe88 Messages postés 35 Date d'inscription mercredi 22 mai 2013 Statut Membre Dernière intervention 29 novembre 2014 - 1 juil. 2013 à 09:35
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 - 1 juil. 2013 à 11:53
Bonjour,

dans mon USF j'ai deux DTPicker sous le format suivant:
Format(DTPicker_An_Datum.Value, "DD.MM.YYYY") & " " & Format(DTPicker_An_Zeit.Value, "hh:mm")

j'aimerai empecher que l'utilisateur ne puisse pas entre de date futur.

merci pour votre aide.

1 réponse

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702
1 juil. 2013 à 11:53
Bonjour,

code simple:

Private DTPicker_An_Datum_Change()
    If DTPicker_An_Datum.Value > Date Then
        DTPicker_An_Datum.Value = Date
        MsgBox ("Pas de date supérieure à celle du jour ! ")
    End If
End Sub


Bonne suite
0