Discussion :

[Ric21]

Bonjour

Je revient à la charge

Dans un formulaire, j'ai un champ "Age" calculer (En VBA) à partir de la date de naissance.
Je souhaiterais faire des tranches d'ages (Ex : 10/20; 20/30; 30/40;etc.)

Je nais toujour pas compris comment réaliser cette chose.

Merci de me venir en aide.

Ric21

[Jeannot45]

Bonjour,

Ton calcul, tu peux le faire dans la requete source de ton formulaire et là tu pourras utiliser la fonction Partition qui te permettra de faire des regroupements par tranche

[Ric21]

Bonsoir Jeannot45

Je pense que je me fait mal comprendre

Dans mon formulaire, j'ai un champ "Date de naisance" et un champ "Age"

Le champ "Date de naisance" met à jour le champ "Age"

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub DateNais_AfterUpdate()
'Met à jour le champ Age
On Error GoTo Testage
    Me!AgeAd.Enabled = True
    Me!AgeAd = Int((Now() - [DateNais]) / 365.25)
    Me!AgeAd.Enabled = False
    Me!Adresse.SetFocus
    Exit Sub
Testage:
    If Err = 2110 Then Exit Sub
End Sub

Donc je n'est pas de requête
Et c'est la que je bloque

[vodiem]

salut à tous,

Ric21,
<Age> ne doit pas être stocké dans le champ d'une table, ce doit être un champ calculé (automatiquement).

il est préférable d'utiliser une requete comme source de ton formulaire.
requete dans laquelle tu peux utiliser cette formule ici
qui est plus exacte (lire la discution entièrement) pour le calcul de l'age.

ainsi dans la requete tu peux rajouter autre un champ utilisant la fonction Partition() (cf <F1>) qui calculera automatiquement la tranche d'age ou si tu préfères une série de Iif() <=> VraiFaux() ou encore la fonction Switch().
champs que tu insères dans ton formulaire.

bien sur tu peux aussi choisir d'utiliser ces formules directement dans des controls indépendants de ton formulaire en les adaptant un peu.

bonne continuation,

[Ric21]

Bonjour

Merci pour les réponses

Je dois m'absenter quelques jours

@ +

[fevec]

bonjour à tous,

Merci à Vodiem et Jeannot45 pour avoir signaler ces 2 fonctions oubliées d'Access...
Quand je pense que j'avais créer une fonction mise en classe ! (dont je suis fier tout de même !)

Petite question que je vais poser aussi sur le forum Excel
..connaissez vous s'il y a un équivalent à Partition et Switch sous Excel....pour faire des mises en classes justement (à la place de SI( imbriqués )

Merci

fevec