Discussion :

[Tagada_Or]

Bonjour à tous,

Je souhaite comparer deux dates dans deux formulaire différents liés par un numéro identifiant. J'ai essayé le code suivant :

Code :

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

1
2
3
4
Sub ComparDate()
 If DateValue(Formulaire1.Date1.Value) < DateValue(Formulaire2.Date2.Value) Then
   MsgBox " La date du formulaire 2 est antérieure à la date du formulaire 1, merci de corriger"
End Sub

Or, il ne fonctionne pas...

Quelqu'un pourrait-il m'aider en m'indiquant ce qui ne vas pas ou ce qu'il manque dans mon code ?

Merci beaucoup,

Tagada_or

[ClaudeLELOUP]

Bonjour,

Plutôt comme ceci :

Code :

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

1
2
3
4
Sub ComparDate()
 If Forms!Formulaire1!Date1< Forms!Formulaire2!Date2 Then
 MsgBox " La date du formulaire 2 est antérieure à la date du formulaire 1, merci de corriger"
 End Sub

[Tagada_Or]

Bonjour ClaudeLELOUP,

Merci pour votre retour mais même avec ce code, le contrôle ne s'effectue pas...
J'ai saisi le code dans le formulaire 1, je ne comprends pas pourquoi cela ne fonctionne pas.

Tagada_or

[ClaudeLELOUP]

Bonjour,

Il faut voir le contexte pour t'aider.

Peux-tu poster une BdD format Access2000 avec ton formulaire et me dire comment je peux produire l'erreur ?

[Tagada_Or]

Bonjour,

J'ai joint la base de donnée que j'ai simplifié. En fait j'ai un formulaire PREOPERAROIRE et un formulaire INTERVENTION et la date de l'intervention ne peut pas être antérieure à la date de l'examen préopératoire. Le code est saisi dans le formulaire intervention.

Merci encore,

Tagada_or

[ClaudeLELOUP]

Désolé, j'utilise Access2000 je ne peux pas lire ton format !


http://claudeleloup.developpez.com/F...access2000.pdf