Discussion :

[totor92290]

Bonsoir,

Je voudrais ouvrir un message box si la date saisie est "trop éloignée (+2 ans à la date saisie)
Le code ci-dessous ne fonctionne pas. Quelqu'un aurait-il une réponse ?

Code :

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

1
2
3
4
5
6
7
On Error Resume Next 
 If (DateAdd("yyyy", 2, CDate([R11_selection_transport_en_cours sous-formulaire1]![date_ENL_réalisée]))) < ([R11_selection_transport_en_cours sous-formulaire1]![date_ENL_réalisée]) Then
MsgBox "Problème la date semble trop éloignée !"
[R11_selection_transport_en_cours sous - formulaire1]![date_ENL_réalisée].SetFocus
Cancel = True
Exit Sub
End If

[loufab]

Bonjour,

Trop éloignée par rapport à quelle date ? A elle même ?!

Si tu fais un Cdate() d'un coté fait la même chose de l'autre ! Pourquoi le controle serait bien interprété d'un coté et pas de l'autre de la comparaison ?

Il y a la fenêtre d'exécution qui permet de tester.

Code :

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

1
2
3
4
?  DateAdd("yyyy", 2, CDate("1/1/2012))) < ("1/1/2012")
Vrai
? DateAdd("yyyy", 2, CDate("1/1/2012))) < cdate("1/1/2012")
Faux

Dans le premier cas on s'apperçoit immédiatement du résultat fantaisiste.

Pour tester un écart entre 2 date il y a DateDiff() qui est plus adapter.

Cordialement,

[totor92290]

Merci Loufab,

En fait, juste avant de confirmer sa saisie, en cliquant sur un bouton, l'opérateur si il a fait une saisie "fantaisiste" le message d'erreur s'ouvre pour l'alerter.
Généralement l'enlèvement

Code :

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

[R11_selection_transport_en_cours sous-formulaire1]![date_LIV_réalisée])

se fait entre 1 et 5 jours maxi par rapport à la date d'enlèvement

Donc si l'année saisie pour la date de livraison est supérieure à 2 ans à la date d'enlèvement, je voudrais un message d'erreur?

C'est sans doute plus clair comme ça ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
On Error Resume Next
 
 
    If (DateAdd("yyyy", 2, CDate([R11_selection_transport_en_cours sous-formulaire1]![date_ENL_réalisée]))) < ([R11_selection_transport_en_cours sous-formulaire1]![date_LIV_réalisée]) Then
 
        MsgBox "Problème la date semble trop éloignée !"
 
        [R11_selection_transport_en_cours sous - formulaire1]![date_ENL_réalisée].SetFocus
 
        Cancel = True
 
        Exit Sub
 
    End If

[loufab]

En effet avec 2 dates différentes c'est mieux.

Donc reste à utiliser plutot le datediff() et utiliser Cdate() sur les 2 dates.

Après ça fonctionnera.