Discussion :

[Matthieug1]

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 :

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

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

[Jean-Philippe André]

Salut,

il est possible d'insérer plusieurs champs directement

tu passes donc de ceci

Code :

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

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 :

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

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

[Matthieug1]

Ha oui, effectivement c'était tout simple !

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

Merci beaucoup pour ta réponse.

Cordialement,

Matthieu