Update BDD depuis VBA

Bonjour à tous,
Comment faire un update de champ dans la BDD à partir d'une macro?

Pour faire un insert j'utilise:

Code:

---

1 2 3

mrst.AddNew mrst.Fields("mb_mag") = 001 mrst.Update

---

Comment modifier le champ mb_mag en 002?

Merci par avance.

Code:

---

1 2 3

mrst.edit mrst.Fields("mb_mag") = 002 mrst.Update

---

Merci pour votre réponse, mais la methode "edit" n'existe pas....

J'ai EDITMODE mais c'est tout.

C'est un exemple qui vient d'un de mes codes access. je n'ai pas vérifié.

Comment as-tu déclaré Mrst ?

Tu peux montrer le code complet de cette procédure (avec la déclaration de mrst) ?

Ce code doit permettre de mettre à 1 tous les top_trait de la table "XX_CDE_TRT "

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Public ADOCnx As New ADODB.Connection Public ListeCDE As New ADODB.Recordset   ListeCDE.Open "select * from XX_CDE_TRT WHERE top_trait = 0", ADOCnx While Not ListeCDE.EOF With ListeCDE .Fields("top_trait") = "1" .Update .MoveNext End With Wend

---

Re,
désolé mais je ne sais pas t'aider car je ne connais rien à ADO.

Bonne chance.

J'ai fait autrement....et ca marche.

Code:

---

1 2 3 4

query = "UPDATE XX_CDE_TRT SET top_trait = 1 where numcde = " & ListeCDE!numcde & " and numart=" & ListeCDE!numart ' Exécution de la requête ADOCnx.Execute query, iAffected, adExecuteNoRecords

---

Citation:

---

Envoyé par bmad1

et ca marche.

---

Dans ce cas, un petit clic sur :resolu:?

Merci