Update avec requête paramétrée

Bonjour,

J'ai une requête paramétrée et j'aimerais m'en servir pour mettre à jour ma table.
Voici mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim Qd As QueryDef Dim rst As Recordset   Set Qd = CurrentDb.QueryDefs("R_F_Fcst_CP_Ref9_Maj_T_Fcst_CP") Qd.Parameters("Prm_ID_Ref9_Et_Annee") = Me.ID_Ref9_Et_Annee 'Perso, je préfère Parameters("[toto]") = ... c'est plus clair Qd.Parameters("Prm_Mois") = 1 Qd.Parameters("Prm_Qte") = Me.Saisie_Ref9_1   Set rst = Qd.OpenRecordset() 'Ne marche pas rst.Update

---

Ps : vaut-il mieux passer les paramètres comme ça ou passer par un QueryDef, modifier directement le SQL de la requête puis l'exécuter?

Salut,

S'il s'agit d'une requête mise à jour (exécution) à la fin:

Code:

---

1 2 3 4 5 6 7 8 9

Dim Qd As QueryDef   Set Qd = CurrentDb.QueryDefs("R_F_Fcst_CP_Ref9_Maj_T_Fcst_CP") Qd.Parameters("Prm_ID_Ref9_Et_Annee") = Me.ID_Ref9_Et_Annee 'Perso, je préfère Parameters("[toto]") = ... c'est plus clair Qd.Parameters("Prm_Mois") = 1 Qd.Parameters("Prm_Qte") = Me.Saisie_Ref9_1   Qd.execute

---

A+

Merci!