Discussion :

[charles0684]

Bonjour,

Je crée une nouvelle discussion, car j'ai écris mon problème à la suite d'un [résolu], peut-être pas une bonne idée

Je veux créer une zone de texte dans laquelle j'additionnerais les valeurs d'autres zones de texte, toutes en format euro, afin de créer un prix de revient total.
J'ai essayé en code visual basic , ou avec une macro mais j'ai le même problème à chaque fois: j'obtiens toutes les valeurs écrites à la suite (genre 12,2356,48,256 si je veux additionner 12,23+56,4+8,256)
Pourtant le format de la zone de texte finale est bien "euro".

En plus, si j'écris

Code :

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

Me.ZTTtotal=Me.ZT1*Me.ZT2

la multiplication se fait bien, ce n'est donc pas un problème de format je pense.

Pouvez vous me passer un coup de main?

Merci.

Charles.

[kikilevrai]

tu veu avoir le résultat dans ta zone de texte ou alors voir l'opération dans la zone de texte ?

[charles0684]

C'est la réponse que je cherche. ( C une addition de prix de différents éléments, et il me faut le prix de revient total en fait)

[migalec]

et si tu faisais une requête en calculant tes champs puis les incorporer dans un formulaire???

[lucienkany]

Bonjour,

Si toutes tes zones de texte sont sur ton formulaire, pourquoi ne pas tout simplement mettre une formule dans la proprété "DONEES" du contrôle ZTTotal.

Code :

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

=nz([ZT1];0)*nz([ZT2];0)

à +

[charles0684]

Bonjour et bon début de semaine!

En fait, si j'utilise la fonction nz[]..., avec un + entre chaque nom de zone de texte, j'ai le même problème:
j'obtiens 12,2356,48,256 pour additionner 12,23+56,4+8,256.
Mais effectivement, ça marche pour la multiplication. Le problème ne vient donc pas du format utilisé mais de la fonction. Je pense que c'est ça la concaténation, non? Mais comment faire pour lui dire: "Non,non mon pti Access, point trop de concaténation, aujourd'hui tu me fais une addition toute bête genre 1+1=2 et pas 1+1=11!!"?

Migalec: Pour l'instant je choisis les produits dans différentes listes déroulantes de mon formulaire, ce qui fait apparaître le prix dans des zones de textes correspondantes. Est-ce que je peux créer une requête qui se mettrait à jour automatiquement, sur le même principe, ou encore prenant la valeur de mes zone de texte "prix"?

[charles0684]

Rebonjour,

il y a de l'évolution. J'ai suivi le conseil de migalec, et j'ai donc une requête qui prend les valeurs dont j'ai besoin dans le formulaire.

voici le code de la requete, FINAL étant le nom de mon formulaire:

Code :

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

1
2
3
4
SELECT forms!FINAL!Prix1.value AS Expr1,
forms!FINAL!Prix2.value AS Expr2,
forms!FINAL!Prix3.value AS Expr3,etc...
FROM [bd1].FINAL

Et c'est là que je bloque à présent: comment additionner les prix et obtenir le résultat dans mon formulaire?

[Tofalu]

Si ça concatene plutot que d'ajouter, c'est que ton code VBA manipule des données non typées ou bien alors des chaines (string). D'où l'interet de typer correctement en numérique

Dim X as integer

Montre voir ton code

[charles0684]

Bonjour Tofalu,

voici un exemple de code qui concatene au lieu d'additionner.

Code :

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

   Me.PrixDeRevient = Nz([PrixUnitaire], 0) + Nz([PrixRevêtementFace], 0)

Sinon, je peux peut-être utiliser DSum avec ma requête, l'ennui c'est que mes valeurs apparraissent en lignes et pas en colonnes.

[Tofalu]

essaye ainsi :

Me.PrixDeRevient = Cint(Nz([PrixUnitaire], 0)) + CInt(Nz([PrixRevêtementFace], 0))

[charles0684]

Super, ça marche! J'ai utilisé Csng, puisque j'utilise des décimales.

Merci beaucoup Tofalu!