Insertion de variable + Valeur fixe + Données

Bonjour,

je cherche à insérer dans une table plusieurs données dont :
- une valeur variable issue d'une autre table (mois choisi précédemment) > KO car invite non souhaité !
- une valeur fixe > OK
- des données d'une autre table > OK

Mon souci est qu'il apparaît une invite de choix du mois !

Citation:

---

Invite : Valeur_Mois Entrer une valeur de paramètre

---

Mon code :

Code:

---

1 2 3

Valeur_Mois = DLookup("[Votre_Mois]", "Votre_Mois") ' Récupère la valeur du mois choisi MsgBox "Mois choisi : !" & Chr(10) & Valeur_Mois, vbInformation ' Ok on récupère bien la valeur 12 DoCmd.RunSQL "INSERT INTO DETAILS_CDE (Mois,Origine,Article,Quantité,Prix) SELECT Valeur_Mois,'Commandes',Article,Quantité,Prix FROM Table_COMMANDES"

---

Merci d'avance

je propose

Code:

---

DoCmd.RunSQL "INSERT INTO DETAILS_CDE (Mois,Origine,Article,Quantité,Prix) SELECT '" & Valeur_Mois & "','Commandes',Article,Quantité,Prix FROM Table_COMMANDES"

---

Salut,
attention, si ton champs mois est de type numerique, pas d'apostrophes

Code:

---

DoCmd.RunSQL "INSERT INTO DETAILS_CDE (Mois,Origine,Article,Quantité,Prix) SELECT " & Valeur_Mois & ",'Commandes',Article,Quantité,Prix FROM Table_COMMANDES"

---

Voir egalement si tu veux filtrer des enregistrement dans ta table commandes...

Merci Jean-Philippe André :mrgreen:

je suis une buse :oops: oui c'est bien ça qui coincait !

Code corrigé :

Code:

---

1 2 3

Valeur_Mois = DLookup("[Votre_Mois]", "Votre_Mois") ' Récupère la valeur du mois choisi MsgBox "Mois choisi : !" & Chr(10) & Valeur_Mois, vbInformation ' Ok on récupère bien la valeur 12 DoCmd.RunSQL "INSERT INTO DETAILS_CDE (Mois,Origine,Article,Quantité,Prix) SELECT " & Valeur_Mois & ",'Commandes',Article,Quantité,Prix FROM Table_COMMANDES"

---