Discussion :

[gwems]

je souhaite effectuer un insert into mais problem..

Code :

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

1
2
INSERT INTO Commande ( Nomcmd, Datecmd, Emplacement, Article, Quantitécmd )
SELECT [Formulaires]![from commande2]![var1] AS Expr1, Date() AS Expr2, [Formulaires]![from commande2]![var1] AS Expr3, [Formulaires]![from commande2]![Modifiable64] AS Expr4, "1" AS Expr5;

pas moyen et pourtant via le créateur de requette ca fonctionne

[Jean-Philippe André]

bonjour déjà

ensuite : problème peut-être, mais encore (je n'ai pas téléchargé la release 2.0 du kit boule de cristal )

plus on est explicite sur la problématique, meilleures seront les chances que des réponses arriveront vite et correspondront à ce dont tu as besoin, alors un petit effort, et tout le monde est gagnant.

nous t'écoutons donc

[little_boys]

Bonjour,

Si ta requête est exécuter dans du code, essaye comme cela

Code :

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

1
2
INSERT INTO "nom de table" ("colonne 1", "colonne 2", ...)
VALUES ("valeur 1", "valeur 2", ...)

En espérant t'avoir aider

[gwems]

Bonjour **
bon voila j ' ai crée une requete pour inséré des ligne dans une table
je test la requette ca fonctionne...
j' ai recupéré la commande SQL

Code :

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

1
2
INSERT INTO Commande ( Nomcmd, Datecmd, Emplacement, Article, Quantitécmd )
SELECT [Formulaires]![from commande2]![var1] AS Expr1, Date() AS Expr2, [Formulaires]![from commande2]![var1] AS Expr3, [Formulaires]![from commande2]![Modifiable64] AS Expr4, [Formulaires]![from commande2]![Texte74] AS Expr5;

que je place dans l' action "Private Sub Commande87_Click()"

mais y me dis " erreur de compilation , Attendu : fin d'instruction "

et il me dis exactement le meme lorsque je fais

Code :

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

INSERT INTO Commande ( Nomcmd, Datecmd, Emplacement, Article, Quantitécmd ) values ("1","2","3","4","5")

[Jean-Philippe André]

salut,
vérifie le type de tes champs.
S'il s'agit de texte, il faut bien des guillemets, mais sinon, il n'en faut pas (cas des entiers notamment)

[Kloun]

Tu peux poster TOUT le code de la sub ?

[gwems]

tous mes champs sont en texte

voici le contenu du sub ( var1 est declaré comme string en public )

Code :

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

1
2
3
Private Sub Commande87_Click()
INSERT INTO Commande ( Nomcmd, Datecmd, Emplacement, Article, Quantitécmd )SELECT [Formulaires]![from commande2]![var1] AS Expr1, Date() AS Expr2, [Formulaires]![from commande2]![var1] AS Expr3, [Formulaires]![from commande2]![Modifiable64] AS Expr4, [Formulaires]![from commande2]![Texte74] AS Expr5;
End Sub

[Kloun]

C'est ce que je pensais.
Avec ça, c'est sûr que ça peut pas fonctionner.

Code :

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

1
2
3
Private Sub Commande87_Click()
CurrentDB.execute "INSERT INTO Commande ( Nomcmd, Datecmd, Emplacement, Article, Quantitécmd) SELECT " & var1.value & ", Date() , " & var1.value & ", " &  Modifiable64.value & ", " & Texte74.value, dbfailonerror
End Sub

C'est déjà plus dans l'esprit.
Mais à mon avis, faut encore affiner.

[gwems]

okok merci deja pr ca

j ai modifier 1pe

Code :

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

1
2
3
4
5
Private Sub Commande87_Click()
MsgBox Texte74.Value
CurrentDb.Execute "INSERT INTO Commande ( Nomcmd, Datecmd, Emplacement, Article, Quantitécmd) SELECT ""Var1"",Date(),""Var1"",""Modifiable64.Value"",""Texte74"""
 
End Sub

deja y execute sans me donner d erreur mais encore un stut .....
regarde ce qu' il retourne vers ma table..........


cmt resoudre cela

[Jean-Philippe André]

et avec ceci :

Code :

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

1
2
3
4
5
Private Sub Commande87_Click()
MsgBox Texte74.Value
CurrentDb.Execute "INSERT INTO Commande ( Nomcmd, Datecmd, Emplacement, Article, Quantitécmd) VALUES ('" & Var1 & "',Date(),'" & Var1 & "','" & Modifiable64.Value & "','" & Texte74 &"')"
 
End Sub

cela fonctionne-t-il mieux ?

[6ril25]

Salut,


sans vouloir offenser ou corriger personne,

Code :

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

1
2
3
4
Private Sub Commande87_Click()
MsgBox Texte74.Value
CurrentDb.Execute "INSERT INTO Commande ( Nomcmd, Datecmd, Emplacement, Article, Quantitécmd) VALUES (""" & Var1 & """,Date(),""" & Var1 & """,""" & Modifiable64.Value & """,""" & Texte74 &""")"
End Sub

ne serait-il pas plus judicieux encore?

[Kloun]

" ou ', c'est du pareil au même.
Faudrait pas oublier de mettre des replace(Champs, "'", "''") dans le cas ou on utilise ' et faudrait pas oublier le , dbfailonerror à la fin non plus.

[gwems]

nn mais ca fonctionne sans le ", dbfailonerror"
ou alors y faut le mettre quand meme??
si oui ou le mettre j ai essayer ceci mais ca n est pas correct

Code :

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

CurrentDb.Execute "INSERT INTO Commande ( Nomcmd, Datecmd, Emplacement, Article, Quantitécmd) VALUES (""" & Var1 & """,Date(),""" & Var1 & """,""" & Modifiable64.Value & """,""" & Texte74 & """), dbfailonerror"

[Kloun]

Non, ça ne fonctionne pas sans le dbFailOnError : ça s'exécute, mais ça ne renvoie pas de message d'erreur en cas de plantage, ce qui est le cas ici.

[Jean-Philippe André]

salut,
j'en profite pour te donner la page de la qui donne des infos sur l'utilisation du SQL sous VBA :
http://access.developpez.com/faq/?page=SQL
et plus largement la manipulation de données avec DAO (article très complet de Tofalu)
http://warin.developpez.com/access/dao/

[gwems]

j capte pas j ai essayer de faire le meme pour une autre table mais la ca ne fonctionne pas il me dis erreur de syntaxe ds le Insert Into

Code :

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

CurrentDb.Execute "INSERT INTO Sortie ( Nomsortie, Datesortie, N°chantier, Article sorti, Quantitésorti) VALUES (""" & Val1 & """,Date(),""" & Val2 & """,""" & Modifiable64 & """,""" & Texte74 & """)"

et je comprend pas vrmt cmt fonctionne le "dbfailonerror"
j ai regarder ds les liens que vs m avez donner mais j ai pas vu qqch qui pourrais m aider....

[Jean-Philippe André]

salut,
les noms de champs avec des espaces doivent être mis entre crochets :

Code :

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

CurrentDb.Execute "INSERT INTO Sortie ( Nomsortie, Datesortie, N°chantier, [Article sorti], Quantitésorti) VALUES (""" & Val1 & """,Date(),""" & Val2 & """,""" & Modifiable64 & """,""" & Texte74 & """)"