adodb

Question

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

fiko81 · Answer

Bonsoir, Il te manque juste un petit coup de rv.update Fiko ;-) La reponse vous convient pensez > Accepter <

cs_Nicko11 · Answer

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

Adodb

2 réponses

Votre réponse

Discussions similaires