Bonjour,
Je me suis lancer dans l'utilisation de DAO et QueryDefs pour exécuter une requête que j'ai créer sous Access via le VBA.
Je pense avoir fait ça bien mais j'ai une erreur d'exécution 424 objet requis.
J'ai bien activé la référence Microsoft DAO.
Donc voici mon code :
Requete_Teradate_Activite_With_Filiere => Le nom de ma requête sous Access
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8 Dim oDb As DAO.Database Dim oQdf As DAO.QueryDef Dim oRst As DAO.Recordset Set oDb = CurrentDb Set oQdf = oDb.QueryDefs("Requete_Teradate_Activite_With_Filiere") oQdf.Parameters("Date de Debut").Value = date_deb oQdf.Parameters("Date de Fin").Value = date_fin Set oRst = oQdf.OpenRecordset
date_deb et date_fin sont les deux paramètres que j'utilise pour le bon fonctionnement de la requête. J'utilise sous access la propriété : Entre [Date de Debut] Et [Date de Fin] pour passer mes paramètres.
L'erreur ce fait au niveau du : Set oRst = oQdf.OpenRecordset
Pour précision , la requête va chercher des données et créer une table pour les stocker.
Cordialement
Partager