<Retour Grenier>

Question

J'ai une requête paramétrée et j'aimerais l'ouvrir comme Recordset avec du code VBA. Comment définir les paramètres avant l'ouverture ?

Réponse

Voici un exemple de code. On suppose que la base contient une requête paramétrée nommée "prm Clients par initiale", et que cette requête nécessite le paramètre "Initiale".

Function RequeteParametree()
Dim db As Database, rst As Recordset

Set db = CurrentDb()
db.QueryDefs("prm Clients par initiale").Parameters("Initiale") = "C"
Set rst = db.QueryDefs("prm Clients par initiale").OpenRecordset
	' Ici le code manipulant le Recordset
	' ...
rst.Close
set rst = Nothing
set db = Nothing

End Function

Si la requête comporte plusieurs paramètres, il suffit de réitérer la ligne QueryDefs autant de fois.