Discussion :

[zoullat]

salut tous,

j'ai besoin de vos aides svp, j'ai un champ date de naissance dans une table access 2003, je veux qu'un message d'erreur s'affiche à chaque fois que le nombre d'année (entre la date de naissance et la date de jour) dépasse 20 ans


Merci d'avance

[zoom61]

Salut,

Tu devrais alors voir la fonction DateDiff.

Cdlt.

[zoullat]

Merci mais ce que je cherche a faire c'est de saisir une date de naissance valide dans mon formulaire, une date de naissance est valide si et seulement si l'age de candidat depasse 20 ans sinon je veux un message d'erreur qui s'affiche et indique qu'il faut inserer une date valide


cdlt

[zoom61]

Il faut mettre un calcul de date avec la fonction donnée précédente sur l’événement "Après MAJ" du champ du formulaire.

[zoullat]

Merci zoom61 mais est ce que tu peux m'envoyer la syntaxe a utiliser, j'arrive pas a appliquer ce qui est demandé

[zoullat]

En faite j'ai essayé cette syntax :

Code :

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

1
2
3
if (date -[date_de_naissance])<20 then
     msgbox"date non valide"
  end if

mais ça marche pas encore

[madefemere]

Bonjour,

Est-ce que tu as consulter l'aide sur l'utilisation de DateDiff comme dit par zoom61 ?

Normalement cela devrait être :

Code :

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

1
2
3
If DateDiff("yyyy", Date, Me.date_de_naissance) < 20 Then
msgbox"date non valide"
end if

Pour s'assurer du résultat de la fonction, tu peux mettre un

Code :

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

msgbox DateDiff("yyyy", Date, Me.date_de_naissance)

avant la vérification de la condition

Cordialement,

EDIT: Oups, même moi, j'ai fait l'erreur sur l'argument de l'intervalle.
Correction : "y" modifié par "yyyy" comme a mis zoom61) .

[zoom61]

La syntaxe sera :

Code :

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

1
2
3
4
if DateDiff ("yyyy", Me.date_de_naissance, Date) > 20 then
     MsgBox "date non valide"
     Me.date_de_naissance.SetFocus
end if

[zoullat]

Merciiiiiiiiiiiii infiniment Zoom61, excellent ça marche maintenant


tous mes respects