Champs valide si age superieur à 20

seyf1981 -  
castours Messages postés 2955 Date d'inscription   Statut Membre Dernière intervention   -
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 1130 Date d'inscription   Statut Membre Dernière intervention   40
 
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
seyf1981
 
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 1130 Date d'inscription   Statut Membre Dernière intervention   40
 
ben alors? ça marche ou y a pas de résultat??
0
castours Messages postés 2955 Date d'inscription   Statut Membre Dernière intervention   217
 
bonjour le meruvien
Si date est la fonction date il manque les parentheses
Date()
0
le meruvien Messages postés 1130 Date d'inscription   Statut Membre Dernière intervention   40
 
bonjour guy, ben si c'est en VBA, je ne met jamais de () et ça marche!
0
seyf1981
 
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