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?
A voir également:
- Probleme d'affichage nombre avec virgule
- Affichage double ecran - Guide
- Nombre de jours entre deux dates excel - Guide
- Problème affichage fenêtre windows 10 - Guide
- Nombre facile - Télécharger - Outils professionnels
- Windows 11 affichage classique - Guide
2 réponses
yg_be
Messages postés
23541
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 584
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.
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
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