Discussion :

[MelaAllIn]

Bonjour,

J'ai un (gros !) souci dans ma base...
Pour poser le problème, j'ai créé une table dans laquelle j'ai (entre autres) 2 champs, "moisqualif" et "annéequalif", qui se réfèrent à des tables de référence "mois" et "année" (donc j'ai des liste déroulantes dans mon formulaire, qui me permettent de sélectionner le mois et l'année que je souhaite enregistrer).
Mes tables de référence ont la structure suivante : 1 clé primaire (n° auto) + un champ mois (janvier, février, mars...) ou un champ année (2008, 2009, 2010, 2011...)

A présent, je souhaite créer une requête qui me permette d'obtenir toutes les qualifs qui ont expirées, c'est à dire toutes les qualifs pour lesquelles "annéequalif" <= année actuelle et "moisqualif" <= mois actuel. Dans ma requête, j'ai donc mis comme critères

Code :

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

<=Année(Maintenant())

sur mon champ année et

Code :

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

<=Mois(Maintenant())

sur mon champ mois.

Le problème est que, si j'ai une qualif qui a expiré en Décembre 2010, je ne la voit pas, puisque nous ne sommes pas encore en décembre...
J'ai donc cherché un moyen de recréer la date d'expiration directement dans la requête, par concaténation du mois et de l'année de qualif, mais quand je fais cela, access ne reconnait pas le champ créé ainsi comme étant une date, et donc je ne peux pas lui appliquer le critère qui me permettrait de voir uniquement les qualifs qui ont expiré à ce jour...

Je souhaiterais donc avoir l'aide de quelqu'un qui saurait comment faire pour définir comme date un champ créé dans une requête sur la base de 2 autres champs ?

J'espère avoir été assez claire, vu la complexité du problème, et surtout, j'espère que quelqu'un aura la gentillesse de m'aider !

D'avance merci.

MelaAllIn

[Richard_35]

Bonjour MelaAllIn,

Il faut concaténer :

• "annéequalif" & "moisqualif", dans cet ordre ==> donnera 201107 (par exemple) ;
• Année(Maintenant()) & Format(Mois(Maintenant());"0#"), dans cet ordre ==> donnera 201108 (pour aujourd'hui).

La comparaison entre ces deux champs (considérés comme texte) devient possible.

[MelaAllIn]

Merci Richard_35 pour ta réponse, je l'ai appliquée à mon cas.

J'arrive bien à reconstruire les dates sous le format que tu proposes
Par contre, comment dois-je m'y prendre, ensuite, pour faire la comparaison entre les 2 valeurs ? J'ai bien essayé de mettre comme critère "<= Aujourdhui()" (c'est le nom que j'ai donné à la concaténation pour la date du jour) sur ma date d'expiration de qualif, mais ça ne fonctionne pas (il me met: Fonction "Aujourdhui" non définie dans l'expression)...

[Richard_35]

J'ai bien essayé de mettre comme critère "<= Aujourdhui()"

==> il faut enlever "()" car, sinon, Aujourd'hui() est pris pour une fonction (message de Access) contrairement à Aujourd'hui qui sera pris pour un champ calculé.

Pour éviter les confusions, appelles ton champ calculé DateAujourd'hui (par exemple).

[f-leb]

Bonjour,

et pourquoi ne pas reconstruire une date à partir des champs mois et année avec la fonction DateSerial (SérieDate en français dans le QBE)

Code :

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

LaDate : SérieDate([champAnnée] ; [ChampMois] ; 1)

Pour reconstruire la date correspondant au 1er jour du mois et de l’année.

Plus facile après pour faire les comparaisons je pense, non ?

[MelaAllIn]

Bonjour,

Effectivement, la solution de f-leb est plus simple, au niveau de la comparaison par rapport à la date du jour (il suffit de mettre comme critère sur LaDate :

Code :

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

<=Maintenant()

J'ai donc plutôt retenu cette solution.

Par contre, Richard_35, par curiosité, j'ai essayé de finaliser ta solution, et je n'arrive pas à faire la comparaison : j'ai renommé mon champ calculé DateAujourdhui au lieu de Aujourdhui, afin d'éviter toute confusion avec les fonctions Access, mais il n'est pas reconnu comme champ calculé dans mon critère... Est-ce que je dois mettre DateAujourdhui, ou DateAujourdhui() ?

Sinon, merci à tous les 2 pour votre aide !!!

[Richard_35]

Bonjour MelaAllIn et Fabien,

Effectivement, la solution de Fabien est plus propre, car elle reste dans le domaine des dates.

.../... je n'arrive pas à faire la comparaison .../...

==>
Annee_Mois_A_Tester = Année(Date_a_tester) & Format(Mois(Date_a_tester);"0#") ==> "201107" ;
Date_Aujourdhui = Année(Maintenant()) & Mois(Maintenant()) ==> "201108".

En chaîne de caractères, "201107" sera toujours inférieur à "201108" et, en nombre, 201107 (deux cent un mille cent sept) sera toujours inférieur à (deux cent un mille cent huit)

Est-ce que je dois mettre DateAujourdhui, ou DateAujourdhui()

==> les parenthèses "()" après un nom implique l'appel à une fonction (f(x)) qui retourne une valeur. Cette fonction peut être une fonction intégrée Access, comme Date(), ou une fonction écrite en VBA. Donc, si c'est une variable, il ne faut pas ajouter "()".