Bonjour,

Je travail sur Accès depuis le début de journée,j'ai créé plus d'une dizaine de requêtes et à chaque fois je me retrouve face au même message d'erreur. Jusqu'à présent, en bidouillant et pourtant sans rien changer au contenu, ma requête finissait par être acceptée et digérée. Cette fois-ci je ne trouve pas la solution. Pouvez-vous m'aider ?

Voici le code :
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
29
    Dim sem_debut As Integer
    Dim sem_fin As Integer
    Dim an_debut As Integer
    Dim an_fin As Integer
 
    Dim NbMoe As Double     ' variable donnant le total pour la main d'oeuvre
    Dim SQL_moe As String
    ' ========================================
    ' Définition des valeurs par défaut
    ' ========================================
    sem_debut = Form_BilanParDates.semaine_debut.Value
    sem_fin = Form_BilanParDates.semaine_fin.Value
    an_debut = Form_BilanParDates.annee_debut.Value
    an_fin = Form_BilanParDates.annee_fin.Value
    NbMoe = 0
    NbVehicules = 0
    NbMateriel = 0
    ' ========================================
    ' Calcl du total de la MAIN D'OEUVRE
    ' ========================================
    Set oDb = CurrentDb
    SQL_moe = "SELECT taux_horaire,duree_prod FROM CoutParticipants AS CP,Employes AS E,MainOeuvre AS MO WHERE " & _
        "E.nom = MO.nom AND " & _
        "E.prenom = MO.prenom AND " & _
        "E.poste = CP.participant AND " & _
        "MO.semaine BETWEEN " & sem_debut & " AND " & sem_fin & " AND " & _
        "MO.annee BETWEEN " & an_debut & " AND " & an_fin
 
    Set oRst = oDb.OpenRecordset(SQL_moe, dbOpenSnapshot)
Et le message d'erreur :
Trop peut de paramètres. 2 Attendus.

En fonction des requêtes que j'ai fais, le nombre de paramètres attendus était différent, mais pourquoi me dit-il cela ?