Bonjour,
Débutant avec Access 2000, j'ai créé une base de données permettant de gérer
les adhérents d'une association.
Je voudrais faire apparaître à l'ouverture de cette base, chaque jour, la
liste des anniversaire à souhaiter certainement en partant des dates de
naissance?
Je vous remercie de l'aide que vous pourrez m'apporter.
jmc
Jean-Marie C H E N O T - FFTT/CFA/UNATT
37, Le Pont de Pierre - 57270 UCKANGE
03 82 86 30 96 - 06 73 39 24 64
http://www.chez.com/pingphotos
http://www.unatt.fr/
http://www.unatt.fr/forum
La Dernière Quinzaine:Format([DateNaissance]) Critere:Entre Format(Date()-14;"mmjj") Et Format(Date();"mmjj") ou encore : Entre Format(AjDate("j";-14;Date());"mmjj") Et Format(Date();"mmjj")
Afficher : oui/non au choix Tri : Décroissant ???
Mais, ne faudrait-il pas plutôt prévoir ceux à souhaiter ? ;-)
Comment dois-je modifier la requête pour qu'il m'affiche les anniversaires des 15 derniers jours?
Merci
Le but de départ est d'afficher les anniversaires du jour Cependant lorsque la base n'est pas ouverte (samedi et dimanche) on risque d'en oublier quelques uns. Je pense que je vais partir sur quelque chose comme cela
Champs : Anniversaire en cours:Format([DateNaissance]) Critere : Entre Format(AjDate("j";-3;Date());"mmjj") Et Format(AjDate("j";+3;Date());"mmjj") Tri : Décroissant ou croissant selon ce que cela donne
-- Tonio Me.[Débutant]=Null ;-);-);-)
Eric a écrit dans son message <OF$wyXOKGHA.1132@TK2MSFTNGP10.phx.gbl> :
Bonjour,
Peut-être avec
La Dernière Quinzaine:Format([DateNaissance])
Critere:Entre Format(Date()-14;"mmjj") Et Format(Date();"mmjj")
ou encore : Entre Format(AjDate("j";-14;Date());"mmjj") Et
Format(Date();"mmjj")
Afficher : oui/non au choix
Tri : Décroissant ???
Mais, ne faudrait-il pas plutôt prévoir ceux à souhaiter ? ;-)
Comment dois-je modifier la requête pour qu'il m'affiche les anniversaires
des 15 derniers jours?
Merci
Le but de départ est d'afficher les anniversaires du jour
Cependant lorsque la base n'est pas ouverte (samedi et dimanche) on risque d'en
oublier quelques uns.
Je pense que je vais partir sur quelque chose comme cela
Champs : Anniversaire en cours:Format([DateNaissance])
Critere : Entre Format(AjDate("j";-3;Date());"mmjj") Et
Format(AjDate("j";+3;Date());"mmjj")
Tri : Décroissant ou croissant selon ce que cela donne
La Dernière Quinzaine:Format([DateNaissance]) Critere:Entre Format(Date()-14;"mmjj") Et Format(Date();"mmjj") ou encore : Entre Format(AjDate("j";-14;Date());"mmjj") Et Format(Date();"mmjj")
Afficher : oui/non au choix Tri : Décroissant ???
Mais, ne faudrait-il pas plutôt prévoir ceux à souhaiter ? ;-)
Comment dois-je modifier la requête pour qu'il m'affiche les anniversaires des 15 derniers jours?
Merci
Le but de départ est d'afficher les anniversaires du jour Cependant lorsque la base n'est pas ouverte (samedi et dimanche) on risque d'en oublier quelques uns. Je pense que je vais partir sur quelque chose comme cela
Champs : Anniversaire en cours:Format([DateNaissance]) Critere : Entre Format(AjDate("j";-3;Date());"mmjj") Et Format(AjDate("j";+3;Date());"mmjj") Tri : Décroissant ou croissant selon ce que cela donne
-- Tonio Me.[Débutant]=Null ;-);-);-)
jmchenot
Merci Pierre, Je vais m'appliquer..! jmc -- Jean-Marie C H E N O T - FFTT/CFA/UNATT 37, Le Pont de Pierre - 57270 UCKANGE 03 82 86 30 96 - 06 73 39 24 64 http://www.chez.com/pingphotos http://www.unatt.fr/ http://www.unatt.fr/forum
"tonio" a écrit dans le message de news:
Eric a écrit dans son message <OF$ :
Bonjour,
Peut-être avec
La Dernière Quinzaine:Format([DateNaissance]) Critere:Entre Format(Date()-14;"mmjj") Et Format(Date();"mmjj") ou encore : Entre Format(AjDate("j";-14;Date());"mmjj") Et Format(Date();"mmjj")
Afficher : oui/non au choix Tri : Décroissant ???
Mais, ne faudrait-il pas plutôt prévoir ceux à souhaiter ? ;-)
Comment dois-je modifier la requête pour qu'il m'affiche les anniversaires des 15 derniers jours?
Merci
Le but de départ est d'afficher les anniversaires du jour Cependant lorsque la base n'est pas ouverte (samedi et dimanche) on risque d'en oublier quelques uns. Je pense que je vais partir sur quelque chose comme cela
Champs : Anniversaire en cours:Format([DateNaissance]) Critere : Entre Format(AjDate("j";-3;Date());"mmjj") Et Format(AjDate("j";+3;Date());"mmjj") Tri : Décroissant ou croissant selon ce que cela donne
-- Tonio Me.[Débutant]=Null ;-);-);-)
Merci Pierre,
Je vais m'appliquer..!
jmc
--
Jean-Marie C H E N O T - FFTT/CFA/UNATT
37, Le Pont de Pierre - 57270 UCKANGE
03 82 86 30 96 - 06 73 39 24 64
http://www.chez.com/pingphotos
http://www.unatt.fr/
http://www.unatt.fr/forum
"tonio" <nospam.antoine.petruccelli@free.fr.nospam> a écrit dans le message
de news: mn.2ca87d62ff5d9e88.33360@free.fr.nospam...
Eric a écrit dans son message <OF$wyXOKGHA.1132@TK2MSFTNGP10.phx.gbl> :
Bonjour,
Peut-être avec
La Dernière Quinzaine:Format([DateNaissance])
Critere:Entre Format(Date()-14;"mmjj") Et Format(Date();"mmjj")
ou encore : Entre Format(AjDate("j";-14;Date());"mmjj") Et
Format(Date();"mmjj")
Afficher : oui/non au choix
Tri : Décroissant ???
Mais, ne faudrait-il pas plutôt prévoir ceux à souhaiter ? ;-)
Comment dois-je modifier la requête pour qu'il m'affiche les
anniversaires des 15 derniers jours?
Merci
Le but de départ est d'afficher les anniversaires du jour
Cependant lorsque la base n'est pas ouverte (samedi et dimanche) on risque
d'en oublier quelques uns.
Je pense que je vais partir sur quelque chose comme cela
Champs : Anniversaire en cours:Format([DateNaissance])
Critere : Entre Format(AjDate("j";-3;Date());"mmjj") Et
Format(AjDate("j";+3;Date());"mmjj")
Tri : Décroissant ou croissant selon ce que cela donne
Merci Pierre, Je vais m'appliquer..! jmc -- Jean-Marie C H E N O T - FFTT/CFA/UNATT 37, Le Pont de Pierre - 57270 UCKANGE 03 82 86 30 96 - 06 73 39 24 64 http://www.chez.com/pingphotos http://www.unatt.fr/ http://www.unatt.fr/forum
"tonio" a écrit dans le message de news:
Eric a écrit dans son message <OF$ :
Bonjour,
Peut-être avec
La Dernière Quinzaine:Format([DateNaissance]) Critere:Entre Format(Date()-14;"mmjj") Et Format(Date();"mmjj") ou encore : Entre Format(AjDate("j";-14;Date());"mmjj") Et Format(Date();"mmjj")
Afficher : oui/non au choix Tri : Décroissant ???
Mais, ne faudrait-il pas plutôt prévoir ceux à souhaiter ? ;-)
Comment dois-je modifier la requête pour qu'il m'affiche les anniversaires des 15 derniers jours?
Merci
Le but de départ est d'afficher les anniversaires du jour Cependant lorsque la base n'est pas ouverte (samedi et dimanche) on risque d'en oublier quelques uns. Je pense que je vais partir sur quelque chose comme cela
Champs : Anniversaire en cours:Format([DateNaissance]) Critere : Entre Format(AjDate("j";-3;Date());"mmjj") Et Format(AjDate("j";+3;Date());"mmjj") Tri : Décroissant ou croissant selon ce que cela donne
-- Tonio Me.[Débutant]=Null ;-);-);-)
jmchenot
Salut Pierre J'ai bien écrit dans le module : Function fnAge(DateNaissance As Date) As Integer
Dans la requète à la 1ère ligne " champ" Age: fnAge([dateNaissance])
après exécution de la requète, j'obtiens : Age -347 -358 -342 -342 -356
Quelle bêtise j'aifaite? Merci de ton aide. jmc
-- Jean-Marie C H E N O T - FFTT/CFA/UNATT 37, Le Pont de Pierre - 57270 UCKANGE 03 82 86 30 96 - 06 73 39 24 64 http://www.chez.com/pingphotos http://www.unatt.fr/ http://www.unatt.fr/forum
"3stone" a écrit dans le message de news: %
Salut,
"jmchenot"
| dans ma requèteoù j'obtiens les dates anniversaires, à la ligne "champ", | j'entre : | Age: fnAge(dateNaissance)
Ok
| à la ligne "critères" j'entre : |
Nooonnnn ;-)
La suite est une fonction que tu dois placer dans un module général (onglet module) et que tu sauve sous : mod_CalculSurDate par exemple.
Function fnAge(DateNaissance As Date) As Integer
fnAge = DateDiff("yyyy", DateNaissance, Date) _ + (Format(Date, "mmdd") _ < Format(DateNaissance, "mmdd")) End Function
Dans la requète à la 1ère ligne " champ"
Age: fnAge([dateNaissance])
après exécution de la requète, j'obtiens : Age
-347
-358
-342
-342
-356
Quelle bêtise j'aifaite?
Merci de ton aide.
jmc
--
Jean-Marie C H E N O T - FFTT/CFA/UNATT
37, Le Pont de Pierre - 57270 UCKANGE
03 82 86 30 96 - 06 73 39 24 64
http://www.chez.com/pingphotos
http://www.unatt.fr/
http://www.unatt.fr/forum
"3stone" <3stone_@_skynet_be> a écrit dans le message de news:
%23cIpNmnKGHA.3984@TK2MSFTNGP14.phx.gbl...
Salut,
"jmchenot"
| dans ma requèteoù j'obtiens les dates anniversaires, à la ligne "champ",
| j'entre :
| Age: fnAge(dateNaissance)
Ok
| à la ligne "critères" j'entre :
|
Nooonnnn ;-)
La suite est une fonction que tu dois placer dans un module général
(onglet module) et que tu sauve sous : mod_CalculSurDate
par exemple.
Function fnAge(DateNaissance As Date) As Integer
fnAge = DateDiff("yyyy", DateNaissance, Date) _
+ (Format(Date, "mmdd") _
< Format(DateNaissance, "mmdd"))
End Function
Dans la requète à la 1ère ligne " champ" Age: fnAge([dateNaissance])
après exécution de la requète, j'obtiens : Age -347 -358 -342 -342 -356
Quelle bêtise j'aifaite? Merci de ton aide. jmc
-- Jean-Marie C H E N O T - FFTT/CFA/UNATT 37, Le Pont de Pierre - 57270 UCKANGE 03 82 86 30 96 - 06 73 39 24 64 http://www.chez.com/pingphotos http://www.unatt.fr/ http://www.unatt.fr/forum
"3stone" a écrit dans le message de news: %
Salut,
"jmchenot"
| dans ma requèteoù j'obtiens les dates anniversaires, à la ligne "champ", | j'entre : | Age: fnAge(dateNaissance)
Ok
| à la ligne "critères" j'entre : |
Nooonnnn ;-)
La suite est une fonction que tu dois placer dans un module général (onglet module) et que tu sauve sous : mod_CalculSurDate par exemple.
Function fnAge(DateNaissance As Date) As Integer
fnAge = DateDiff("yyyy", DateNaissance, Date) _ + (Format(Date, "mmdd") _ < Format(DateNaissance, "mmdd")) End Function
Il faut mettre la fonction comme donnée par Pierre(3Stone). Sur une ligne, ca donne : Function fnAge(DateNaissance As Date) As Integer fnAge = DateDiff("yyyy", DateNaissance, Date) + (Format(Date, "mmdd") < Format(DateNaissance, "mmdd")) End Function
PS: Le lecteur de News va couper mais toi tu copies la partie droite de l'affectation sur une ligne. Le + (Format(Date, "mmdd") < Format(DateNaissance, "mmdd")) permet de diminuer, le cas échéant, l'age d'un an en tenant compte du mois. C'est une expression booléenne. Si Vrai, alors (Format(Date, "mmdd") < Format(DateNaissance, "mmdd")) vaut -1. Toi, tu as développé en pensant qu'il s'agissait d'une mise en facteur ;-)
Salut Pierre J'ai bien écrit dans le module : Function fnAge(DateNaissance As Date) As Integer
Dans la requète à la 1ère ligne " champ" Age: fnAge([dateNaissance])
après exécution de la requète, j'obtiens : Age -347 -358 -342 -342 -356
Quelle bêtise j'aifaite? Merci de ton aide. jmc
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Bonsoir,
Il faut mettre la fonction comme donnée par Pierre(3Stone).
Sur une ligne, ca donne :
Function fnAge(DateNaissance As Date) As Integer
fnAge = DateDiff("yyyy", DateNaissance, Date) + (Format(Date,
"mmdd") < Format(DateNaissance, "mmdd"))
End Function
PS: Le lecteur de News va couper mais toi tu copies la partie droite de
l'affectation sur une ligne.
Le + (Format(Date, "mmdd") < Format(DateNaissance, "mmdd")) permet de
diminuer, le cas échéant, l'age d'un an en tenant compte du mois. C'est
une expression booléenne.
Si Vrai, alors (Format(Date, "mmdd") < Format(DateNaissance, "mmdd"))
vaut -1.
Toi, tu as développé en pensant qu'il s'agissait d'une mise en facteur ;-)
Salut Pierre
J'ai bien écrit dans le module :
Function fnAge(DateNaissance As Date) As Integer
Il faut mettre la fonction comme donnée par Pierre(3Stone). Sur une ligne, ca donne : Function fnAge(DateNaissance As Date) As Integer fnAge = DateDiff("yyyy", DateNaissance, Date) + (Format(Date, "mmdd") < Format(DateNaissance, "mmdd")) End Function
PS: Le lecteur de News va couper mais toi tu copies la partie droite de l'affectation sur une ligne. Le + (Format(Date, "mmdd") < Format(DateNaissance, "mmdd")) permet de diminuer, le cas échéant, l'age d'un an en tenant compte du mois. C'est une expression booléenne. Si Vrai, alors (Format(Date, "mmdd") < Format(DateNaissance, "mmdd")) vaut -1. Toi, tu as développé en pensant qu'il s'agissait d'une mise en facteur ;-)
Salut Pierre J'ai bien écrit dans le module : Function fnAge(DateNaissance As Date) As Integer
Dans la requète à la 1ère ligne " champ" Age: fnAge([dateNaissance])
après exécution de la requète, j'obtiens : Age -347 -358 -342 -342 -356
Quelle bêtise j'aifaite? Merci de ton aide. jmc
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
jmchenot
Merci Eric, Finalement, après plusieurs essais, j'obtiens les ages de mes adhérents, une virgule ou un) en trop ou oublié. Chacun son métier... Avec votre aide : explications trés simples, un "nul" peut s'en sortir. Merci encore. jmc
"Eric" a écrit dans le message de news: %
Bonsoir,
Il faut mettre la fonction comme donnée par Pierre(3Stone). Sur une ligne, ca donne : Function fnAge(DateNaissance As Date) As Integer fnAge = DateDiff("yyyy", DateNaissance, Date) + (Format(Date, "mmdd") < Format(DateNaissance, "mmdd")) End Function
PS: Le lecteur de News va couper mais toi tu copies la partie droite de l'affectation sur une ligne. Le + (Format(Date, "mmdd") < Format(DateNaissance, "mmdd")) permet de diminuer, le cas échéant, l'age d'un an en tenant compte du mois. C'est une expression booléenne. Si Vrai, alors (Format(Date, "mmdd") < Format(DateNaissance, "mmdd")) vaut -1. Toi, tu as développé en pensant qu'il s'agissait d'une mise en facteur ;-)
Salut Pierre J'ai bien écrit dans le module : Function fnAge(DateNaissance As Date) As Integer
Dans la requète à la 1ère ligne " champ" Age: fnAge([dateNaissance])
après exécution de la requète, j'obtiens : Age -347 -358 -342 -342 -356
Quelle bêtise j'aifaite? Merci de ton aide. jmc
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Merci Eric,
Finalement, après plusieurs essais, j'obtiens les ages de mes adhérents, une
virgule ou un) en trop ou oublié.
Chacun son métier...
Avec votre aide : explications trés simples, un "nul" peut s'en sortir.
Merci encore.
jmc
"Eric" <f_framZZ@hotmail.com> a écrit dans le message de news:
%23BAMOy0KGHA.140@TK2MSFTNGP12.phx.gbl...
Bonsoir,
Il faut mettre la fonction comme donnée par Pierre(3Stone).
Sur une ligne, ca donne :
Function fnAge(DateNaissance As Date) As Integer
fnAge = DateDiff("yyyy", DateNaissance, Date) + (Format(Date, "mmdd")
< Format(DateNaissance, "mmdd"))
End Function
PS: Le lecteur de News va couper mais toi tu copies la partie droite de
l'affectation sur une ligne.
Le + (Format(Date, "mmdd") < Format(DateNaissance, "mmdd")) permet de
diminuer, le cas échéant, l'age d'un an en tenant compte du mois. C'est
une expression booléenne.
Si Vrai, alors (Format(Date, "mmdd") < Format(DateNaissance, "mmdd"))
vaut -1.
Toi, tu as développé en pensant qu'il s'agissait d'une mise en facteur ;-)
Salut Pierre
J'ai bien écrit dans le module :
Function fnAge(DateNaissance As Date) As Integer
Merci Eric, Finalement, après plusieurs essais, j'obtiens les ages de mes adhérents, une virgule ou un) en trop ou oublié. Chacun son métier... Avec votre aide : explications trés simples, un "nul" peut s'en sortir. Merci encore. jmc
"Eric" a écrit dans le message de news: %
Bonsoir,
Il faut mettre la fonction comme donnée par Pierre(3Stone). Sur une ligne, ca donne : Function fnAge(DateNaissance As Date) As Integer fnAge = DateDiff("yyyy", DateNaissance, Date) + (Format(Date, "mmdd") < Format(DateNaissance, "mmdd")) End Function
PS: Le lecteur de News va couper mais toi tu copies la partie droite de l'affectation sur une ligne. Le + (Format(Date, "mmdd") < Format(DateNaissance, "mmdd")) permet de diminuer, le cas échéant, l'age d'un an en tenant compte du mois. C'est une expression booléenne. Si Vrai, alors (Format(Date, "mmdd") < Format(DateNaissance, "mmdd")) vaut -1. Toi, tu as développé en pensant qu'il s'agissait d'une mise en facteur ;-)
Salut Pierre J'ai bien écrit dans le module : Function fnAge(DateNaissance As Date) As Integer
