DTPicker saisir Date Futur impossible

Résolu
colombe88 Messages postés 35 Date d'inscription   Statut Membre Dernière intervention   -  
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   -
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 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
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