QueryDefs
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 ?
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.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 |
Function RequeteParametree() Dim db As DAO.Database, rst As DAO.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 ' ... ' Fermeture des objets 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.
Important
L’exemple de code ci-dessus fait appel à la bibliothèque DAO (Microsoft DAO Object Library). Cette bibliothèque doit être associée à votre base de données pour que le programme fonctionne.
Pour plus de détails sur les références, consultez cette page.
