Discussion :

[oOXimOo]

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 ?

[marot_r]

Deux des champs que tu as défini ne doivent pas exister ou porter un autre nom.

Une solution simple pour faire du SQL avec Access est d'aller dans l'éditeur de requête, de faire ta requête par sélection de table et glisser déplacer puis de faire afficher le SQL correspondant. Après tu n'as plus qu'à le coller dans ton code ou faire un appel de requête paramétrée.

Le SQL de Access ayant quelques particularité cette méthode fait gagner pas mal de temps.

Pour touver l'erreur dans ta requête actuelle tu peux

• mettre un point d'arrêt sur Set oRst = oDb.OpenRecordset(SQL_moe, dbOpenSnapshot)
• et en utilisant la fenêtre d'exécution immédiate ([ctrl][g]) taper debug.print SQL_moe ce qui faire afficher le contenu de ta variable SQL_moe. Une fois cela fait tu va pouvoir vérifier si ce que tu voulais écrire est bien ce que Access a compris.
• Si oui, créer une nouvelle requête et importe le SQL affiché par le debug.print dans cette nouvelle requête et essaye de passer en mode design. Cela devrait te donner des indications sur la source de ton problème.

A+

[oOXimOo]

Merci beaucoup pour cette réponse très complète.

Ce que j'ai fais c'est ajouter la ligne :
MsgBox SQL_moe
et il semblerait que le résultat affiché soit bien la requête que je voulais. Je vais essayer de débuger et de l'exécuter selon tes indications, si besoin je reviendrais ici.

Merci

[oOXimOo]

Merci,

En passant en mode design j'ai compris que le champ semaine que j'allais cherché dans la table "MainOeuvre" ne se situe pas dans cette table en faite.