Discussion :

[elabbassi]

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
Monsql = "SELECT DISTINCTROW Salarie.Matricule, Salarie.[Code niv5], Salarie.[Code niv4], Salarie.[Code niv3], Salarie.[Code niv2], Salarie.[Code niv1], Salarie.[Code categorie], Resultat.Année, Resultat.Mois, Resultat.[Code Rubrique], Resultat.Montant, [Entéte Rubrique].[Rub Base], [Entéte Rubrique].[Rub Taux] FROM (Resultat INNER JOIN [Entéte Rubrique] ON Resultat.[Code Rubrique] = [Entéte Rubrique].[Code Rubrique]) INNER JOIN Salarie ON Resultat.Matricule = Salarie.Matricule WHERE ((([Salarie]![Matricule]) Between ([Forms]![Generation bulletins]![Champ72]) And ([Forms]![Generation bulletins]![Champ74])) AND (([Resultat]![Année])=[Forms]![Generation bulletins]![Champ32]) AND (([Resultat]![Mois])=[Forms]![Generation bulletins]![Champ34]) AND (([Salarie]![Code categorie]) Between ([Forms]![Generation bulletins]![Champ 76]) And ([Forms]![Generation bulletins]![Champ78])))"
    cond1 = "AND ([salarie]![Code niv1]=" & Forms![Generation bulletins]![Champ22] & ") "
    cond2 = "AND ([salarie]![Code niv2]=" & Forms![Generation bulletins]![Champ37] & ") "
    cond3 = "AND ([salarie]![Code niv3]=" & Forms![Generation bulletins]![Champ39] & ") "
    cond4 = "AND ([salarie]![Code niv4]=" & Forms![Generation bulletins]![Champ43] & ") "
    cond5 = "AND ([salarie]![Code niv5]=" & Forms![Generation bulletins]![Champ45] & ") "
    Select Case Me![Champ85]
        Case 1
            Conditionwhere = cond1
        Case 2
            Conditionwhere = cond1 & cond2
        Case 3
            Conditionwhere = cond1 & cond2 & cond3
        Case 4
            Conditionwhere = cond1 & cond2 & cond3 & cond4
        Case 5
            Conditionwhere = cond1 & cond2 & cond3 & cond4 & cond5
        Case 99
            Conditionwhere = ""
    End Select
 
    Monsql = Monsql & Conditionwhere & ";"
   'MsgBox (Monsql)
    existquerydef ("Res_ent_rub")
    Set MaRequête = MaBd.CreateQueryDef("Res_Ent_Rub", Monsql)
    Set rese = MaBd.OpenRecordset("Res_Ent_Rub")

message d'erreur:
erreur d'execution 3061.
trop peu de paramètre. 6 attendu.

[Faw]

Bonjour
c'est quoi? une intéro pour nous?
Merci de formuler votre problématique de façon precise et d'utiliser les balises
de code!!!

[elabbassi]

Lorsque j'execute mon code il genére le message suivant et s'arrête sur cette ligne
Set rese = MaBd.OpenRecordset("Res_Ent_Rub")message d'erreur:
erreur d'execution 3061.
trop peu de paramètre. 6 attendu.

[elabbassi]

Lorsque j'execute mon code il genére le message suivant et s'arrête sur cette ligne

Code :

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

Set rese = MaBd.OpenRecordset("Res_Ent_Rub")

message d'erreur:
erreur d'execution 3061.
trop peu de paramètre. 6 attendu.

[Maxence HUBICHE]

De manière systématique, ce message indique qu'il y a des noms inconnus dans ton SQL.

• Donc, au lieux de ton msgbox, tu fais un debug.print (pas en commentaire, bien sûr)
• Tu récupères le code SQL généré dans la fenêtre exécution.
• Tu crées une requête, tu colles le code SQL
• Tu lances ta requête
• Et tu vois ce qui ne va pas.

[cafeine]

+1 tout ça est expliqué là :
http://cafeine.developpez.com/access...el/debugprint/

Ton erreur me rappelle aussi le coup classique du conflit DAO, ADO ...
essaie

Code :

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

Dim rese As DAO.Recordset

De manière systématique, ce message indique qu'il y a des noms inconnus dans ton SQL.

• Donc, au lieux de ton msgbox, tu fais un debug.print (pas en commentaire, bien sûr)
• Tu récupères le code SQL généré dans la fenêtre exécution.
• Tu crées une requête, tu colles le code SQL
• Tu lances ta requête
• Et tu vois ce qui ne va pas.

[Faw]

un peu comme ici
http://www.developpez.net/forums/sho...d.php?t=253034

[cafeine]

un classique

un peu comme ici
http://www.developpez.net/forums/sho...d.php?t=253034

[elabbassi]

Ma requête s'execute sans aucun problème en mode base de données.

[elabbassi]

mon problème est résolu, j'ai fait tous les filtres à l'extérieur de l'SQL

Mle1 = Forms![Generation bulletins]![Champ72]
Mle2 = Forms![Generation bulletins]![Champ74]
Cat1 = Forms![Generation bulletins]![Champ76]
Cat2 = Forms![Generation bulletins]![Champ78]
Annee = Forms![Generation bulletins]![Champ32]
Mois = Forms![Generation bulletins]![Champ34]

merci à tous