Discussion :

[mouam]

Bonjour

Problème idiot : je fait un calcul dans un champ "Total1" (non lié à une table) avec :

Code :

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

=([Par1]*[nbreMois]*[NbrePlac])+([Par2]*[nbreMois]*[NbrePlac])+([Par3]*[nbreMois]*[NbrePlac])

Là mon calcul affiche bien le total exact à la décimale près

et avec un bouton je peux renvoyer la valeur de champ dans un autre champ "Total" (lié à une table). Le code de mon bouton est :

Code :

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

1
2
3
4
5
Private Sub valid_calc_Click()
 
Total = [Total1]
 
End Sub

et là, mon champ "Total" m'affiche systématiquement un nombre arrondi..

J'ai essayé de bidouiller au niveau du format, de nombre de décimales, mais rien n'y fait
J'ai tenté avec

Code :

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

Total = (Nz([Total1])

et même

Code :

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

Total = Val(Nz([Total1]))

Mais j'ai toujours le même problème..
comment faire ?

merci d'avance !

[Didier71]

Bonsoir

Ton champ total est une variable ?
SI oui, elle est surement du type Integer....
Donc redéfinit la en Dim Total as Long (ou double, si c'est un grand nombre

Si c'est un champ d'une table, il est surement défini aussi en Integer..
Va donc voir dans la structure de la table, pour le définir en Numérique
(format Reel simple ou double) et choisir le nombre de décimale..

Bon courage.

Didier71

[mouam]

Merci pour la réponse !
Il s'agit d'un champ d'une table, et il est bien en numérique, réel, j'avais vérifié ça plusieurs fois et tenté même de refaire le champ pour vérifier, mais sans succès ??
je vais reprendre ça demain pas à pas pour vérifier encore une fois.
Merci


Edit : bon, je ne devais plus avoir les yeux en face des trous et j'ai dû faire une erreur sans m'en apercevoir.. j'ai refait la manip depuis le départ, ça fonctionne