Discussion :

[choubak]

Bonjour,

Voila ma requete

Code :

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

Set oRst_product = oDb.OpenRecordset("SELECT  Avg([Productivite1]) AS Expr1 FROM production WHERE [Nom Machine] =  '" & Nom_Machine & "'  AND [N° Semaine]= '" & N°_Semaine & "' AND Year ([Date début prod])='" & Year(Date_début_prod) & "'")

Lors de l'execution l'exception suivante se leve
erreur d'execution 3464
Datatype mismatch in criteria expression

L'erreur vient du critere N° Semaine que je trouve en faisant un difdate alors peut etre que l'erreur vient de ça. Je n'arrive pas à trouver de solution. Merci de m'aider

[Demco]

Pour les construction de requêtes SQL depuis VBA il faut toujours vérifier la requête générée par un debug.print avant de l'exécuter. Ainsi tu vois dans la fenêtre d'exécution de possibles erreurs de syntaxe de la requête.

Code :

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

1
2
3
4
5
Dim strSQL as String
Dim strTable as String
strTable = "MaTable"
strSQL = "SELECT * FROM " & strTable & ";"
Debug.Print strSQL

Suis la même approche pour ta requête et je pense que tu trouveras sans problème l'erreur.

En espérant t'aider.

[Invité]

Bonjour

Dans ta requête tu as entourés tous tes critéres avec des ', hors ceux-ci sont réservés aux textes (string).

Il faut que tu les enlèves car je ne pense pas que : N°_Semaine et Year(Date_début_prod) soit du texte.

De plus pour les dates (si le champ de ta table est au format Date) il faut utiliser des #.

Starec

[choubak]

merci starec je n'avais pas fait attention

Bonne journée