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

  1. le meruvien Messages postés 1414 Statut Membre 44
     
    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
    1. 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
    2. le meruvien Messages postés 1414 Statut Membre 44
       
      ben alors? ça marche ou y a pas de résultat??
      0
    3. 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
    4. le meruvien Messages postés 1414 Statut Membre 44
       
      bonjour guy, ben si c'est en VBA, je ne met jamais de () et ça marche!
      0
    5. 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