Validation de Date avec DatePicker
Bonjour,
Je suis nouveau sur vb. J'ai une application de carte de temps. Je dois m'assurer qu'il n'y a aucune création de carte de temps si une date valide (dimanche car fin de la semaine) n'a pas été sélectionné. La Date est WeekEnd et elle est choisie sur un formulaire avec un datepicker.
Comment m'assurer qu'aucune entrée ne soit acceptée tant qu'un dimanche n'a pas été sélectionné? J'ai essayé la sub suivante sur le bouton before update de WeekEnd sans succes. Je voudrais que si la date entrée n'est pas un dimanche, un message s'affiche, le champ sur le formulaire se vide et on attend jusqu'à ce que ce soit un dimanche qui soit choisit. Merci.
Code:
1
2
3
4
5
6
7
8
9
10
11
| Private Sub txtWeekEnd_BeforeUpdate(Cancel As Integer)
Dim JOURNEE As Integer
JOURNEE = Weekday(Me!WeekEnd, vbMonday)
If JOURNEE <> 7 Then
MsgBox " CETTE DATE N'EST PAS UN DIMANCHE", vbOKOnly, "Message"
Else
End If
End Sub |
