[ACCESS] Bouton Requete SQL INSERT INTO

Bonjour à tous, j'ai actuellement une grosse base de donnée pour la gestion d'une épicerie sous access que je dois rendre Lundi et j'aimerai qu'elle soit nickel pour ma présentation au Prof.

J'ai crée plusieurs formulaires et là j'aimerai créer un formulaire de saisie avec execution de la saisie en appuyant sur un bouton.

Voici ma table en MLDR : CATALOGUE (Ref_Catalogue, #N_Fournisseur, Libelle_Catalogue, Date_Catalogue)

Mon Formulaire "A_Catalogue" contien 3 champs de saisie pour la ref, le libellé et la date et une liste déroulante représentant la requete SQL suivante:

Code:

---

SELECT Libelle_Fournisseur FROM FOURNISSEUR;

---

Là pas de soucis.

Voici maintenant mon bouton Command4 avec la commande VB suivante:



Code :

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub Command4_Click() var1 = Forms!A_Catalogue!Ref_Catalogue var2 = (DoCmd.RunSQL("SELECT FOURNISSEUR.N_Fournisseur FROM FOURNISSEUR WHERE FOURNISSEUR.Libelle_Fournisseur=forms!A_Catalogue!Libelle_Fournisseur;" )) var3 = Forms!A_Catalogue!Libelle_Catalogue var4 = Forms!A_Catalogue!Date_Catalogue DoCmd.RunSQL ("INSERT INTO CATALOGUE VALUES ('var1','var2','var3','var3');" ) DoCmd.Save DoCmd.Close DoCmd.OpenForm "Gestion_Catalogue" End Sub

---

Je suis novice en vba et je ne sais pas si mes déclarations de variables ni mes fonctions sont bonnes.

Lorsque j'appuis sur le bouton, il me donne le mésage d'érreur suivant:
Compile Error: Expected Fonction or Variable

Et le .RunSQL de var2 est en surbrillance.

Pouvez vous l'aider à affiner mon code?

Merci d'avance

EDIT
---------------
J'ai modifié la commande, je pense que je ne suis pas très loin, je ne pense pas avoir besoin de déclarer mes variables, je pense que inserer les saisies de chaques champs dans la requete insert est suffisant mais je m'y prend peut etre mal car j'ai un message d'erreur.

Voici ma commande:



Code :

Code:

---

1 2 3 4 5 6

Private Sub Command4_Click() DoCmd.RunSQL "INSERT INTO CATALOGUE (Ref_Catalogue,N_Fournisseur,Libelle_Catalogue,Date_Catalogue) VALUES ('& Forms!A_Catalogue!Ref_Catalogue &','(SELECT FOURNISSEUR.N_Fournisseur FROM FOURNISSEUR WHERE FOURNISSEUR.Libelle_Fournisseur='& Forms!A_Catalogue!Libelle_Fournisseur &')','& Forms!A_Catalogue!Libelle_Catalogue &','& Forms!A_Catalogue!Date_Catalogue &');" DoCmd.Save DoCmd.Close DoCmd.OpenForm "Gestion_Catalogue" End Sub

---

La requete s'execute mais il y a un message d'avertissement:

http://hostimg.free.fr/files/ga8funtitled.jpg

Bonjour et bienvenue Harry ,
voici le code que tu devrais associer à ton bouton:

Code:

---

1 2 3 4 5 6 7

Dim sql As String sql = "INSERT INTO Catalogue ( Ref_Catalogue, [#N_Fournisseur], Libelle_Catalogue, Date_Catalogue ) SELECT """ _ & Me.Ref_Catalogue & """ AS Expr1, """ _ & Me.FOURNISSEUR & """ AS Expr2, """ _ & Me.Libelle_Catalogue & """ AS Expr3, """ _ & Me.Date_catalogue & """ AS Expr4;" DoCmd.RunSQL (sql)

---

Vérifie l'orthographe des noms de contrôles de ton formulaire (ici dans le code "Me.xxx") , j'ai dû les deviner en lisant ta tentative de code.
Reviens si problème.

Merci pour la réponce c'est très gentil.

J'ai un peu du mal à comprendre ton explication:

Je déclare une variable sql qui va contenir mon insert, je dois également mettre VALUES (ce que tu as pas mis)?

De plus je ne comprend pas les lignes

Code:

---

& Me.Contrôle & """ AS Expr1"""

---

C'est vraiment le coeur de ma base de donnée, sans ca je ne peux pas faire de saisie dynamique .

Merci d'avance:mrgreen:

Tu as d'abord donné ceci

Citation:

---

Private Sub Command4_Click()
DoCmd.RunSQL "INSERT INTO CATALOGUE (Ref_Catalogue,N_Fournisseur,Libelle_Catalogue,Date_Catalogue) VALUES ('& Forms!A_Catalogue!Ref_Catalogue &','(SELECT FOURNISSEUR.N_Fournisseur FROM FOURNISSEUR WHERE FOURNISSEUR.Libelle_Fournisseur='& Forms!A_Catalogue!Libelle_Fournisseur &')','& Forms!A_Catalogue!Libelle_Catalogue &','& Forms!A_Catalogue!Date_Catalogue &');"
DoCmd.Save
DoCmd.Close
DoCmd.OpenForm "Gestion_Catalogue"
End Sub

---

J'ai deviné que ce code était associé à l'évènement "sur clic" du bouton qui s'appelle "Command4" dans ton formulaire "A_Catalogue"

Je t'ai proposé de remplacer ce code par celui-ci :

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub Command4_Click() Dim sql As String sql = "INSERT INTO Catalogue ( Ref_Catalogue, [#N_Fournisseur], Libelle_Catalogue, Date_Catalogue ) SELECT """ _ & Me.Ref_Catalogue & """ AS Expr1, """ _ & Me.FOURNISSEUR & """ AS Expr2, """ _ & Me.Libelle_Catalogue & """ AS Expr3, """ _ & Me.Date_catalogue & """ AS Expr4;" DoCmd.RunSQL (sql) end sub

---

Dans ce code, on y construit l'équivalent d'une requête qui, en français dirait ceci :
INSERT INTO Catalogue ( Ref_Catalogue
Dans la table "Catalogue", ajouter un enregistrement ...
INSERT INTO Catalogue( Ref_Catalogue
... avec dans le champ "Ref_catalogue" ...
SELECT """ & Me.Ref_Catalogue & """ AS Expr1, """
... le contenu du contrôle qui s'appelle "Ref_Catalogue" ...
SELECT """ & Me.Ref_Catalogue & """ AS Expr1, """
... du formulaire dans lequel on se trouve ...

Et ainsi de suite :
dans le champ de la table "#N_Fournisseur", le contenu du contrôle "FOURNISSEUR" ....

J'attirais ensuite ton attention sur le fait que tu devais bien vérifier l'orthographe des noms de contrôles que j'ai indiqué.

Aller, bonne chance.

J'ai lu d'autres posts résolus il y a peut sur le même modèle que mon soucis et j'ai trouvé la solution sa marche à merveille!

J'ai eut du mal à comprendre surtout que dans mon formulaire A_Catalogue, je ne choisisait pas le N_Fournisseur mais le Libelle_Fournisseur dans une liste déroulante, tu va pouvoir le voir dans mon code.

Je te montre mon code:

Code:

---

1 2 3 4 5 6 7 8

Private Sub Command4_Click() Dim sql As String sql = "INSERT INTO Catalogue ( Ref_Catalogue, N_Fournisseur, Libelle_Catalogue, Date_Catalogue ) SELECT """ & Me.Ref_Catalogue & """ AS Expr1, FOURNISSEUR.N_Fournisseur,""" & Me.Libelle_Catalogue & """ AS Expr3,""" & Me.Date_Catalogue & """ AS Expr4 FROM FOURNISSEUR WHERE (((FOURNISSEUR.Libelle_Fournisseur)=forms.[A_Catalogue].[Libelle_Fournisseur]));" DoCmd.RunSQL (sql) DoCmd.Save DoCmd.Close DoCmd.OpenForm "Gestion_Catalogue" End Sub

---

En tout cas, merci beaucoup car je me suis embété toute l'après midi d'hier pour trouver ce code, maintenant je vais pouvoir l'appliquer à tout mes autres formulaires de saisie, je reviendrai peut etre vous voir pour un formulaire d'appercu avec tri mais on verra bien.

Merci encore.

J'en suis ravi, Harry !
Au plaisir

Décidément j'ai du mal!

J'ai pu faire un deuxième formulaire de saisie sans aucun soucis mais maintenant je veux en faire un troisème légèrement plus compliqué en saisissant des informations provenant de 3 listes réroulantes de 3 tables différentes et deux masques de saisie et un bouton ajouter.


Listes réroulantes:
Libelle_Produit
Libelle_Catalogue
Libelle_Conditionnement

Masques de saisie:
Reference
Prix_Unitaire_Reference

Voici mon code de bouton Command4

Code:

---

1 2 3 4 5 6 7 8

Private Sub Command4_Click() Dim sql As String sql = "INSERT INTO REFERENCE ( Reference, N_Produit, N_Catalogue, N_Conditionnement, Prix_Unitaire_Reference ) SELECT " & Me.Reference & " AS Expr1, N_Produit, N_Catalogue, N_Conditionnement," & Me.Prix_Unitaire_Reference & " AS Expr2 FROM CATALOGUE, CONDITIONNEMENT, PRODUIT WHERE (((PRODUIT.Libelle_Produit)=[forms].[A_Reference].[Libelle_Produit]) AND ((CATALOGUE.Libelle_Catalogue)=[forms].[A_Reference].[Libelle_Catalogue]) AND ((CONDITIONNEMENT.Libelle_Conditionnement)=[forms].[A_Reference].[Libelle_Conditionnement]));" DoCmd.RunSQL (sql) DoCmd.Save DoCmd.Close DoCmd.OpenForm "Gestion_Reference" End Sub

---

Voici le méssage d'erreur
http://img246.imageshack.us/img246/2...nstitrekm6.jpg


J'ai testé la requete sur les requetes Access en copiant le code SQL et sa marche bien pour mes trois liste déroulantes mais on dirait qu'il y a un soucis pour les masques de saisie.

Merci encore une fois d'avance.

Le message te dit simplement qu'il ne veut pas ajouter ce que tu lui demandes parce que, dans la table, il y a déjà un enregistrement avec la même clé.

d'autre part à quoi sert ceci ?

Citation:

---

DoCmd.Save
DoCmd.Close

---

DoCmd.Save permet de sauvegarder l'objet en cours (je le fait quand je fait des saisies simples mais je l'ai appliqué à chaque bouton de changement de formulaire)

DoCmd.Close permet de fermer le formulaire en cours (sa donne l'illusion de passer d'un formulaire à un autre directement mais en fait je ferme l'un pour passer à l'autre)


Par contre je ne pense pas avoir de contrainte de clé car je n'ai aucun enregistrement pour l'instant dans ma table c'est sa qui m'étonne....

Si vous avez une autre solution je suis prenneur