[AC-2007] Pb pour formuler mon INSERT avec un WHERE

[tibofo]

Bonjour,
Je cherche à améliorer une requête d'insert en y mettant des critères pour ne pas insérer partout!

Actuellement je fais un delete puis un insert :

Code :

DoCmd.RunSQL "Delete * from [HISTOCLUB] WHERE [ANNEE] LIKE " & ANNEETARIFCLUB & ""

puis mon insert que je souhaite 'filtrer' sur la même table : si ANNEE est différent de mon champ ANNEETARIFCLUB et si C_COD_CLT <> CODECLIENT alors je fais le insert

Code :

1
2
3
4
5
Désinscription = "INSERT INTO HISTOCLUB " & _
                        "( C_COD_CLT, ANNEE ) " & _
                        "SELECT '" & CODECLIENT & "', " & ANNEETARIFCLUB & " FROM HISTOCLUB WHERE ANNEE <> " & ANNEETARIFCLUB & " AND C_COD_CLT <> CODECLIENT;"
                        Debug.Print ReqINSCRIPTIONANNEECLUB
                        DoCmd.RunSQL ReqINSCRIPTIONANNEECLUB

ce qui me donne cette requête extrait de 2 lignes)

INSERT INTO HISTOCLUB ( C_COD_CLT, ANNEE ) SELECT '08043', 2011 FROM HISTOCLUB WHERE ANNEE <> 2011 AND C_COD_CLT <> '08043';
INSERT INTO HISTOCLUB ( C_COD_CLT, ANNEE ) SELECT '08048', 2011 FROM HISTOCLUB WHERE ANNEE <> 2011 AND C_COD_CLT <> '08048';

cela tourne mais rien ne se met dans ma table qui est vide.

J'ai essayé en enlevant le FROM (car finalement je veux qu'elle se filtre sur elle-même)

Code :

1
2
3
4
5
Désinscription = "INSERT INTO HISTOCLUB " & _
                        "( C_COD_CLT, ANNEE ) " & _
                        "SELECT '" & CODECLIENT & "', " & ANNEETARIFCLUB & " WHERE ANNEE <> " & ANNEETARIFCLUB & " AND C_COD_CLT <> CODECLIENT;"
                        Debug.Print ReqINSCRIPTIONANNEECLUB
                        DoCmd.RunSQL ReqINSCRIPTIONANNEECLUB

mais là, je me fais sermoner erreur 3075 erreur de syntaxe opérateur absent

Savez-vous s'il est possible de faire un INSERT dans un table en filtrant sur cette même table ?

Merci

[argyronet]

Bonjour,

Exécute ton code avec un :

Code :

CurrentDB.Execute SQLScript, dbFailOnError

plutôt qu'un

Code :

DoCmd.RunSQL.

couplée à un

Code :

On Error Goto...

en amont et un

Code :

MsgBox Err.Description,,Err.Number

en aval dans l'étiquette.

Tu auras la réponse du problème.

Argy

P.S. Ceci est juste pour le test ; si ton script est une boucle, il faudra prévoir un objet Database plutôt que d'utiliser CurrentDB().

[f-leb]

bonsoir,

Envoyé par tibofo

...ce qui me donne cette requête extrait de 2 lignes)

Code sql :

J'ai l'impression que l'idée est d'insérer une ligne dans la table HISTOCLUB en évitant les doublons sur le couple ( C_COD_CLT, ANNEE ), non ?

la syntaxe serait plutôt:

Code sql :

1
2
INSERT INTO HISTOCLUB ( C_COD_CLT, ANNEE ) 
VALUES ( '08043', 2011);

tu peux éventuellement tester si la ligne existe déjà avec un DLookUp avant le INSERT, ou mieux, tu mets un index "unique" sur ( C_COD_CLT, ANNEE ) pour interdire les doublons...

[tibofo]

Merci à vous 2 pour votre intérêt:

Actuellement, le bouton de mon formulaire permet d'insérer une info (2010, 2011...) dans la table :
client - année - club1 - club 2 - club3 ...
DUPONT-2010 - 0 - 0 - 0
TOTO - 2010 - 0 - 0 - 0

Puis en cours de vie de la base, sur, par exemple, l'année 2010, les clubs peuvent passer à 1. Ce qui donne par exemple:
client - année - club1 - club 2 - club3 ...
DUPONT-2010 - 0 - 1 - 0
TOTO - 2010 - 1 - 1 - 0

Mon pb est que si l'utilisateur re-clique sur ce bouton, cela me supprime tout le contenu de la table (DELETE) puis fais le INSERT INTO

Alors je voudrais améliorer en retirant le DELETE et en ne laissant qu'1 INSERT INTO qui inséra que si le client et son année n'existent pas déjà dans la table. (parce que il peut y avoir des nouveaux clients qui ne sont pas encore dans cette table)

[argyronet]

Envoyé par tibofo

Mon pb est que si l'utilisateur re-clique sur ce bouton, cela me supprime tout le contenu de la table (DELETE) puis fais le INSERT INTO

Les événements ça se gère dans un form.
S'il a cliqué alors une variable de type Boolean est à True et si ce boolean est à True, le script n'est pas éxécuté ; un message de rochonnage bien ficelé peut accompagner cet déclenchement.
Une fois le script terminé (et sans erreur) tu le repasses à False.

Argy