fonction de conversion urgent

Question

salut &#224; tous....
 Dans le code  que j'ai fait je voudrais pouvoir mettre la virgurle dans mon textbox Prix afin que mon recordset puisse le reconnaitre car presentement si j'ecris 5,80 $ mon recordset me donne 580 $ comment faire
 Do While Not rsProduits.EOF
                If cboIdProduit = !Id_Produit Then
                !Nom_Produit = txtNomProduit
                !Description = txtDescription
                !Marque = txtMarque
                !Prix = txtPrix
                !Escompte = txtEscompte
                !Nom_Image = txtImage
                !Categorie = cboCat&#233;gorie      
            .Update
                End If
            .MoveNext
    Loop

PCPT · Answer

salut,

quel est le type de "!Prix" ?

la devise est vraiment saisie? (ou c'est juste un masque..)

"," plut&#244;t que  "." ?



++

PCPT    [AFCK]

PCPT · Answer

.... c'est ici le TOPIC, pas en Message Privé ;) essaie comme çà ? ' pour l'exemple... txtPrix.Text = "5,80 $" ' on enlève le dernier caractère (au cas ou tu changerais la devise....) ' ainsi que les espaces inutiles Dim sPrix As String sPrix = Trim$(Left$(txtPrix.Text, Len (txtPrix) - 1)) ' on convertie en... monétaire Dim cPrix As Currency cPrix = CCur(sPrix) Coloration syntaxique automatique [AFCK] et dans ta boucle, tu remplaceras !Prix = txtPrix par !Prix = cPrix qu'est-ce que çà donne? ++ PCPT [AFCK]

tevedaly · Answer

merci beaucoup 

pour l'instant ca ma genere type incompatible mais j'essaie de trouver l'erreur
!Prix = cPrix

!Prix  me donne la valeur sans virgule et le cPrix me donne type incompatible

PCPT · Answer

essaie avec !Prix = CStr(cPrix) mais dans ce cas c'est un probl&#232;me dans ta table.

Fonction de conversion urgent

4 réponses

Discussions similaires