[access 2003] erreur d'execution 3134 INSERT INTO

**Milyshyn76** · 01/02/2008, 16h42

Bonjour tout le monde,
Voilà je fait de nouveau face aux caprises d'une requête sql.

Code :

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

CurrentDb.Execute "insert into chemin_du_workflow(Nom_circuit, Service, Initiale, Plan_compte, groupe_de_plan_comptes, fournisseurs, société, enseigne, etablissement) values ('" & circuit & "','" & Service.Column(0) & "', '" & Initiale.Column(0) & "', " & compte.Column(0) & ", '" & groupe.Column(0) & "', '" & fournisseur.Column(0) & "', '" & societe.Column(0) & "', '" & enseigne.Column(0) & "', '" & etablissement.Column(0) & "')", dbFailOnError

La voici, je voudrais donc remplir une table à l'aide de listes déroulantes dans un formulaire, certaines peuvent être vide ou non, donc je vois à peu près où est le problème, l'erreur est la suivant erreur 3134 problème de syntaxte INSERT INTO

J'ai fait un debug print voici ce que cela donne :

Code :

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

1
2
debug.Print "insert into chemin_du_workflow(Nom_circuit, Service, Initiale, Plan_compte, groupe_de_plan_comptes, fournisseurs, société, enseigne, etablissement) values ('" & circuit & "','" & Service.Column(0) & "', '" & Initiale.Column(0) & "', " & compte.Column(0) & ", '" & groupe.Column(0) & "', '" & fournisseur.Column(0) & "', '" & societe.Column(0) & "', '" & enseigne.Column(0) & "', '" & etablissement.Column(0) & "')", dbFailOnError
insert into chemin_du_workflow(Nom_circuit, Service, Initiale, Plan_compte, groupe_de_plan_comptes, fournisseurs, société, enseigne, etablissement) values ('circuit4','achat', 'initiale2', , 'k', 'Fournisseur5', 'MAXICOOP', 'enseigne3', 'etb4')         128

**Jean-Philippe André** · 01/02/2008, 16h56

bonjour,
il faut regarder si tu peux avoir des valeurs vides dans ta table.
pour éviter ca, tu peux éventuellement faire un

Code :

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

iif(len(compte.Column(0))>0,compte.Column(0),0)

**Milyshyn76** · 07/02/2008, 16h05

Coucou,
désolé pour cette réponse tardive, ben moi a la base j'aurais plutot mis

Code :

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

1
2
3
if me.compte.value <> "" or me.compte.value = "" then
CurrentDb.Execute"insert into ....."
end if

mmerci...

**Milyshyn76** · 08/02/2008, 14h04

Envoyé par jpcheck

bonjour,
il faut regarder si tu peux avoir des valeurs vides dans ta table.
pour éviter ca, tu peux éventuellement faire un

Code :

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

iif(len(compte.Column(0))>0,compte.Column(0),0)

Coucou, j'ai essaie ta formule,mais en fait n'importe quel champs est suseptible d'être nul, il peut y avoir tout les champs nuls, comme il peut y avoir qu'un seul champs null, c'est selon l'utilisateur...

J'ai essaié ta formule, comment l'exploite t-on ?

Je l'ai mise avant ma requête mais elle genère une erreur, il manque un :=

Merci pour ton aide ;-)

**Jean-Philippe André** · 08/02/2008, 14h07

si je décompose :

Code :

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

iif(len(compte.Column(0))>0,compte.Column(0),0)

iif(test, valeur si test=vrai, valeur sinon)
len(a) retourne la longueur de a
Compte.column(0) retourne la valeur de la colonne 1 de la listbox compte.

donc
si la longueur de la colonne 1 de la listbox = 0 => pas de ligne choisie => on retourne 0, sinon , on retourne la valeur.

**Milyshyn76** · 08/02/2008, 14h10

Oui mais je ne veux pas que cela me retourne zéro, cela aurait été bien que cela ne me mette que "", et puis malheureusement, elle ne marche toujours pas ma requête....

merci....

**Milyshyn76** · 27/02/2008, 14h06

hello !!

je suis reconfrontée a ce genre de soucis, quelqu'un pourrait-il me réexpliquer ???

merci

**Jean-Philippe André** · 27/02/2008, 14h27

oups, dsl pour le retard :
si tu veux que ca retourne "" si c'est vide ou null :

Code :

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

iif(len(compte.Column(0))>0,compte.Column(0),"")

**Milyshyn76** · 27/02/2008, 14h49

looool merci c gentil, mais en fait il n'y a pas que compte qui est null, tout les champs peuvent être nul ou non ...

**Jean-Philippe André** · 27/02/2008, 15h42

hum, pour faire plus simple, tu utilises pour chaque champs la fonction Nz()

**Milyshyn76** · 27/02/2008, 15h45

heinnnn qu'est ce donc que CA ???!!!!

Comment l'utiliser ?

Graciasss

**Jean-Philippe André** · 27/02/2008, 16h14

hum

**Milyshyn76** · 27/02/2008, 16h32

wi mais comment utiliser ça dans ma requete ?
Parce qu'il peut avoir deux champs nulls en même temps, ou un seul, ou tous,
franchement je suis perdue

**Jean-Philippe André** · 27/02/2008, 16h38

dans ta requete du début, tu mets ca :

Code :

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

Nz(compte.Column(0),"")

**Milyshyn76** · 27/02/2008, 16h41

Cela me donne erreur de syntaxe, je comprend pas !! je crois que je vais laisser tomber, c'est idiot, mais franchement ça devient completement fou cette requete!!!!

