Discussion :

[dricks]

bonjour,
j'ai un souci avec ma permutation de zone liste j'ai une erreur m'indiquant:

erreur de synthaxe dans l'instruction UPDATE

mais je ne vois pas ou est mon erreur exactement.

pourriez vous m'aidez a resoudre ce petit probleme sur mon afichage SVP

merci d'avance.
voici mon appli afin que vou puissiez y jeter un oeil!!

[LedZeppII]

Bonsoir,

1. Tes deux zones de listes n'ont pas les mêmes colonnes.
Or ton code est utilisé pour les deux listes et récupère la valeur de la première colonne.

Listegauche

Code sql :

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

1
2
3
SELECT [Base Consultation Achats ST PN2].Nom, [Base Consultation Achats ST PN2].Responsable, Lots.lots 
FROM Lots INNER JOIN [Base Consultation Achats ST PN2] ON Lots.N°lots=[Base Consultation Achats ST PN2].[Num Lots] 
WHERE (((Lots.N°lots)=Formulaires!automatchantier1![loit consulté]));

ListeDroite

Code sql :

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

1
2
3
SELECT [Base Consultation Achats ST PN2].[Numéro ST], [Base Consultation Achats ST PN2].Nom 
FROM Lots INNER JOIN [Base Consultation Achats ST PN2] ON Lots.N°lots=[Base Consultation Achats ST PN2].[Num Lots] 
WHERE Selection;

2. Pour la liste de gauche je mettrai un critère supplémentaire pour ne sélectionner que les enregistrements dont le champ Selection est décoché.

Listegauche : nouvelle requête source

Code sql :

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

1
2
3
SELECT [Base Consultation Achats ST PN2].[Numéro ST],	[Base Consultation Achats ST PN2].Nom
FROM Lots INNER JOIN [Base Consultation Achats ST PN2] ON Lots.N°lots=[Base Consultation Achats ST PN2].[Num Lots]
WHERE (((Lots.N°lots)=Formulaires!automatchantier1![loit consulté]) AND (NOT (Selection)));

3. Dans le code de la requête UPDATE
- Mettre des crochets droits autour des noms de table/champ contenant des espaces.
- Pas besoin de Chr(34) pour un champ numérique
- pour inverser un champ Oui/Non : SET Champ = NOT Champ

Donc, remplacer

Code vb :

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

1
2
Db.Execute "UPDATE Base Consultation Achats ST PN2 SET Selection= Selection WHERE Numéro ST=" & _
    Chr(34) & .Column(0, i) & Chr(34)

par

Code vb :

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

1
2
Db.Execute "UPDATE [Base Consultation Achats ST PN2] SET Selection= NOT Selection WHERE [Numéro ST]=" & _
     .Column(0, i)

4.

Code vb :

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

Db.Execute "UPDATE Base Consultation Achats ST PN2 SET Selection=" & CInt(bolSelection)

- Pareil, il faut mettre des crochets droits.
- il faut limiter ta requête UPDATE au lot consulté. Sinon tu modifie tous les enregistrements de la table
nouveau code:

Code vb :

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

1
2
Db.Execute "UPDATE [Base Consultation Achats ST PN2] SET Selection=" & CInt(bolSelection) & " " & _
           "WHERE (([Num Lots])=" & Me.loit_consulté & ")"

Voila c'est tout.
J'espère ne pas avoir fait d'erreurs de copier/coller.

A+

[dricks]

merci beaucoup de ton aide sa marche a merveille!!