Discussion :

[davez]

Hello tous le monde,

Suis carrément perdus.
j'essaie en vain de calculer l'age d'une personne a partir de sa date de naissance.
Je suis complètement novice sous Access et en programmation.

Dans ma table "Etudiants" J'ai un champs "age" sous format date/heure et un champs "date de naissance" sous format date/heure.

J'ai cherché sur Google parce que Google est mon ami mais la c'est pas mon pote toutes les solutions que je trouves ne fonctionne pas.

Pour la formule : Ent(DiffDate("j";[date de naissance];Maintenant())/365,25)

je l indique dans "valeur par défaut" et ça me dit : le moteur de base de données ne reconnait pas le champs "date de naissance" dans une expression de validation ou la valeur par défaut dans la table Etudiants.

Ou est ce que je me trompe ? Que dois je faire ?
Merci a vous si vous avez des pistes ... En revanche n'hesitez pas a m'expliquez ça comme a un novice

[Manhexter]

Salutations,

Alors, on va commencer par le début...Si tu souhaites respecter un certains formalisme dans ta base, tu dois savoir qu'on ne stocke jamais une donnée calculable dans une table. Or l'âge est bien sûr une donnée calculable.
Il faudrait donc que tu supprimes ce champs de ta table.

Pour obtenir l'âge de tes étudiants, tu crées une requêtes sur ta table étudiant et c'est elle qui va faire le calcul. Voici le code SQL de la requête qui renverra UNIQUEMENT l'âge tronqué à l'année entière :

Code :

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

1
2
SELECT Int((Date()-[naissance])/365.25) AS Age
FROM Table1;

Il te reste à adapter le nom du champ entre crochet et le nom de la table. Tu peux bien sûr également ajouter des champs dans la sélection.

Si tu as des questions supplémentaires, n'hésites pas.

Cordialement,

[davez]

Merci Beaucoup
Tes explications sont presque super clair pour le novice que je suis.
En revanche y a un truc que je ne comprends pas :
Si je supprime le champs "age" ou va se trouver le résultat du calcul sur mon formulaire ?

[Invité]

Bonjour
Tu as également la Faq:
http://access.developpez.com/faq/?page=dates#HowOld

[davez]

Merci GAYOT mais la FAQ ne m apporte pas de reponses malheureusement

[Invité]

ne comprends pas :
Si je supprime le champs "age" ou va se trouver le résultat du calcul sur mon formulaire ?

Dans ton formulaire tu peux tout à fait avoir une zone indépendante dans laquelle sera effectuée le calcul par rapport à ta zone 'date de naissance'.

[davez]

Merci encore une fois.
Est ce que cela t embêterais beaucoup de me détailler la procédure.
Je viens d'essayer et j'ai le droit a "#Erreur"

MErci

[Invité]

Dans la propriété source contrôle de ta zone libre:

Code :

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

=Int(DiffDate("j";[naissance];Maintenant())/365,25)

Remplace 'naissance' par le nom exact de ton champ

[davez]

1 Milliard de fois Mercisssssssssssssssssssssssss

[Invité]

C'est une solution.
Comme l'a dit Mahexter, tu peux également passer par une requête qui devient la source de ton formulaire...Donc à toi de voir.

[JacquieDev2019]

Hello tous le monde,

Suis carrément perdus.
j'essaie en vain de calculer l'age d'une personne a partir de sa date de naissance.
Je suis complètement novice sous Access et en programmation.

Dans ma table "Etudiants" J'ai un champs "age" sous format date/heure et un champs "date de naissance" sous format date/heure.

J'ai cherché sur Google parce que Google est mon ami mais la c'est pas mon pote toutes les solutions que je trouves ne fonctionne pas.

Pour la formule : Ent(DiffDate("j";[date de naissance];Maintenant())/365,25)

je l indique dans "valeur par défaut" et ça me dit : le moteur de base de données ne reconnait pas le champs "date de naissance" dans une expression de validation ou la valeur par défaut dans la table Etudiants.

Ou est ce que je me trompe ? Que dois je faire ?
Merci a vous si vous avez des pistes ... En revanche n'hesitez pas a m'expliquez ça comme a un novice

Bonjour Davez.

En premier lieu, je mettrais le champ age en numérique (Format: "Integer" ou entier), au lieu du format date/heure.

Ensuite, j'évite de mettre des espaces ou des accents dans les noms des champs. Je renommerai donc le champ [date de naissance] en [DateNaiss] (par exemple).

Pour finir, un petit code événementielle en VBA sur la perte focus du champ [date de naissance] et/ou en réception focus du champ [Age]...
(le ' indique un commentaire, par soucis de clarification et de compréhension, et ce qui suit sur la ligne est purement informel).

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub DNaiss_LostFocus()  'Perte de focus du champ DNaiss
    If [DNaiss].Value <> "" Then
        [Age].Value = Int((Date - [DNaiss]) / 365.25)
    End If
End Sub
 
Private Sub Age_GotFocus()  'Réception de focus du champ Age
    If [DNaiss].Value <> "" Then
        [Age].Value = Int((Date - [DNaiss]) / 365.25)
    End If
End Sub

Le champ [Age] prend ainsi la valeur (entière numérique), convertie en années ("/365.25") de la différence entre la date d'aujourd'hui Date(), et la date de naissance [DNaiss].

Voilà, j'espère que mon explication te parait claire...

A+