Discussion :

[Sam 069]

Bonjour,

Smple boucle posé sur un recordset.

Le code fonctionne correctement mais se bloque sur la requete d'insertion des données.
Le message d'erreur dit qu 'il manque un point virgule à la fin de l'instruction sql.
Mais avec ou sans rien ne change et d'habitude je ne me suis jamais servi de ; pour le vb d'access.

A vez vous une idée

Dim ID_PART As String
Dim rst As Recordset


Set rst = CurrentDb.OpenRecordset("Select * from T_Piece Where Traitement is null")
rst.MoveLast
rst.MoveFirst

Do While Not rst.EOF

ID_PART = rst("Pièce").Value

MsgBox "" & ID_PART

DoCmd.SetWarnings False
DoCmd.RunSQL "Insert Into T_Piece (Traitement) Values ('x') Where Piece ='" & ID_PART & "'"
rst.MoveNext

Loop

End Function

Merci de votre aide.

@+
++

[SfJ5Rpw8]

et quand tu le rajoute le ; tu le met ou ..?

[Sam 069]

De cette façon

Code :

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

1
2
 
 DoCmd.RunSQL "Insert Into T_Piece (Traitement) Values ('x') Where Piece ='" & ID_PART & ";" & "'"

[SfJ5Rpw8]

? je sais pas moi je le mettrai aprés le '..! sinon ton where n'est pas bon

[Sam 069]

Dans les deux cas ca ne marche toujours pas

Code :

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

 DoCmd.RunSQL "Insert Into T_Piece (Traitement) Values ('x') Where Piece ='" & ID_PART & "';"

Code :

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

 DoCmd.RunSQL "Insert Into T_Piece (Traitement) Values ('x') Where Piece =';" & ID_PART & "'"

MErci de ton aide

[SfJ5Rpw8]

oui mais avec le premier cas ( le ; à la fin..) c'est toujours le même message d'erreur ..? .. puis je comprends pas ta requête ou tu mélange un insert et un where... ?

que ve tu faire au juste..?