Modifier un seul champ d'une table

Bonjour,

Il y a des lustres que je n'ai pas programmé et je tourne en rond avec une requete de mise à jour !!!
j'ai ceci qui fonctionne

Code:

---

1 2 3 4 5

Set Rc = New ADODB.Recordset Where id_affectation = CbAffectation1.Column(0) Rc.Open "Select * From Affectations Where (id_affectation = " & CbAffectation1.Column(0) & ")", Ct, adOpenDynamic, adLockOptimistic Rc.Fields(1) = TxChange.Text Rc.Update

---

Mais j'aimerai mieux quelque chose dans ce genre là. Mais ça marche pas :cry:

Code:

---

Rc.Open "UPDATE Affectations SET (affectation = " & TxChange.Text & ") Where (id_affectation = " & CbAffectation1.Column(0) & ")", Ct, adOpenDynamic, adLockBatchOptimistic

---

Merci de m'aider

Code:

---

Rc.Open "UPDATE Affectations SET (affectation = " & TxChange.Text & ") Where (id_affectation = " & CbAffectation1.Column(0) & ")", Ct, adOpenDynamic, adLockBatchOptimistic

---

si le champs affectation et de type littéral ajouter des apostrophes en début et fin de " & TxChange.Text & "

Code:

---

Rc.Open "UPDATE Affectations SET (affectation = '" & TxChange.Text & "') Where (id_affectation = " & CbAffectation1.Column(0) & ")", Ct, adOpenDynamic, adLockBatchOptimistic

---

les parenthèses me semble superflues

Code:

---

Rc.Open "UPDATE Affectations SET affectation = '" & TxChange.Text & "' Where id_affectation = " & CbAffectation1.Column(0), Ct, adOpenDynamic, adLockBatchOptimistic

---