Erreur sql Update statement

Version imprimable

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

Code:

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

26/03/2013, 14h03
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:

1 2 SET tblRoutingMain.[SEQ] = '" & MyTable2.FIELDS("SEQ") & "', " &
à remplacer par
Code:

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...
26/03/2013, 14h07
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'
26/03/2013, 14h31
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
26/03/2013, 14h31
blbtm

Bonjour,

Que donne l'instruction suivante ?

Code:

Debug.Print strUpdateQuery

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

Debug.Print strUpdateQuery Me donne :

Code:

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:

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

26/03/2013, 14h54
julienmy57

De plus, ne devrais je pas faire une boucle pour obtenir toutes les valeurs de MyTable2 ?
26/03/2013, 15h00
tatayo

Bonjour,
Il manque une parenthèse fermante dans la première requête ( 5 ouvrantes, 4 fermantes).

Tatayo

P.S. d'ailleurs dans les 2 requêtes les parenthèses ne servent pas à grand chose...
26/03/2013, 15h04
aieeeuuuuu

Citation:

Envoyé par julienmy57

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

Non, vous devriez faire une seule requête UPDATE qui met a jour toutes les lignes nécessaires d'un seul coup.

Si vous avez besoin d'aide, indiquez nous la structure des tables, et le but de l'opération.
26/03/2013, 15h22
julienmy57

Pas de soucis avec les parentheses..
Oui j'en aurais besoin s'il vous plait.

Dans une subform j'ai un tableau avec differents enregistrements, classes par Quote NUMBER, ASSYPN et COMPNN.

Parmis les text box de la subform il y a SEQ ( la sequence )
Lorsque l'on modifie celle ci elle s'auto-incremente de 10 en 10 et donc change tous les enregistrements du tableau source tblRoutingMain pour un quote number precis, ASSYPN et COMPNN aussi.

Seulement quand on la modifie je souhaiterais aussi modifier pour le meme ASSYPN, COMPNN le Quote number tel que :
QUOTE NUMBER= QUOTE NUMBER & " CONT1"
L'enregistrement est dans la meme table TblRoutingMain

C'est pourquoi base sur des enregistrements tel que ROUTING ( toujours unique ) je souhaterais modifier les enregistrements de la colonne SEQ pour un QUOTE NUMBER CONT1
26/03/2013, 15h27
julienmy57

Ah pardon ici pas de ASSYPN excusez moi