Bonjour,

Je réalise une application pour la gestion des flux (sujet de stage) et je suis bloqué par un problème:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
'''''''''''''''''''''''''''''''TEST
var1.Value = listePrise.ItemData(0)
var2.Value = listePrise.ItemData(1)
'var3.Value = listePrise.ItemData(2)
'var4.Value = listePrise.ItemData(3)
'var5.Value = listePrise.ItemData(4)
'var6.Value = listePrise.ItemData(5)
'var7.Value = listePrise.ItemData(6)
'var8.Value = listePrise.ItemData(7)
'var9.Value = listePrise.ItemData(8)
'var10.Value = listePrise.ItemData(9)
 
'Test
Set Qry = CurrentDb.QueryDefs("Récap PREC1")
Qry.Parameters("[Formulaires]![Formulaire]![listeCC].[value]") = listeCC.Value
Qry.Parameters("[Formulaires]![Formulaire]![dateDeb].[value]") = dateDeb.Value
Qry.Parameters("[Formulaires]![Formulaire]![dateFin].[value]") = dateFin.Value
Qry.Parameters("[Formulaires]![Formulaire]![var1].[value]") = var1.Value
Qry.Parameters("[Formulaires]![Formulaire]![var2].[value]") = var2.Value
'Qry.Parameters("[Formulaires]![Formulaire]![var3].[value]") = var3.Value
'....
 
Set Rs = Qry.OpenRecordset
 
Set PREC1test.Form.Recordset = Rs
Set Qry = Nothing
Set Rs = Nothing
'fin test
Requête prenant les variables en compte:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
SELECT [Tout 50-7-41].[CC PREC], Sum([Tout 17-28].Qté) AS QtéTot, Sum([Tout 17-28].[Prod Std]) AS ProductionStd
FROM [Tout 17-28], [Tout 50-7-41]
WHERE [Tout 17-28].OP=[Tout 50-7-41].OP 
And [Tout 17-28].[N° OF]=[Tout 50-7-41].ID 
And [Tout 50-7-41].[CC EN COURS]=Formulaires!Formulaire!listeCC.value 
And [Tout 50-7-41].[CC PREC]=Formulaires!Formulaire!var1.value 
OR [Tout 50-7-41].[CC PREC]=Formulaires!Formulaire!var2.value 
And [Tout 17-28].[Dt coch] Between Formulaires!Formulaire!dateDeb.value And Formulaires!Formulaire!dateFin.value
GROUP BY [Tout 50-7-41].[CC PREC]
ORDER BY Sum([Tout 17-28].Qté) DESC;
Le code est placé sur un bouton qui génère et actualise un sous formulaire avec les résultats, seul hic cela ne fonctionne seulement pour une seule variable (var1). Dès que j'ajoute "var2" pour test (Les but est d'arriver à 10 variables), le clic sur le bouton me fait planter access: Pas de débuggage et obligation de tuer l'application car elle est plantée.

Avez-vous une solution?

Benoit.