Adodb

Signaler
Messages postés
37
Date d'inscription
lundi 12 mars 2007
Statut
Membre
Dernière intervention
27 juillet 2007
-
Messages postés
1141
Date d'inscription
mercredi 7 mars 2007
Statut
Membre
Dernière intervention
19 septembre 2007
-
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

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

 Fiko ;-)

La reponse vous convient pensez > Accepter <
<hr />
Messages postés
1141
Date d'inscription
mercredi 7 mars 2007
Statut
Membre
Dernière intervention
19 septembre 2007
3
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