Discussion :

[patdaum]

Bonjour,

J'ai une requête paramètrer qui fonctionne très bien en tant que requête, mais si je l'utilise ds du VBA, j'ai le message suivant

too few parameters , expected 1

Pourquoi ce problème ?

Ci-dessous le requête

Set met = db.OpenRecordset("PARAMETERS Forms![consultation]![ann] Text (10); TRANSFORM Sum(Tache_temps.Temps_passe) AS SommeDeTemps_passe SELECT TACHE.Equip_utilisé, Sum(Tache_temps.Temps_passe) AS total FROM TACHE INNER JOIN Tache_temps ON TACHE.[Num Affaire] = Tache_temps.Num_Affaire WHERE ((Year([Date_creat])) = Forms![consultation]![ann] And ((Tache_temps.Date_creat) Is Not Null)) GROUP BY TACHE.Equip_utilisé PIVOT Month([date_creat]);")

si je met le nom de la requête le problème est le même

Set met = db.OpenRecordset("metier");

Poutant cette requête fonctionne hors VBA !

Merci de votre aide

[pgz]

Bonjour,

Le formulaire "Consultation" est bien ouvert? Le contrôle "Ann" renseigné?

pgz

[patdaum]

oui le formulaire est ouvert et le champ ann renseigné

merci

[pgz]

Et si tu remplaces
Date_creat
par
Tache_temps.Date_creat?

pgz

[User]

Salut,

et si tu faisais un truc du genre:

Code :

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

Set met = db.OpenRecordset("TRANSFORM Sum(Tache_temps.Temps_passe) AS SommeDeTemps_passe SELECT TACHE.Equip_utilisé, Sum(Tache_temps.Temps_passe) AS total FROM TACHE INNER JOIN Tache_temps ON TACHE.[Num Affaire] = Tache_temps.Num_Affaire WHERE ((Year([Date_creat])) = " & Forms![consultation]![ann]  & " And ((Tache_temps.Date_creat) Is Not Null)) GROUP BY TACHE.Equip_utilisé PIVOT Month([date_creat]);")

@+

[patdaum]

Bonjour,

J'ai essayé plusieurs solutions sans succès.
Je pense que c'est un bogue Access !

Je vais passé par une solution dégradée.

Merci pour vos investigations