Discussion :

[Alpha31]

Bonsoir,

La situation :

J'ai un formulaire relié a une table,
dans cette table il y a quelque chose comme la date de naissance et l'age

Lorsque l'utilisateur entre ca date de naissance dans le formulaire, l'age est automatiquement calculé pour cette personne, maj dans le champ age de la table et afficher aussitot dans le champs age du formulaire.

Je veux faire cela en vba, je ne veux pas recalculé tout les ages des personnes dans la table, tel qu'on pourrait le faire avec une requete de modif mais juste l'age de la personne entrée en cour.

J'ai lu ca pour le calcul de l'age

divers chose sur les recordset,

et ca pour le numero de la position courante

Mais je n'arrive pas a faire le lien avec du code,
pouriez vous m'aider ?

Merci
Alpha

[LedZeppII]

Bonjour,

tu utilises la fonction VBA dans un champ calculé.
- Soit dans une requête
SELECT champ1, Champ2, ..., CalculAge([DateDeNaissance], Date) as Age FROM TaTable
- Soit dans un contrôle zone de texte
=CalculAge([DateDeNaissance], Date)
DateDeNaissance étant le champ de ta table contenat la date de naissance,
et Date la fonction VBA qui renvoie la date courrante.

Pour que la fonction CalculeAge soit reconnue il peut être necessaire d'ajout la clause Public dans le module de code :
Public Function CalculAge(...)
...
End Function

Bon courage

[FreeAccess]

Bonjour,
Heu ,je crois que j'ai pas tout compris ce que tu as dit

Premièrement, pourquoi as tu besoin d'avoir un champ âge dans ta table, alors que tu as déjà la date de naissance......Dans ton formulaire il suffira simplement de calculer l'âge de la personne en fonction de la valeur affichée dans ton champ Date Naissance
Maintenant si tu veux vraiment conserver l'age dans ta table, il suffit d'effectuer le calcul sur ton formulaire et de récupérer cette valeur dans ton champ Age.
Ton form étant basé sur ta table, l'enregistrement sera automatiquement mis à jour.
Mais je le répète, pourquoi conserver l'age alors qu'il va changer tous les ans
En espérant avoir compris correctemnt ton problème..

[Alpha31]

FreeAccess :

Si, je pense que tu as compris,
Néanmoins pr la raison du calcul de l'age, c parce que on me la demande, il y a des tranche d'age calculé aussi derrière, mais bon il la faut, si cela ne tenait qu'a moi ma table elle n'aurait aucun champ


LedZeppII :

Hum, je n'ai pas trés bien compris, mais cela a surement du m'aider puisque j'y suis a peu prés arrivé.


J'ai écrit ca en code et ca a l'air de fonctionner, dite moi si j'ai fauter quelque par z'o caz'ou

Private Sub Date_de_naissance_LostFocus()

'initialisation des 2 variables
Dim dateNaissance As Date 'recupère la date de naissance
Dim Age As Integer 'age calculé sur la date de naissance

'on recupère la date de naissance
dateNaissance = Me.Date_de_naissance

'on calcul l'age
Age = Year(Date) - Year(dateNaissance) + _
(Format(dateNaissance, "mmdd") > Format(Date, "mmdd"))

'on met a jour le champ age du formulaire
Me.Age = Age

'on calcul les tranche d'age que l'on actualise dans le formulaire
Select Case Age
Case Is > 45
Me.Tranche_d_age = "+ 45"
Case 36 To 45
Me.Tranche_d_age = "36 - 45"
Case 26 To 35
Me.Tranche_d_age = "26 - 35"
Case 18 To 25
Me.Tranche_d_age = "18 - 25"
Case Is < 18
Me.Tranche_d_age = ""
End Select

'On actualise les données du formulaire dans la table
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70

End Sub

1 -
Mais j'ai mis tout le code dans le formulaire, dailleur pourquoi faudrait il le mettre dans un module ?, je ne comprend pas ?

2-
Juste au passage, je dois faire quelque chose comme ca

If (Date > #1/1/2007#) Then

mais ca n'a pas l'air de fonctionner comment doit je l'ecrire ?


Merci beaucoup pour vos réponse
Alpha

[LedZeppII]

Bonjour,

FreeAccess :
j'ai mis tout le code dans le formulaire, dailleur pourquoi faudrait il le mettre dans un module ?, je ne comprend pas ?

Une fonction dans un module de code est utilisable partout (formulaires, Requêtes).
Le code que tu as écris n'est valable que pour ton formulaire.
Voila la différence.

Pour le 2e point je ne vois pas ce qui cloche.
L'expression renvoie Vrai si la date courante est >1/1/2007 et
Faux si la date courante est <=1/1/2007

Cdlt