Probleme d'affichage nombre avec virguleRésolu/Fermé

Question

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?

yg_be · Answer

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.

ERIC · Answer

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

Probleme d'affichage nombre avec virgule

2 réponses

Discussions similaires

Newsletters