Discussion :

[clickandgo]

Bonjour à tous,

Je cherche à transformer correctement la fonction Format suivante pour pouvoir l'appliquer en vba :

Code :

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

format$(dmax("CalculMois";"RqMoisDisponiblesFacturesEtAvoirs");'mmmm\ aaaa')

Cela marche parfaitement dans les requêtes mais quand je la remplace par

Code :

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

Format$(DMax("CalculMois", "RqMoisDisponiblesFacturesEtAvoirs"), "mmmm\ yyyy")

le mois est correct mais pas l'année (il met 1966 alors que cette année n'existe pas !)...

Une idée de ce qu'il faut écrire ?

Merci d'avance

[Pepito78]

Bonjour,

De quel nature est le champ "CalculMois" (date/heure ?), parce que quand je fais format$(Now,"mmmm\ yyyy), il me renvoie "avril 2012", donc cela viendrait peut-être plus du résultat renvoyé par Dmax.

Est il possible que la valeur renvoyée soit Null (parce qu'il n'y aurait pas de données)

Cordialement

[clickandgo]

Bonjour,

1 / Le champ [calculmois] extraie le mois et l'année en format numérique (ce qui permet aussi d'ordonner par mois/année), et non, il ne peut pas y avoir de valeur null.

2 / Lorsque je mets cette expression dans un champ indépendant de formulaire cela sort bien la bonne réponse... A n'y rien comprendre ...


Merci

[Pepito78]

D'accord, mais sous quel forme ? En effet, si il y un seul champ et qu'il y a le mois et l'année est-ce :
-un champ texte avec "12/2011"
-un champ numérique avec 201112 ou 122011
-ou....

[clickandgo]

Format numérique d' access , pas format date...

(par ex: Mars 2012 = 24146, Février 2012 = 24145)

Je dois transformer ce format numérique pour qu'il donne le Mois_Année le plus récent dans un combobox.

Marche parfaitement dans un champ indépendant mais pas en VBA !

[Pepito78]

C'est étrange, parce que si je convertis le 24146 en date :

Code :

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

? cdate(24146)

on trouve le 08/02/1966. Ce qui après vérification semble correcte car le 6/04/2012, c'est 41005.

Pour enfoncer le clou, si vous collez 24146 dans une cellule Excel et que vous sélectionnez le format date, vous trouvez bien 08/02/1966

Donc 24146 = Mars 2012 semble faux.

Comment générer vous 24146 depuis une date ?

(j'admets cependant qu'il est étrange que cela semble fonctionner dans un champ indépendant, mais vous avez tout intérêt à lever ce lièvre maintenant !)

[clickandgo]

Oui en effet il doit y avoir un hic :

Je mettais dans la requête ce code pour permettre ensuite de faire un Order By décroissant dessus afin de voir la date la plus proche apparaitre :

Code :

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

CalculMois: Année([Datedoc])*12+PartDate('m';[Datedoc])-1

En ce qui concerne le Dmax si je le mets en VBA comme valeur de champ il me donne comme résultat "Septembre 2011" alors qu'il devrait me donner "Mars 2012":

Code :

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

Format$(DMax("[mois de]", "RqMoisDisponiblesFacturesEtAvoirs"), "mmmm\ yyyy")

[Pepito78]

Ok.

Expliquez-moi un peu plus...

Pourquoi vouloir absolument convertir en mois.

Pourquoi :

a) ne pas garder la date tel quel puisque si vous faites format$(dateX,"mmmm yyyy), vous n'aurez que "mois année" d'afficher.

b) mettre

Code :

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

CalculMois: DatePart(Year(Datedoc],Month[DateDoc],1)

ce qui vous donnerai, quelque soit la valeur de DateDoc, le 1er jour du mois. (et ensuite faire format$ sur CalculMois)

Bref quel est votre besoin final en lien avec CalculMois ?

(Mais c'est bien, on avance )

[clickandgo]

Bonjour Pepito 78

Il s'agît de pouvoir classer par ordre croissant / décroissant les mois / années extraits de la date.

Vu que la colonne qui affiche les mois/années sont la résultante d'une commande "format" il n'est plus possible de les classer en tant que date...

Il faut donc laisser un champs dans la requête en format numérique de date access pour pouvoir faire un tri dessus .

Je me sers ensuite de ce tri pour afficher une liste de mois disponibles dans un combobox, cela marche parfaitement, mais lorsque j'injecte la fonction Dmax() par VBA en tant que valeur par défaut du combobox, c'est là que le mois qui sort est erronné.

[clickandgo]

Bon, j'ai réussi à le faire fonctionner en changeant les arguments de requête ...

Merci à tous