Bouton Requete SQL INSERT INTO [ACCESS] - SQL/NoSQL - Programmation
MarshPosté le 27-06-2008 à 11:46:19
Bonjour à tous, j'ai actuellement une grosse base de donnée pour la gestion d'une épicerie sous access.
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: SELECT Libelle_Fournisseur FROM FOURNISSEUR;
Là pas de soucis.
Voici maintenant mon bouton Command4 avec la commande VB suivante:
Code :
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 :
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:
Message édité par harry le ravi le 27-06-2008 à 15:09:46
Marsh Posté le 27-06-2008 à 11:46:19
Bonjour à tous, j'ai actuellement une grosse base de donnée pour la gestion d'une épicerie sous access.
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:
SELECT Libelle_Fournisseur FROM FOURNISSEUR;
Là pas de soucis.
Voici maintenant mon bouton Command4 avec la commande VB suivante:
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:
La requete s'execute mais il y a un message d'avertissement:
Message édité par harry le ravi le 27-06-2008 à 15:09:46