Discussion :

[julienmy57]

Bonjour,
Je ne trouve pas mon erreur dans ce code SQL.. 3 heures que je bloque.
Pourriez vous m'aider ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
 Set MyTable2 = MyDB.OpenRecordset("SELECT * FROM [tblRoutingMain] " & _
                                "WHERE ((([tblRoutingMain].[QUOTE NUMBER])='" & [QUOTE NUMBER] & "') AND (([tblRoutingMain].COMPPN)='" & COMPPN & "')) " & _
                                "ORDER BY tblRoutingMain.ROUTING ASC;")
 
  If Not MyTable2.EOF Then MyTable2.MoveFirst
 
 
      strUpdateQuery = "UPDATE tblRoutingMain SET  tblRoutingMain.[SEQ] = '" & MyTable2.Fields("SEQ") & "', " & _
                       "WHERE ((([tblRoutingMain].[QUOTE NUMBER])='" & [QUOTE NUMBER] & "CONT1" & "') AND (([tblRoutingMain].COMPPN)='" & COMPPN & "') AND (tblHardwareCost.[ROUTING]='" & MyTable2.Fields("ROUTING") & "'))" & _
                       "ORDER BY tblRoutingMain.ROUTING ASC;"
      CurrentDb.Execute strUpdateQuery, dbFailOnError

[aieeeuuuuu]

Bonjour,

Le message d'erreur ne serait pas inutile mais déjà vous avez une virgule en trop me semble-t-il dans la requête de mise à jour :

Code :

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

1
2
 
SET  tblRoutingMain.[SEQ] = '" & MyTable2.FIELDS("SEQ") & "', " &

à remplacer par

Code :

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

1
2
 
SET  tblRoutingMain.[SEQ] = '" & MyTable2.FIELDS("SEQ") & "' " &

Quand c'est comme ça, récupérez le contenu de vos requêtes, l'erreur se voit beaucoup mieux...

[julienmy57]

Le message d'erreur etait dans le titre.
En enlevant la virgule il change et me donne : Missing semicolon ( ; ) at the end of the statement, Run time error'3137'

[aieeeuuuuu]

vous ouvrez six parenthèses, mais n'en fermez que deux.

commencez par enlever celles qui sont inutiles, puis affichez votre requête pour voir celle qui manque

[blbtm]

Bonjour,

Que donne l'instruction suivante ?

Code :

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

Debug.Print strUpdateQuery

C'est plus facile avec la requête finale
à+

[julienmy57]

Debug.Print strUpdateQuery Me donne :

Code :

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

1
2
 
UPDATE tblRoutingMain SET  tblRoutingMain.[SEQ] = '10' WHERE ((([tblRoutingMain].[QUOTE NUMBER])='OPP003903CONT1') AND (([tblRoutingMain].COMPPN)='A02H6007-1') AND (tblHardwareCost.[ROUTING]='1 Assembly Clean Room ACR'))

et au niveau du code que j'ai un peu modifie :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 Set MyTable2 = MyDB.OpenRecordset("SELECT * FROM [tblRoutingMain] " & _
                                "WHERE ((([tblRoutingMain].[QUOTE NUMBER])='" & [QUOTE NUMBER] & "') AND (([tblRoutingMain].COMPPN)='" & COMPPN & "')) " & _
                                "ORDER BY tblRoutingMain.ROUTING ASC;")
 
  If Not MyTable2.EOF Then MyTable2.MoveFirst
 
 
      strUpdateQuery = "UPDATE tblRoutingMain SET  tblRoutingMain.[SEQ] = '" & MyTable2.Fields("SEQ") & "' " & _
                       "WHERE ((([tblRoutingMain].[QUOTE NUMBER])='" & [QUOTE NUMBER] & "CONT1" & "') AND (([tblRoutingMain].COMPPN)='" & COMPPN & "') AND (tblHardwareCost.[ROUTING]='" & MyTable2.Fields("ROUTING") & "'))"
 
      CurrentDb.Execute strUpdateQuery, dbFailOnError

J'ai desormais l'erreur 3061 too few parameters. Expected 1
Je suis perdu c'est mon premier code SQL

[julienmy57]

De plus, ne devrais je pas faire une boucle pour obtenir toutes les valeurs de MyTable2 ?