Discussion :

[bertiny]

Bonjour
J'ai utilisé le code vba contenu dans l'article ci-dessous pour créer mon état basé sur une requête analyse croisée dynamique je reçois une erreur d'exécution 3061.

Trop peu de paramètres. 2 attendu.

Quand j'essaie le débogage on me revoit à la ligne 5 du code

Code :

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

1
2
3
4
5
6
Private sub Report_Open(Annuler As Integer)
Dim rstRequete As DAO.QueryDef 
set dbBase = CurrentDb 
set rstRequete = dbBase.QueryDefs("rqbordereau")
set rstEnregistrement = rstRequete.OpenRecordset()
NBColonnes = rstRequete.Fields.Count

le tutoriel en question est ici http://warin.developpez.com/access/dao/?page=partie_5
Je vous remercie pour votre coup de main.
Access 2013

[loufab]

Bonjour,

Jet n'arrive pas solutionner 2 paramètres dans ta requête : rqbordereau

Soit un parameter, soit un lien à l'interface, soit un variable utilisateur qui n'est pas visible (module de classe ou function private)...

Cela peut également être dans une des sous-requêtes de rqbordereau.

Cordialement,

[bertiny]

Justement j'utilise deux paramètres pris dans un formulaire.

Code :

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

1
2
[Formulaires]![Bordeau]![Se]  type Entier long 
[Formulaires]![Bordeau]![Se] Type Entier long

Et comment solutionner?

[loufab]

Tu dois les renseigner via la méthode/propriété Parameters() lors de ta déclaration.

Tout cela est expliqué dans le tuto DAO.

[bertiny]

évidemment Ils sont renseignés dans la requête et la requête fonctionne normalement.

[loufab]

Si c'était aussi évident tu n'aurais pas d'erreur 3061.

Tes 2 liens ne peuvent être résolu par Dao avec un simple 'formulaires....'

Tu vas devoir utiliser parameters() (cf querydef.parameters dans le tuto DAO)

C'est la solution la plus simple.

[bertiny]

Justement C'est un problème de paramètres mais je bute. Car sans paramètres çà donne.
J'ai lu le tuto mais je ne me retrouve pas. c'est vrai que l'exemple pris dans le tuto affecte une valeur directement au paramètre et dans mon cas, la valeur du paramètre doit être prise au niveau du formulaire.
J'ai essayé de faire ceci

Code :

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

1
2
3
4
5
6
7
8
Private sub Report_Open(Annuler As Integer)
Dim rstRequete As DAO.QueryDef 
set dbBase = CurrentDb 
set rstRequete = dbBase.QueryDefs("rqbordereau")
rstRequete.Parameters("i").value = "[Formulaires]![dbordereau]![se]"
rstRequete.Parameters("j").value = "[Formulaires]![dbordereau]![cl]"
set rstEnregistrement = rstRequete.OpenRecordset()
NBColonnes = rstRequete.Fields.Count

mais çà me renvoie l'erreur d'exécution "2465"

l'application ne trouve pas le champ <<&[Formulaires]![dbordereau]![se]>> auquel il fait référence dans votre expression.

[tee_grandbois]

le nom des formulaires ne sont pas les mêmes, est-ce normal ?

[Formulaires]![Bordeau]![Se] type Entier long
[Formulaires]![Bordeau]![Se] Type Entier long

et

rstRequete.Parameters("i").value = "[Formulaires]![dbordereau]![se]"
rstRequete.Parameters("j").value = "[Formulaires]![dbordereau]![cl]"

[bertiny]

Bonsoir
Je les ai juste renommé comme j'ai renommé le formulaire parce que j'ai constaté qu'il portait le même nom que l'état. Juste au cas où. Vous avez aussi dû remarquer que j'ai utilisé le même champ deux fois au niveau des paramètres que j'ai modifié plus bas
Cdlt.

[tee_grandbois]

Bonsoir
Je les ai juste renommé comme j'ai renommé le formulaire parce que j'ai constaté qu'il portait le même nom que l'état. Juste au cas où. Vous avez aussi dû remarquer que j'ai utilisé le même champ deux fois au niveau des paramètres que j'ai modifié plus bas
Cdlt.

je n'ai pas compris. Je vais considérer que le nom du formulaire est dans le dernier code : dbordereau.

Ceci dit, les variables ne doivent pas être mises entre double-apostrophes et du coup, dans VBA on fait référence à Forms et pas Formulaires:

Code :

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

1
2
rstRequete.Parameters("i").value = [Forms]![dbordereau]![se]
rstRequete.Parameters("j").value = [Forms]![dbordereau]![cl]

[bertiny]

Le message d'erreur est désormais

Elément non trouvé dans cette collection

[tee_grandbois]

cela veut dire que le nom des paramètres utilisés dans VBA ne sont pas les mêmes que ceux de la requête d'origine.

[bertiny]

Le paramètre dans la requête sont justement

Code :

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

1
2
[Formulaires]![dbordereau]![se] type entier et
[Formulaires]![dbordereau]![cl] type entier

[tee_grandbois]

OK, ce sont donc des variables de la requête dans ce cas :

Code :

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

1
2
rstRequete.Parameters(0).value = [Forms]![dbordereau]![se]
rstRequete.Parameters(1).value = [Forms]![dbordereau]![cl]

devrait fonctionner

[bertiny]

Il n'y a plus un message d'erreur mais aucune valeur sur l'état.
Que représente 0 et 1 de Paramèters?

[loufab]

Bonjour,

Comme tous les compteurs ça représente le N° des items de la liste (avec un réglage standard) .
0 pour le 1er
1 pour le second
...

on peut y substituer le nom du paramètre pour plus de clarté et pour éviter les problèmes en cas de modification.

Code :

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

rstRequete.Parameters("[Formulaires]![dbordereau]![se]").value = Forms("dbordereau").controls("se").value

Cordialement,

[bertiny]

Bonjour et merci pour votre aide
J'ai appliqué ce que vous avez suggéré mais aucune donnée dans l'état.

[bertiny]

Bonjour
Existe-t-il une solution alternative pour les les états basés sur le requêtes analyses croisées dynamiques avec paramètre? car je ne comprends pas ce qui ne marche pas avec la solution proposée. la requête en elle-même s'exécute normalement et me produit ce que je veux mais aucune donnée sur l'état. quand j'exécute le code VBA en enlevant les paramètre, l'état est conçu normalement mais avec plus de colonnes que prévues quand il y a les paramètres.

[bertiny]

Bonsoir et merci à loufab et tee_grandbois pour l'intérêt qu'il ont porté à mon problème. Le problème a été résolu sur un autre poste que j'ai créé ici.
Cordialement