Enregistrer donner sur une seule ligne dans une table

Bonjour à tous,

Je viens de bricoler une base de donnée toute simple pour avoir le stock de mon magasin.
J'ai donc une table "Articles" dans laquelle j'ajoute ou je retire une certaine quantité de tel ou tel article.

J'ai décidé d'avoir une seconde table pour avoir un historique des entrées / sorties que j'enregistre dans une table "Mouvements".
J'ai déjà réussi à faire ce que je souhaitais... Enfin presque !

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

Set base_mouv = Application.CurrentDb Set base_mouv2 = Application.CurrentDb Set base_mouv3 = Application.CurrentDb Set base_mouv4 = Application.CurrentDb Set base_mouv5 = Application.CurrentDb   requete_mouv = "INSERT INTO Mouvements (Date_mouv) SELECT " & date_du_jour.Value & " " requete_mouv2 = "INSERT INTO Mouvements (Code_Article_mouv) SELECT '" & Liste_ref.Value & "" requete_mouv3 = "INSERT INTO Mouvements (Désignation_mouv) SELECT '" & Des.Value & "'" requete_mouv4 = "INSERT INTO Mouvements (quantité_mouv) SELECT '" & qte_maj.Value & "'" requete_mouv5 = "INSERT INTO Mouvements (Etat_mouv) SELECT '" & Etiquette_mouv.Value & "'"   base_mouv.Execute (requete_mouv) base_mouv2.Execute (requete_mouv2) base_mouv3.Execute (requete_mouv3) base_mouv4.Execute (requete_mouv4) base_mouv5.Execute (requete_mouv5)   base_mouv.Close base_mouv2.Close base_mouv3.Close base_mouv4.Close base_mouv5.Close   Set base_mouv = Nothing Set base_mouv2 = Nothing Set base_mouv3 = Nothing Set base_mouv4 = Nothing Set base_mouv5 = Nothing

---

Grâce à ce bricolage, j'obtiens toutes les données que je veux dans ma table (code article, désignation, quantité, etc...). Toutefois, l'enregistrement se fait en plusieurs lignes dans ma table.

N°	Date_mouv	Code_Article_mouv	Désignation_mouv	quantité_mouv	Etat_mouv
83	17/01/2019	3-002-001-RC5
84	17/01/2019		IMPRIMANTE
85	17/01/2019			5
86	17/01/2019				Entrée

Auriez vous une idée pour mettre ces données dans les bonnes colonnes sur une seule ligne?

Merci d’avance.

Matthieu

PS: Cette base n'est que temporaire je n'ai pas envie de développer un outil ultra-performant. Juste pratique :D

Salut,

il est possible d'insérer plusieurs champs directement :)

tu passes donc de ceci

Code:

---

1 2 3 4 5

requete_mouv = "INSERT INTO Mouvements (Date_mouv) SELECT " & date_du_jour.Value & " " requete_mouv2 = "INSERT INTO Mouvements (Code_Article_mouv) SELECT '" & Liste_ref.Value & "" requete_mouv3 = "INSERT INTO Mouvements (Désignation_mouv) SELECT '" & Des.Value & "'" requete_mouv4 = "INSERT INTO Mouvements (quantité_mouv) SELECT '" & qte_maj.Value & "'" requete_mouv5 = "INSERT INTO Mouvements (Etat_mouv) SELECT '" & Etiquette_mouv.Value & "'"

---

à cela

Code:

---

requete_mouv_unique = "INSERT INTO Mouvements (Date_mouv,Code_Article_mouv,Désignation_mouv,quantité_mouv, Etat_mouv ) VALUES (" & date_du_jour.Value & ", " & Liste_ref.Value & ",'" & Des.Value & "','" & qte_maj.Value & "','" & Etiquette_mouv.Value & "')"

---

reste que les formats des données et les types de tes champs sont probablement à revoir (champ date ? champ numérique ? etc.)

Ha oui, effectivement c'était tout simple !

Pas de soucis avec les champs, et ça simplifie énormément mes 15000 lignes de code ! :D

Merci beaucoup pour ta réponse.

Cordialement,

Matthieu