Discussion :

[Alesli]

Bonjour,

je voudrais ajouter un article à une facture ,

mais après exécution du code Vba le message d'erreur se trouvant sur l'imprime-écran ci-dessous s'affiche:

Je ne sais pas vraiment ce qui coince, tout semble pourtant normal. Pourriez vous m'aider svp !



Merci d'avance !

[loufab]

Bonsoir
Tu utilises ' comme séparateur de string alors qu il y a une apostrophe dans ta string. Il faut utiliser le guillemet comme séparateur.

[Alesli]

Bonsoir
Tu utilises ' comme séparateur de string alors qu il y a une apostrophe dans ta string. Il faut utiliser le guillemet comme séparateur.

Lorsque j'utilise les doubles côtes au lieu de ' il n'y a plus d'erreur mais la variable s'affiche plutôt que la valeur.

Prière regarder la capture ci-dessous:

[tee_grandbois]

bonsoir,

Lorsque j'utilise les doubles côtes au lieu de ' il n'y a plus d'erreur mais la variable s'affiche plutôt que la valeur.

probablement parce que c'est mal utilisé ...
Prière de poster le code

[hyperion13]

Salut
remplacer probablement quelque chose comme ça

Code :

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

1
2
3
"[champ]= '" & [champ] & "'"
par
"[champ]= """ & [champ] & """"

ou

Code :

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

"INSERT INTO MaTable(...) VALUES ('" & Me.Marque & "', ...)"

[Alesli]

bonsoir,

probablement parce que c'est mal utilisé ...
Prière de poster le code

Bonjour,

Voici le code à l'origine, celui qui génère l'erreur '3075':

Code :

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

1
2
3
4
5
 
Set stock = Application.CurrentDb
        var = "INSERT INTO detail_temp(refdet,nomdet,qdet,prixdet,prixtot)VALUES('" & list_ref.Value & "', '" & marque.Value & "'," & qtev.Value & "," & pu.Value & "," & tot & ")"
 
        stock.Execute var

Lorsque j'ai essayé cette combinaison en ajoutant les doubles côtes à la place des ' ' :

Code :

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

1
2
3
4
5
 
Set stock = Application.CurrentDb
        var = "INSERT INTO detail_temp(refdet,nomdet,qdet,prixdet,prixtot)VALUES('" & list_ref.Value & "', "" & marque.Value & ""," & qtev.Value & "," & pu.Value & "," & tot & ")"
 
        stock.Execute var

Il me donne le résultat que je vous ai envoyé dans la capture précédente, genre & marque.Value & .

Et les doubles côtes simplement génèrent l'erreur '3061'.

[Alesli]

Salut
remplacer probablement quelque chose comme ça

Code :

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

1
2
3
"[champ]= '" & [champ] & "'"
par
"[champ]= """ & [champ] & """"

ou

Code :

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

"INSERT INTO MaTable(...) VALUES ('" & Me.Marque & "', ...)"

Bonjour hyperion13,

J'essaie tes propositions, puis je reviens. Merci bien.

[hyperion13]

Ceci

Code :

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

1
2
3
Set stock = Application.CurrentDb
    var = "INSERT INTO detail_temp(refdet, nomdet, qdet, prixdet, prixtot) VALUES ('" & list_ref & "', """ & marque & """," & qtev & "," & pu & "," & tot & ")"
    stock.Execute var

[Alesli]

Ceci

Code :

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

1
2
3
Set stock = Application.CurrentDb
    var = "INSERT INTO detail_temp(refdet, nomdet, qdet, prixdet, prixtot) VALUES ('" & list_ref & "', """ & marque & """," & qtev & "," & pu & "," & tot & ")"
    stock.Execute var

Trop chouette , ça marche hyperion13 !

Grand merci à vous tous !