Adodb

taki78 Messages postés 37 Date d'inscription lundi 12 mars 2007 Statut Membre Dernière intervention 27 juillet 2007 - 20 juin 2007 à 19:56
cs_Nicko11 Messages postés 1141 Date d'inscription mercredi 7 mars 2007 Statut Membre Dernière intervention 19 septembre 2007 - 21 juin 2007 à 07:57
salut tous
je veux d'aide plaise
voici le code
Dim rep As String
rep = MsgBox("Voulez-vous Ajoutez ce produit?", vbQuestion + vbYesNo, "création")
If rep = vbYes Then
rv.AddNew
ajoutvente
rv.Update
End If
rv.Requery
se code  pour ajouiter marche trés bien
mais je vous le code pour  modifier seulement
remarque
ajoutvente c'est t'un procedure
Public Sub ajoutvente()
rv.Fields("codeproduit") = frmvente.Combo1
rv.Fields("quantite sortie") = frmvente.txtquantite
rv.Fields("tva") = frmvente.txttva
rv.Fields("pht") = frmvente.txtpht
rv.Fields("pttc") = frmvente.txtpttc
rv.Fields("numfacture") = frmvente.Text1
rv.Fields("pu") = frmvente.txtpu
rv.Fields("date vente") = frmvente.DTPicker1
rv.Fields("codetypeproduit") = frmvente.Text2
End Sub
merci

2 réponses

fiko81 Messages postés 381 Date d'inscription vendredi 24 septembre 2004 Statut Membre Dernière intervention 5 septembre 2010 3
20 juin 2007 à 20:31
Bonsoir,
Il te manque juste un petit coup de rv.update

 Fiko ;-)

La reponse vous convient pensez > Accepter <
<hr />
0
cs_Nicko11 Messages postés 1141 Date d'inscription mercredi 7 mars 2007 Statut Membre Dernière intervention 19 septembre 2007 3
21 juin 2007 à 07:57
Salut, heureusement que c'est un cas simple, tu avais la reponse dans ton propre code (a moins que ce ne soit pas ca). Je dis ca car il est extrement difficile de comprendre ton francais. Essaies de faire un effort la prochaine fois (Merci).

Il te faut en effet mettre a jour ton jeu d'enregistrement (RecodSet rv) avec la méthode Update.

Donc,

Public Sub ajoutvente()
rv.Fields("codeproduit") = frmvente.Combo1
rv.Fields("quantite sortie") = frmvente.txtquantite
rv.Fields("tva") = frmvente.txttva
rv.Fields("pht") = frmvente.txtpht
rv.Fields("pttc") = frmvente.txtpttc
rv.Fields("numfacture") = frmvente.Text1
rv.Fields("pu") = frmvente.txtpu
rv.Fields("date vente") = frmvente.DTPicker1
rv.Fields("codetypeproduit") = frmvente.Text2
rv.update
End Sub
0