Discussion :

[zesamoth]

Bonjour tout le monde,

J'ai une petite question toute simple.
Voila j'ai deux tables, dans ces deux tables j'ai un champ solde qui est de type texte ( et qu'il doit le rester) contenant des valeurs numériques (me demandez pas pourquoi, c'est une longue histoire ).
Je dois additionner ces deux champs, jusqu'ici pas de problèmes, j'ai fait un cast double dans ma requete et fait l'addition. Maintenant la question : est ce que vous savez s'il est possible de faire un cast de type monétaire (un type access je crois )

C'est tout, merci pour votre aide future

Thomas,

[LedZeppII]

Bonjour,

Il y a CCur(expression) qui renvoie une valeur type Currency.

A+

[zesamoth]

OK c'est pile-poil ce qu'il me fallait. Je salue la rapidité et la compétence !!! Merci beaucoup

[zesamoth]

Re-bonjour,

Plutôt que de réouvrir un topic je vais plutôt reprendre celui ci.
Comme vous avez vu je peux maintenant faire un cast monétaire dans ma requête. Et c'est déjà beau !!

Donc j'affecte ma requete à une liste déroulante, tout marche pour le mieux !!
Seul problème lorsque je récupère les valeurs de ma liste avec un bête list.column(variable,variable) je les obtiens en type string et pas moyen de les caster en monétaire (currency). J'ai bien essayer le Ccur() ça ne marche pas.

Constat :

Code :

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

1
2
3
4
5
6
7
8
9
10
requete = "SELECT Entite, Compte, Centre, Libelle_centre, Solde_CEBFC FROM Difference_BFC_BOFC ; "
L_ano.RowSource = requete
 
For compteur = 0 To L_ano.ListCount - 1
 
solde = solde + l_ano.column(4,compteur)
 
Next
 
msgbox(ccur(solde) 'affiche malheureusement sous forme d'integer ****,*** et non sous forme monétaire * ***, ** €

Merci beaucoup

[LedZeppII]

Bonjour Zesamoth,

Le premier argument de MsgBox est du type String.
Il y a donc une conversion implicite du type Currency vers le type String.
Tu devrai essayer

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim solde As Currency

requete = "SELECT Entite, Compte, Centre, Libelle_centre, Solde_CEBFC FROM Difference_BFC_BOFC ; "
L_ano.RowSource = requete

For compteur = 0 To L_ano.ListCount - 1

solde = solde + CCur(l_ano.column(4,compteur))  ' CCur n'est peut-être pas indispensable
                                                ' Mais on est sûr de sommer des Currency comme ça
Next

msgbox format(solde, "Currency")     ' format correspondant aux paramètres régionaux.
msgbox format(solde, "#,##0.0000 €") ' format personalisé.

A+