Discussion :

[buzz73]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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?

[User]

Salut,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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+

[buzz73]

Merci!