Discussion :

[ChrisP]

J'ai une requête de sélection à disposition avec un paramètre. Comment l'utiliser dans un module VBA en passant un paramètre à partir du code ?

Le plus approchant sur le forum est du type:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Dim db As Database
Dim qdf As QueryDef
Dim rcs As Recordset
 
Set db = CurrentDb
 
Set qdf = db.QueryDefs("MaRequete")
 
With qdf
.Parameters("MonParamètre") = MaVariable
.Execute
End With

mais il ne concerne que les requêtes d'action et se plante sur le ".execute" avec une requête de sélection.
Avez vous la solution?
Merci pour l'aide

[marot_r]

On peut pas exécuter une requête de sélection, ça ne marche que pour les requêtes d'insertion, de modif ou de suppression d'enregistrement (pour la création ou la suppession de table je ne sais pas), par contre on peut s'en servir comme source de données.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Dim db As dao.Database
Dim qdf As dao.QueryDef
Dim rcs As dao.Recordset
 
Set db = CurrentDb
 
Set qdf = db.QueryDefs("MaRequete")
qdf.Parameters("MonParamètre") = MaVariable
set rst=qdf.openrecordset()
 
' Ici du code qui exploite le recordset
 
rst.close:set rst=nothing
set qdf=nothing
set db=nothing

[ChrisP]

Ainsi, il ne me reste plus qu'à envoyer le résultat du recordset dans une fenêtre de type feuille de données pour obtenir le résultat escompté. C'est plus propre que l'artifice trouvé sur le Forum que j'utilise (cf code plus bas )

Problème, je ne sais pas comment faire. Peux tu m'aider ?

Pour info seulement voici le code que je souhaite remplacer:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
    Dim qdf As QueryDef
 
'-- suppression de l'ancienne requête adaptée s'il y  a lieu
    For Each qd In CurrentDb.QueryDefs
        If qd.Name = "MaRequêteAdaptée" Then
            DoCmd.DeleteObject acQuery, MaRequêteAdaptée 
            Exit For
        End If
    Next
 
'-- création de la requête adaptée 
    Set qdf = CurrentDb.QueryDefs("MaRequête")
    qdf.SQL = Replace(qdf.SQL, "[LeParamètre]", "'" & MaVariable & "'")
    Set qdf = CurrentDb.CreateQueryDef(MaRequêteAdaptée ,qdf.SQL)
    DoCmd.OpenQuery MaRequêteAdaptée

[marot_r]

Non pour cet usage précis je ne pense pas qu'on puisse utiliser ce que je t'ai proposé.

La seule variation que je peux te suggérer c'est de ne pas supprimer la requête "MaRequêteAdaptée" mais simplement de remplacer son SQL.

Code :

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

1
2
3
Set qdf = CurrentDb.QueryDefs("MaRequête")
CurrentDb.QueryDefsf(MaRequêteAdaptée).sql=Replace(qdf.SQL, "[LeParamètre]", "'" & MaVariable & "'")
DoCmd.OpenQuery MaRequêteAdaptée

[ChrisP]

En fait la transformation de MaRequête en MaRequêteAdaptée permet de préserver l'original.

Le souci est que MaRequêteAdaptée reste en base un certain temps.

Merci, je poste un Résolu.