Problème d'éxécution d'une requête paramétrée dans un objet QueryDef

Bonjour à tous,
Je suis débutant en VBA et je souhaiterais avoir vos lumières sur mon problème :
J'ai sous Access 2003 enregistré une requête paramétrée, que je souhaiterais éxécuter en fonction d'une valeur sélectionnée dans un champ.

Je me suis un peu documenté, (notamment sur les tutos et forums de developpez.com) et ai opté pour passer comme paramètre à la requête une variable sous VBA, variable déclarée bien entendu dans le code lié à l'évènement doubleclic du champ concerné (en l'occurence, c'est une liste).

J'ai donc déclaré un objet DAO.QueryDef
La variable string censée contenir la valeur de mon paramètre
J'ai affecté la valeur du champ à la dite variable
J'ai chargé ma requête paramétrée dans l'objet QueryDef
J'ai affecté à l'attribut "parameters" de l'objet QueryDef la variable
Je lance la méthode d'éxécution de l'objet QueryDef

Voici le code correspondant à cette séquence :

Code:

---

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

Private Sub Liste52_DblClick()   Dim qdf As DAO.QueryDef Dim correspondant As String   correspondant = Liste52.Value   Set qdf = CurrentDb.QueryDefs("Applis_AD_Corresp") qdf.Parameters("NOM_CORRESP") = correspondant MsgBox (qdf.Parameters("NOM_CORRESP")) 'là, c'est une trace qdf.Execute   End Sub

---

Il est à noter que j'ai vérifié ma requête paramétrée en la lançant...elle s'éxécute sans problème, mais l'éxécution se bloque lorsque l'objet qdf lance sa méthode d'éxécution (le débugueur pointe sur cette ligne en erreur)

Un message d'erreur s'affiche : "impossible d'éxécuter une requête de sélection" (erreur 3065).

Auriez vous quelques détails à propos de cette erreurs ou auriez vous remarqué des erreur dans le copier collé que je vous ai fait (c'est pas faute d'avoir vérifié ^^) ?

Merci d'avance

salut,
si tu fais une requete de type SELECT "simple" tu ne peux utiliser le Execute.
Par contre je crois que tu peux passer par ceci :

Code:

---

1 2	Dim RS as DAO.RecordSet Set RS = qdf.Openrecordset

---

Merci de ta réponse.
J'ai fait quelques essais en utilisant l'objet recordset auquel tu fais référence, quelques recherches aussi mais je n'ai pas trouvé pour cet objet (recordset) de méthode pouvant traiter les paramètres d'une requête.

Je continue à chercher et marquerai le problème comme étant résolu si je trouve, mais si tu as quelques détails par rapport à cet aspect du traitement d'une requête avec record set, n'hésite pas à m'en faire part.

Merci quoiqu'il en soit, j'ignorais que l'objet querydef ne traitait pas les requêtes de sélection :)

Cordialement

bon, je redonne tout le code, parce que j'ai du mal m'exprimer...

Code:

---

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

Private Sub Liste52_DblClick()   Dim qdf As DAO.QueryDef Dim correspondant As String Dim RS as DAO.RecordSet   correspondant = Liste52.Value   Set qdf = CurrentDb.QueryDefs("Applis_AD_Corresp") qdf.Parameters("NOM_CORRESP") = correspondant MsgBox (qdf.Parameters("NOM_CORRESP")) 'là, c'est une trace Set RS = qdf.Openrecordset End Sub

---

Ah ok, merci de la précision, je n'avais pas supposé que les deux lignes que tu avais données étaient à insérer dans le code que j'ai donné au début !
au temps pour moi, merci en tout cas ^^.

Bon, je marque le sujet comme étant résolu.

Merci encore.