Champs valide si age superieur à 20

Fermé
seyf1981 - Modifié par seyf1981 le 15/12/2015 à 16:57
castours Messages postés 2955 Date d'inscription lundi 18 septembre 2006 Statut Membre Dernière intervention 31 août 2019 - 16 déc. 2015 à 14:14
Bonjour,

salut, je travaille sur un formulaire access 2003 ou j'ai un champ date de naissance, 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

1 réponse

le meruvien Messages postés 1111 Date d'inscription vendredi 12 août 2011 Statut Membre Dernière intervention 15 avril 2024 40
16 déc. 2015 à 06:11
bonjour,
Apres mise à jour de ta date de naissance, dans la procédure, tu met:
  if (date -[date de naissance])<20 then
msgbox"date non valide"
endif
0
Bonjour,
Merci le meruvien pour votre aide mais ça marche j'ai copié coller la syntax en modifiant seulement [date de naissance] par [date_de_naissance] , mais pas de resultat
0
le meruvien Messages postés 1111 Date d'inscription vendredi 12 août 2011 Statut Membre Dernière intervention 15 avril 2024 40
16 déc. 2015 à 09:10
ben alors? ça marche ou y a pas de résultat??
0
castours Messages postés 2955 Date d'inscription lundi 18 septembre 2006 Statut Membre Dernière intervention 31 août 2019 217
16 déc. 2015 à 10:33
bonjour le meruvien
Si date est la fonction date il manque les parentheses
Date()
0
le meruvien Messages postés 1111 Date d'inscription vendredi 12 août 2011 Statut Membre Dernière intervention 15 avril 2024 40
16 déc. 2015 à 12:08
bonjour guy, ben si c'est en VBA, je ne met jamais de () et ça marche!
0
Domage pour moi ça marche pas voici exactement ce que j'ai ajouté comme VB:

Private Sub date_de_naissance_AfterUpdate()
If (Date - [date_de_naissance]) < 20 Then
MsgBox "date non valide"
End If
End Sub


ça marche pas aussi avec ce code:

Private Sub date_de_naissance_AfterUpdate()
If (Date() - [date_de_naissance]) < 20 Then
MsgBox "date non valide"
End If
End Sub
0