Automatisation choix de tranche d'âge

**mjcguillemin** · 14/10/2014, 09h28

Bonjour,

Tout d'abord j'espère que je vais réussir à trouver les bons mots pour m'expliquer et que je poste au bon endroit ! Sinon, par avance, toutes mes excuses.

Débutante Access, je gère une BDD d'adhérents avec la version 2007. Je souhaite améliorer le fichier pour pouvoir gagner du temps.

Dans mon formulaire je rentre la date de naissance de l'adhérent et j'ai une liste déroulante pour la tranche d'âge en dessous, que je sélectionne à chaque fois à la main.
Lorsque je rentre une ville, mon code postal s'enregistre automatiquement grâce à une macro évènementielle après MAJ du champ. Est ce possible de faire la même chose pour les tranches d'âge ?

Je vois plus ou moins le cheminement, mais impossible de mettre en œuvre.
Pourriez vous m'aider ?

Laurène

**marot_r** · 14/10/2014, 14h51

Bonjour et bienvenu dans le monde merceilleux de Access :-).

La réponse courte est "oui".

Comme tu entres la date de naissance et que l'âge change chaque année, je te suggère de ne pas enregistrer la tranche d'âge mais de la calucler au besoin. Tu utiliseras ce calcul dans une requête quand tu en auras besoin.

à mettre dans un module et adapter à ton besoin :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
public function CalculerTrancheAge(prmDateNaissance as variant) as string
 
   dim result as string:result=""
 
   if isnull(prmDateNaissance) then
       exit function
   end if
 
   dim age as long:age=datediff("yyyy",prmDateNaissance,date()) 'Calcul l'âge en fonction de la date du jour
 
   select case 
      case 0 to 10
         result="Enfant"
 
      case 0 to 10
         result="Enfant"
 
      case 11 to 18
         result="Adolescent"
 
      case > 18
         result="Adulte"
 
      case else
         error(5) 'Pour attraper les erreurs de selection
 
   end select
 
end function

pour l'utiliser dans un champ de formulaire ou de rapport : =CalculerTrancheAge([NomChampDateNaissance])
pour l'utiliser dans un champ de requête NomTonChamp:CalculerTrancheAge([NomChampDateNaissance])
A+

**mjcguillemin** · 15/10/2014, 11h15

Envoyé par marot_r

Bonjour et bienvenu dans le monde merceilleux de Access :-).

La réponse courte est "oui".

Comme tu entre la date de naissance et que l'âge change chaque année, je te suggère de ne pas enregistrer la tranche d'âge mais de la calucler au besoin. Tu utiliseras ce calcul dans une requête quand tu en auras besoin.

à mettre dans un module et adapter à ton besoin :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
public function CalculerTrancheAge(prmDateNaissance as variant) as string
 
   dim result as string:result=""
 
   if isnull(prmDateNaissance) then
       exit function
   end if
 
   dim age as long:age=datediff("yyyy",prmDateNaissance,date()) 'Calcul l'âge en fonction de la date du jour
 
   select case 
      case 0 to 10
         result="Enfant"
 
      case 0 to 10
         result="Enfant"
 
      case 11 to 18
         result="Adolécent"
 
      case > 18
         result="Adulte"
 
      case else
         error(5) 'Pour attraper les erreurs de selection
 
   end select
 
end function

pour l'utiliser dans un champ de formulaire ou de rapport : =CalculerTrancheAge([NomChampDateNaissance])
pour l'utiliser dans un champ de requête NomTonChamp:CalculerTrancheAge([NomChampDateNaissance])
A+

Merci pour la réponse ! Je teste rapidement et je te tiens au courant.

**mjcguillemin** · 17/10/2014, 16h39

J'ai créer le module, je l'ai enregistré et j'en comprends plus ou moins le cheminement. Jusque là pas de soucis !
Par contre, pas moyen de le mettre en application que ce soit dans un formulaire ou dans une requête.

Il me renvoie erreur de compilation : erreur de syntaxe et me surligne la 1ère ligne en jaune (je ne sais pas si ça a un rapport ou pas).
J'ai peut-être loupé quelque chose ...