DTPicker saisir Date Futur impossible

Résolu

colombe88 Messages postés 41 Statut Membre -
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention - 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.

Afficher la suite

1 réponse

f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention 1 717

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

DTPicker saisir Date Futur impossible

1 réponse

Discussions similaires

Newsletters