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 : Sélectionner tout - Visualiser dans une fenêtre à part
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
Partager