cs_Heny
Messages postés125Date d'inscriptionsamedi 25 octobre 2003StatutMembreDernière intervention19 avril 2007
-
20 sept. 2004 à 21:44
cs_frop01
Messages postés1352Date d'inscriptionlundi 27 octobre 2003StatutMembreDernière intervention19 novembre 2008
-
20 sept. 2004 à 22:39
Salut a tous
'***Modifier le contenu de stock***'
'Selection du produit par RéférenceForm3.AdoProd.RecordSource "SELECT * FROM Stock where Référence '" & DG1.Columns(1).Text & "'"
Form3.AdoProd.Refresh
With Form3.AdoProd.Recordset
!Catégorie = UCase(Text1(0).Text)
!Référence = UCase(Text1(1).Text)
!Désignation = UCase(Text1(2).Text)
![Prix de l'unité] = Text1(4)
.Update
End With
'Mise a jour des informations
With AdoProd.Recordset
!Catégorie = UCase(Text1(0).Text)
!Référence = UCase(Text1(1).Text)
!Désignation = UCase(Text1(2).Text)
![Prix de l'unité] = Text1(3)
.Update
End With
Ce code me permet de faire une mise à jour d'informations dans une base de données Access. Ça marche très bien mais pas pour le PRIX DE L'UNITE c'est un champ : Monétaire, Format : Nombre général, et décimales : Auto.
Le problème et le suivant : quand je fais un enregistrement des informations le champ PRIX DE L'UNITE qui s'affiche sur un Datagrid est de la forme 0,150, mais quand je fais une mise a jour il deviens 150 le zéro et la virgule sont disparue d'où une fausse somme du total.
J'aimerai que quelqu'un puisse m?aider à résoudre ce problème pour que quand je fais une mise a jour la valeur PRIX DE L'UNITE elle reste la même si elle n'est pas changée par l'utilisateur bien sur.
et merci d'avance