Probleme d'affichage nombre avec virgule
Résolu
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
-
Contributeur Ambassadeurbonjour,
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-
-
-
@yg_belorsque j'appuie sur le bouton se trouvant dans le formulaire commande
-
Contributeur Ambassadeur@ERICtu écris: "ce code me donne donne un valeur exacte. Mais parfois non.".
explique le "parfois": quand est-ce exact, quand ne l'est-ce pas? -
@yg_bemerci infiniment. jai mis reel double et ca marche. merci encore
-
