Lire une requête Access en VBA

Version imprimable

19/12/2012, 10h51
star

Lire une requête Access en VBA

* Bonjour, *

Dans une fonction VBA, je cherche à ouvrir et lire un Recorset avec le code suivant :

Citation:

Set rst = dbs.OpenRecordset("Query Requete Pointages")

Malheureusement, j'obtiens l'erreur :

Citation:

Error #: 3061
Trop peu de paramètres. 3 attendu.

???
Pourriez-vous m'aidez ?
SVP
Merci
.
19/12/2012, 10h57
zoom61

Salut,

Es-tu sûr que ta requête contient un résultat ?

Citation:

Évite de mettre des espaces dans le nom de tes requêtes !

@+.

3 pièce(s) jointe(s)

Oui ma requête me retourne bien un ensemble de résultats quand je l'exécute directement.

Citation:

Évite de mettre des espaces dans le nom de tes requêtes !

Je comprends cette suggestion, mais le fait est que les espaces dans les noms restent admis tant que la bonne syntaxe est utilisée :

Citation:

[le nom de ma requete]

L'ordre SQL produit par le générateur de requêtes est le suivant :

Code:

1
2
3
4
5
PARAMETERS [Formulaires]![Form Requete Pointages Resultats]![ListSalarie] Text ( 255 ), [Formulaires]![Form Requete Pointages Resultats]![TxtMois] DateTime, [Formulaires]![Menu Application DbLPE]![TxtUtilisateur] Text ( 255 );
SELECT "01_Pointages" AS [Index], Salaires.Matricule, [Nom_SAL] & " - " & [Prenom] AS Nom_Salarie, Unites.Responsable, Unites.Denomination, Comptes.Designation, Comptes.Compte, 1 AS Facteur, Year([Date_PT]) AS Annee, Month([Date_PT]) AS Mois, Format([Date_PT],"mm/yyyy") AS Mois_Traite, UCase(Format([Date_PT],"mmmm")) AS Mois_Nom, Format([Date_PT],"ww",0,0) AS Semaine, Day([Date_PT]) AS Jour, UCase(Left(Format([Date_PT],"dddd"),1)) AS Jour_Nom, DLookUp("[Marqueur]","[Feries]","[Date_FE] =#" & Format([Pointages].[Date_PT],"mm/dd/yyyy") & "#") AS Ferie, Pointages.Date_PT, Pointages.Heure_Debut, Pointages.Heure_Fin, Round(([Heure_Fin]-[Heure_Debut])*24,1) AS Quantite
FROM Comptes INNER JOIN ((Unites INNER JOIN Salaries AS Salaires ON Unites.Unite = Salaires.Unite) INNER JOIN Pointages ON Salaires.Matricule = Pointages.Matricule) ON Comptes.Compte = Pointages.Compte
WHERE (((Salaires.Matricule)=[Formulaires]![Form Requete Pointages Resultats]![ListSalarie]) AND ((Format([Date_PT],"mm/yyyy"))=[Formulaires]![Form Requete Pointages Resultats]![TxtMois])) OR (((Salaires.Matricule)=[Formulaires]![Menu Application DbLPE]![TxtUtilisateur]) AND ((Format([Date_PT],"mm/yyyy"))=[Formulaires]![Form Requete Pointages Resultats]![TxtMois]) AND (([Formulaires]![Form Requete Pointages Resultats]![ListSalarie])="")) OR (((Format([Date_PT],"mm/yyyy"))=[Formulaires]![Form Requete Pointages Resultats]![TxtMois]) AND (([Formulaires]![Form Requete Pointages Resultats]![ListSalarie])="") AND (([Formulaires]![Menu Application DbLPE]![TxtUtilisateur])="admin")) OR (((Unites.Responsable)=[Formulaires]![Menu Application DbLPE]![TxtUtilisateur]) AND ((Format([Date_PT],"mm/yyyy"))=[Formulaires]![Form Requete Pointages Resultats]![TxtMois]) AND (([Formulaires]![Form Requete Pointages Resultats]![ListSalarie])=""))
ORDER BY [Nom_SAL] & " - " & [Prenom], Comptes.Compte, Year([Date_PT]), Month([Date_PT]), Format([Date_PT],"ww",0,0), Day([Date_PT]), Pointages.Heure_Debut;

Je joins des captures d'écran de la requête dans la fenêtre du générateur de requêtes.
Merci de votre aide
.

19/12/2012, 19h42
zoom61

As-tu essayé sans mettre la ligne PARAMETERS... ?
19/12/2012, 22h31
star

J'ai essayé sans la ligne PARAMETERS
La requête retourne un ensemble vide, aucun résultat dans la feuille de données à l'ouverture de la requête
Lorsque j'exécute ma fonction VBA, la ligne de code

Citation:

Set rst = dbs.OpenRecordset("Query Requete Pointages")

me retourne la même erreur
Auriez-vous d'autres idées
Merci d'avance
.

Bonsoir,
Ton problème, provient des paramètres que tu ne peux pas charger lors de l'utilisation de la méthode OpenRecordset. Mais il suffit de charger la requête par Querydef avant.
Essaie ceci :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Dim oQdf As DAO.QueryDef
Dim oRst As DAO.Recordset
 
'Chargement de la requête avec paramètres
Set oQdf = CurrentDb.QueryDefs("Query Requete Pointages")
 
oQdf.Parameters(0).Value = [Forms]![Form Requete Pointages Resultats]![ListSalarie]
oQdf.Parameters(1).Value = [Forms]![Form Requete Pointages Resultats]![TxtMois]
oQdf.Parameters(2).Value = [Forms]![Menu Application DbLPE]![TxtUtilisateur]
 
' Chargement du Recordset à partir de la requête
Set oRst = oQdf.OpenRecordset
' ici ton code ...
 
oRst.Close
 
Set oQdf = Nothing
Set oRst = Nothing

20/12/2012, 18h59
star

merci beaucoup
c'est super !
(: