Discussion :

[shakapouet]

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 :

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

Requete_Teradate_Activite_With_Filiere => Le nom de ma requête sous Access
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

[shakapouet]

Finalement, j'ai trouvé une solution.

Si cela peut aider quelqu’un voici le code que j'utilise :

Code :

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

1
2
3
4
5
    Dim Req As QueryDef
    Set Req = CurrentDb.QueryDefs("Requete_Teradate_Activite_With_Filiere")
    Req.Parameters("Date de Debut") = date_deb
    Req.Parameters("Date de Fin") = date_fin
    Req.Execute

cordialement