**Jean-Philippe André** · 27/02/2008, 16h44

keep cool :

Code :

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

debug.Print "insert into chemin_du_workflow(Nom_circuit, Service, Initiale, Plan_compte, groupe_de_plan_comptes, fournisseurs, société, enseigne, etablissement) values ('" & circuit & "','" & Nz(Service.Column(0),"") & "', '" & Nz(Initiale.Column(0),"") & "', " & nz(compte.Column(0),0) & ", '" & nz(groupe.Column(0),"") & "', '" & nz(fournisseur.Column(0),"") & "', '" & nz(societe.Column(0),"") & "', '" & nz(enseigne.Column(0),"") & "', '" & nz(etablissement.Column(0),"") & "')", dbFailOnError

**Milyshyn76** · 27/02/2008, 16h50

Code :

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

1
2
3
4
5
compte = Nz(compte.Column(0), "")
        groupe = Nz(groupe.Column(1), Null)
 
 
                            CurrentDb.Execute "INSERT INTO chemin_du_workflow(Nom_circuit, Service, Initiale, Plan_compte, groupe_de_plan_comptes, fournisseurs, société, enseigne, etablissement, imputation, controleur, signataire1, signataire2, signataire3) values ('" & circuit & "', " & Service.Column(1) & ", " & Initiale.Column(1) & ", " & compte & ", " & groupe & ", " & fournisseur.Column(1) & ", " & societe.Column(1) & ", " & enseigne.Column(1) & ", " & etablissement.Column(1) & " , " & lst_imputation.Column(1) & ", " & lst_controleur.Column(1) & ", " & lst_signataire1.Column(1) & " , " & lst_signataire2.Column(1) & ", " & lst_signataire3.Column(1) & ")", dbFailOnError

Il veut pas le savoir cet abr****t, il me donne toujours erreur de syntaxe INSERT INTO, c'est incroyable !!!!!

**Milyshyn76** · 27/02/2008, 16h53

Voila ce que j'ai fais :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
compte = Nz(compte.Column(0), Null)
        Initiale = Nz(Initiale.Column(1), Null)
        groupe = Nz(groupe.Column(1), Null)
        Service = Nz(Service.Column(1), Null)
        fournisseur = Nz(fournisseur.Column(1), Null)
        societe = Nz(societe.Column(1), Null)
        enseigne = Nz(enseigne.Column(1), Null)
        etablissement = Nz(etablissement.Column(1), Null)
        imputation = Nz(lst_imputation.Column(1), Null)
        Controleur = Nz(lst_controleur.Column(1), Null)
        Signataire1 = Nz(lst_signataire1.Column(1), Null)
         Signataire2 = Nz(lst_signataire2.Column(1), Null)
          Signataire3 = Nz(lst_signataire3.Column(1), Null)
        CurrentDb.Execute "INSERT INTO chemin_du_workflow(Nom_circuit, Service, Initiale, Plan_compte, groupe_de_plan_comptes, fournisseurs, société, enseigne, etablissement, imputation, controleur, signataire1, signataire2, signataire3) values ('" & circuit & "', " & Service & ", " & Initiale & ", " & compte & ", " & groupe & ", " & fournisseur & ", " & societe & ", " & enseigne & ", " & etablissement & " , " & imputation & ", " & Controleur & ", " & Signataire1 & " , " & Signataire2 & ", " & Signataire3 & ")", dbFailOnError

Il y a une erreur de syntaxe quelque part !!!! ca me souuuulllllleuuuuuhhhh

**Milyshyn76** · 28/02/2008, 09h19

Hello, quelqu'un sais t-il résoudre mon problème :

je récapitule : j'ai une requete que me permet d'inserer des valeurs normal

elle me génère une erreur 3134 erreur de syntaxe, mais, pour moi je ne vois pas où est mon erreur...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
compte = Nz(compte.Column(0), "")
        Initiale = Nz(Initiale.Column(1), "")
        groupe = Nz(groupe.Column(1), "")
        Service = Nz(Service.Column(1), "")
        fournisseur = Nz(fournisseur.Column(1), "")
        societe = Nz(societe.Column(1), "")
        enseigne = Nz(enseigne.Column(1), "")
        etablissement = Nz(etablissement.Column(1), "")
        imputation = Nz(lst_imputation.Column(1), "")
        Controleur = Nz(lst_controleur.Column(1), "")
        Signataire1 = Nz(lst_signataire1.Column(1), "")
         Signataire2 = Nz(lst_signataire2.Column(1), "")
          Signataire3 = Nz(lst_signataire3.Column(1), "")
        CurrentDb.Execute "INSERT INTO chemin_du_workflow (Nom_circuit,Service,Initiale,Plan_compte,groupe_de_plan_comptes,fournisseurs,société,enseigne,etablissement,imputation,controleur,signataire1,signataire2,signataire3) values ('" & circuit & "'," & Service & "," & Initiale & "," & compte & "," & groupe & "," & fournisseur & "," & societe & "," & enseigne & "," & etablissement & " ," & imputation & "," & Controleur & "," & Signataire1 & "," & Signataire2 & "," & Signataire3 & ")"

Merci

**Jean-Philippe André** · 28/02/2008, 09h39

hello,
attention, par exemple pour service, il me semble qu'il manque des apostrophes avant et après... idem pour les autres.
Fais attention de traiter les champs texte entre apostrophes, et si tu as des champs de type numérique, la valeur à prendre en compte dans Nz n'est plus "" mais 0.

[access 2003] erreur d'execution 3134 INSERT INTO

VBA Access

Discussions similaires

Partager

Partager