Discussion :

[fusex132]

bonjour a toutes et tous
J'ai une date dans un champ "MaDate1" je voudrais interdire la saisie de la date du jour dans "MaDate2" si pas Sup a "MaDate1" + 7 jours pleins, et l'autoriser dans le cas contraire CAD si "MaDate2" Sup à "MaDate1"+7.
Merci bcp

[Jean-Philippe André]

bonjour et bienvenue sur DVP
tu peux faire ca avec un bout de code comme suit, en partant du principe que tes champs sont de type calendrier, sinon il faut ajouter un Format() :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub MaDate2_AfterUpdate()
If Madate2.value > Madate1.value + 7 then
Else
MsgBox "mauvaise date"
End If
'If Format(Madate2.value,"MM/dd/yyyy") > Format(Madate1.value,"MM/dd/yyyy") + 7 then
'Else
'MsgBox "mauvaise date"
'End If
'
'
 
End Sub