Discussion :

[Spriter]

Salut,

Je débute avec Access et je voudrais savoir comment faire la chose suivante :

Une table contient des champs de renseignements pour créer des fiches de contacts. Un de ces champs contient la date de naissance du contact. Comment faire pour que dans mon formulaire sous le champ à remplir avec la date de naissance, un autre champ affiche automatiquement l'age de la personne à la date de la saisie ?

J'espère que ce n'est pas trop compliqué

Merci à vous !

[Maxence HUBICHE]

Dans les solutions simples, tu peux mettre en source de ton formulaire un appel à la fontion diffdate (cf le tutoriel sur les Dates et Heures)

Cela donnerait queque chose comme :

Code :

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

1
2
 
=DiffDate("aaaa",[TonChampDateNaissance], Date())

Tu peux aussi le faire par un calcul en prenant le nombre d'années entières résolues (en moyenne de 365.25 jours ) ce qui ferai ce calcul :

Code :

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

1
2
 
=(Date()-[TonChampDateNaissance])\365.25

Attention à l'opérateur !
C'est bien \ et pas /

voilà

[Spriter]

Merci Maxence, j'ai tenté tes 2 soluces mais le champ de résultat me marque "#Erreur".

Je ne comprends pas pourquoi, en fait. J'ai potassé le tutoriel des dates que tu pointais et mes bouquins (des pavés)... tout le monde est d'accord sur les expressions à employer mais chez moi ca marque une erreur à l'arrivée .

Dans une table unique j'ai entre autres un champ "date de naissance" et champ "age" (vide).

Dans un formulaire appelant des données de cette même table on retrouve mon champ "Date de naissance" que l'on rempli et le champ "age" qui normalement contient la formule afin d'afficher l'age.

Je ne sais pas d'ou ça vient ...

[Frank]

Bonsoir,

peux tu nous montrer ton code ?

[francishop]

Bonsoir,

Que ce soit dans une requête ou sur ton formulaire "oublie" le champ age de ta table.
Dans une requête :

Code :

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

1
2
3
SELECT tbl_Personne.[date de naissance], 
DateDiff("yyyy",[date de naissance],Date()) AS Age1
FROM tbl_Personne;

Sur ton formulaire un nouveau champ "txt_Age", avec pour source :

Code :

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

=DiffDate("aaaa";[date de naissance];Date())

Cordialement.

[Spriter]

Merci beaucoup Francishop, ca marche très bien !