Discussion :

[Fred_rt]

Bonjour à tous,

Tout d'abord je tiens à remercier Claude Leloup pour sa base Stock.

Je l'ai donc utilisé en essayant de l'adapter à mes besoins. Je reste un débutant côté SQL mais j'ai pu modifié certaines choses.
Je bloque sur l'insertion d'un nouvel article dans la table tArticles. Cela me retourne erreur de syntaxe et malgré mes différentes tentatives, cela ne fonctionne pas.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub btValider_Click()
Dim vSQL As String
 
 
vSQL = "INSERT INTO tArticles ( Code Article ) " _
          & "SELECT " & "('" & Me.txtNwarticle & "')" & " AS Expr1; "
 
 
DoCmd.RunSQL vSQL
 
Me.txtNwarticle = Null
 
End Sub

Voici ma requête.
Elle reprend l'information du formulaire d'entrée dans le cadre "Nouvel Article" (txtNwarticle) et doit l'insérer dans la table tArticles dans le champ "Code Article".
Je joints le fichier mdb.

En vous remerciant par avance.

Cordialement,

Fred

[madefemere]

Bonjour,

Quand tu ajoutes une (ou des) valeur(s) indépendant(es) d'un table, il faut utiliser le terme VALUES et non SELECT (qui s'utilise pour les données d'une table. Tu as toujours un FROM après le SELECT).

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub btValider_Click()
Dim vSQL As String
 
vSQL = "INSERT INTO tArticles ( Code Article ) " _
          & " VALUES " & "('" & Me.txtNwarticle & "')"
 
DoCmd.RunSQL vSQL
 
Me.txtNwarticle = Null
 
End Sub

Cordialement.

[Fred_rt]

Bonjour Madefemere,

Merci de ta réactivité pour commencer.

Ok, je comprends la différence.

J'ai modifié comme tu me l'as indiqué mais malheureusement le problème persiste. J'ai toujours l'erreur de syntaxe.
J'ai ajouté d'autres requêtes d'insertion qui fonctionnent. Effectivement, elle récupère des infos d'une table pour les insérer dans une autre.

Ici, c'est juste un cadre texte dont la valeur doit être ajoutée comme une nouvelle entrée dans la table tArticles.
Le message d'erreur est :
erreur d'exécution 3134
erreur de syntaxe dans l'instruction INSERT TO.

Cordialement,

Fred

[madefemere]

Bonjour,

J'ai dû télécharger ta base pour comprendre.
Au lieu du nom de champ, tu utilises sa légende : Code Article au lieu de NomArticle dans la table tArticles.

Le code serait :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub btValider_Click()
Dim vSQL As String
 
vSQL = "INSERT INTO tArticles ( [ArticleNom] ) " _
          & " values ('" & Me.txtNwarticle & "')"
 
DoCmd.RunSQL vSQL
 
Me.txtNwarticle = Null
 
End Sub

Cordialement.

[Fred_rt]

Super,

Merci beaucoup.
Je viens d'apprendre également.

Cordialement,

Fred