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

A voir également:

Champs valide si age superieur à 20
Ethernet n'a pas de configuration ip valide - Guide
Combien y a-t-il de bateaux dans la zone de 1500 pixels de large et 500 pixels de haut à partir du coin supérieur gauche de cette image ? - Forum Graphisme
Scream age - Forum Cinéma / Télé
Formule excel si date supérieur à une autre date ✓ - Forum Excel
Fitness park age minimum - Forum Loisirs / Divertissements

1 réponse

Réponse 1 / 1

le meruvien Messages postés 1125 Date d'inscription vendredi 12 août 2011 Statut Membre Dernière intervention 15 décembre 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

seyf1981
16 déc. 2015 à 09:07

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

le meruvien Messages postés 1125 Date d'inscription vendredi 12 août 2011 Statut Membre Dernière intervention 15 décembre 2024 40
16 déc. 2015 à 09:10

ben alors? ça marche ou y a pas de résultat??

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()

le meruvien Messages postés 1125 Date d'inscription vendredi 12 août 2011 Statut Membre Dernière intervention 15 décembre 2024 40
16 déc. 2015 à 12:08

bonjour guy, ben si c'est en VBA, je ne met jamais de () et ça marche!

seyf1981
16 déc. 2015 à 12:26

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

Discussions similaires

Voxbone ? qui est-ce ?

Nom de champs du tableau croisé dynamique non valide

Quel âge pour Vampire Diaries ?

problème de pixel

Arrondir sur excel au 0,5 supérieur