Discussion :

[gripoil]

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 :

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

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 :

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

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 )

Merci pour vos réponses.

[MC2]

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

Code :

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

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+

[gripoil]

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 :

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

Set rsb = qdf.OpenRecordset

ouvre le bon recordset.....

[MC2]

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 :

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

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 :

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

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 :

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

PARAMETERS 1 Text ( 255 );

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

Code :

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

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 :

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

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+

[gripoil]

Ok merci....