Discussion :

[fazpedro]

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 !

Invite : Valeur_Mois Entrer une valeur de paramètre

Mon code :

Code :

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

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

[vttman]

je propose

Code :

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

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

[Jean-Philippe André]

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

Code :

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

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...

[fazpedro]

Merci Jean-Philippe André

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

Code corrigé :

Code :

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

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"