Discussion :

[houleyh]

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

[ClaudeLELOUP]

Bonjour,

essaie plutôt avec ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
If Format(Me.ActiveControl, "dddd") <> "dimanche" Then
   MsgBox Me.ActiveControl & " n'est pas un dimanche !"
   Cancel = True
   Me.ActiveControl.Undo
End If

[houleyh]

Merci Claude,

Beau travail.

YH