Probleme d'affichage nombre avec virgule
Résolu
Eric
-
ERIC -
ERIC -
Bonjour à tous.
Voici mon code
MontantExact = Round((Me.MontantTtc / Me.TxtNbProduits),2)
ce code me donne donne un valeur exacte. Mais parfois non. Car si le MontantTtc= 55 et que Nbproduit=2 le résultat sera 28 au lieu de 27,5
J'ai déclaré dim MontantExact as single.
Je me demande pourquoi il arrondi.
Quelqu'un a-t-il une idée svp?
Voici mon code
MontantExact = Round((Me.MontantTtc / Me.TxtNbProduits),2)
ce code me donne donne un valeur exacte. Mais parfois non. Car si le MontantTtc= 55 et que Nbproduit=2 le résultat sera 28 au lieu de 27,5
J'ai déclaré dim MontantExact as single.
Je me demande pourquoi il arrondi.
Quelqu'un a-t-il une idée svp?
2 réponses
-
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention Ambassadeur 1 588
bonjour,
quand te donne-t'il le résultat souhaité?
que sont MontantTtc et TxtNbProduits?
tu ne nous montres pas comment tu affiches la valeur de MontantExact. -
bonjour
pour une meilleur comprehension, voici ce code
Dim db As DAO.Database
Dim idcmd As Integer
Set db = CurrentDb
Dim req As String
Dim rs As Recordset
''''''''''''''''''''ajouter dans la table t_mes_donnees'''''''''''''''''''''''''''
Dim rscommande As Recordset
Set rscommande = db.OpenRecordset("t_mes_donnees", dbOpenTable)
rscommande.AddNew
idcmd = rscommande("id_donnees")
rscommande("montantttc") = Me.txtmontantTTC
rscommande("nbproduits") = Me.TxtNbproduits
rscommande("montantexact") = Round((Me.txtmontantTTC / Me.TxtNbproduits), 2)
rscommande.Update
rscommande.Close
Set rscommande = Nothing
ou voici mon fichier access https://www.cjoint.com/c/KAzqrV3z1Jc
