VBA & Requête paramétrée

Bonjour à tous,

j'ai une requête paramétrée (rqt GL) avec le paramètre [1].

Via VBA, j'affecte une valeur au paramètre

Code:

---

1 2	Set qdf = db.QueryDefs("rqt GL") qdf.Parameters("1") = "Toto"

---

J'aimerais maintenant enregistrer ma requête en dur (avec les bonnes valeurs à la place des paramètres).

J'ai bien essayé avec :

Code:

---

set qdf = db.CreateQueryDef ("Ma requete",qdf.sql)

---

mais çà ne fonctionne pas, le paramètre n'est pas remplacé par sa valeur (j'ai vérifié avec un Msgbox qdf.sql :D )

Merci pour vos réponses.

Salut,
mais attention, après... 'a plus de paramètre...

Code:

---

1 2 3 4 5

Set qdf = db.QueryDefs("rqt GL") qdf.SQL = Replace(qdf.SQL, "[1]", "'Toto'") ret = InStr(1, qdf.SQL, "SELECT") If ret > 1 Then qdf.SQL = Mid(qdf.SQL, ret) Set qdf = Nothing

---

Le 'Set' à la fin est inutile si ta sub se termine juste après (Nothing implicite) et le tout est sauvegardé implicitement.
A+

Merci pour ta réponse... mais l'intérêt est tout de même de conserver la requête paramétrée.

En complément :

Code:

---

Set rsb = qdf.OpenRecordset

---

ouvre le bon recordset.....

Attends, je ne comprends plus là... tu veux quoi au final : 1 ou 2 requêtes ? explique toi stp.
Voici le SQL d'une requête paramétrée :

Code:

---

1 2 3 4

PARAMETERS 1 Text ( 255 ); SELECT Table2.tintin, Table2.tata FROM Table2 WHERE (((Table2.tata)=[1]));

---

Ce que je t'ai envoyé donne :

Code:

---

1 2 3

SELECT Table2.tintin, Table2.tata FROM Table2 WHERE (((Table2.tata)='Toto'));

---

Donc là, elle n'est plus paramétrée.
Maintenant, si tu veux conserver la partie

Code:

---

PARAMETERS 1 Text ( 255 );

---

il suffit de ne garder que les 2 1ères lignes du code déjà envoyé, soit :

Code:

---

1 2	Set qdf = db.QueryDefs("rqt GL") qdf.SQL = Replace(qdf.SQL, "[1]", "'Toto'")

---

Donc, là, une seule requête mais l'intérêt est minime puisque, même s'il a été conservé, le paramètre n'est plus utilisé dans la clause WHERE.

Par contre, si tu veux garder ta requête paramétrée source intacte et créer 1 nouvelle en remplaçant le paramètre :

Code:

---

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

Dim qdf0 As QueryDef, qdf As QueryDef, rsb As Recordset Dim ret As Integer   Set qdf0 = CurrentDb.QueryDefs("RTable2") qdf0.SQL = Replace(qdf0.SQL, "[1]", "'Toto'") ret = InStr(1, qdf0.SQL, "SELECT") If ret > 1 Then qdf0.SQL = Mid(qdf0.SQL, ret)   'DoCmd.DeleteObject acQuery, "RTable2_1" Set qdf = CurrentDb.CreateQueryDef("RTable2_1", qdf0.SQL) Set rsb = qdf.OpenRecordset 'MsgBox rsb.RecordCount...

---

A+

Ok merci....