DTPicker saisir Date Futur impossible Résolu

Question

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.

Configuration: Windows 7 / Internet Explorer 8.0

f894009 · Answer

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