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 ?

[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...

[aieeeuuuuu]

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.

[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

[julienmy57]

Ah pardon ici pas de ASSYPN excusez moi