Discussion :

[Ruimateus]

* Bonjour *

J'ai créé une base de données access, j'ai trois tables: T_produits(Stock), T_Vente(Qté), T_Réceptions(Qté):

Je voudrais que le Champs "Stock" dans la table T_Produits soit automatiquement actualisé.

Lorsque(Chaque fois) que le produit est vendu dans la table T_Ventes il y aura réduction(de la Qté vendue) du stock dans la table t_Produits.

Lorsque(Chaque fois) que le produit est réceptonné dans la table T_Ventes il y aura augumentation(de la Qté réçue) du stock dans la table T_Produits.

Pouriez-vous me dire comment faire pour réussir cet automatisme ?

Rui Mateus

[Invité]

Bonjour
Et pourquoi vouloir stocker une donnée changeant en permanence.
Une requête au moment opportun ne suffit pas?
La conception des tables n'est peut être pas judicieuse. IL y a pas mal de sujets sur ce thème sur le forum.

Sinon il faut passer par les requêtes de mise à jour.

[f-leb]

Bonjour,

on peut commencer par écrire une procédure de mise à jour du stock avec une requête SQL UPDATE, du genre :

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
 
Public Sub MAJStock(idProduit As long, qtte as integer)
Dim strSQL as String
On Error Goto Err_MAJStock
 
strSQL = "UPDATE T_Produit SET stock=stock+" & qtte
strSQL = strSQL & " WHERE idProduit=" & idProduit & ";" 
 
  currentdb.execute strSQL, dbFailOnError
 
exit sub
 
Err_MAJStock:
  MsgBox Err.description, vbCritical, "Erreur n°" & Err.number
End Sub

Procédure à lancer sur les bons évènements de ton formulaire (qtte<0 ou qtte>0 selon décrément/incrément du stock).

[EDIT] ...et GAYOT qui était passé par là et que je salue au passage [/EDIT]

[Ruimateus]

La table T_produits à cet éffet contient les Champs suivants: ProdID, Description(nom du produit) et Stock.
Ces champs seront enregistrés une seule fois pendant le premier inventaire.
Le champs ProdID est numéro automatique, le champs Description sera actualisé manuellement en cas de récéption d'un nouveau produit.
Après le premier inventaire le champs stock est mouvementé par les entrées et les sorties à partir des ventes et réceptions.
Les requêtte ne servirons que pour le suivi des sorties et des entrées.

NB.Si le magasinier enregistre un produit dans les tables T-Ventes et T-Réceptions et le produit ne fugure pas dans la table T_Produit il reçoit un message d'erreur.

Fabien le code est à lancer dans l'environnement VB ou dans un macros ?

pour les entées je tape le code :

Code :

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

1
2
 strSQL = "UPDATE T_Produit SET stock=stock+" & qtte
strSQL = strSQL & " WHERE idProduit=" & idProduit & ";"

Et pour les sorties fe tape lecode :

Code :

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

1
2
 strSQL = "UPDATE T_Produit SET stock=stock-" & qtte
strSQL = strSQL & " WHERE idProduit=" & idProduit & ";" ?

Merci de tes précisions pour que je les implémentes rapidement.

Ruimateus

[f-leb]

Re,

avec des parenthèses autour de qtte si tu préfères:

Code :

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

1
2
strSQL = "UPDATE T_Produit SET stock=stock + (" & qtte & ")"
strSQL = strSQL & " WHERE idProduit=" & idProduit & ";"

la procédure MAJStock peut être appelée aussi bien pour les entrées (qtte>0) et les sorties du stock (qtte<0).

La procédure est à copier/coller (adapter les noms des tables et champs) dans un module VBA (ALT+F11 puis Insertion>Module).
Pour la tester, dans la fenêtre d’exécution (CTRL+G), tu tapes par exemple:

Code :

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

Call MAJStock (1, 10)

Pour 10 entrées du produit n°1

Code :

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

Call MAJStock (1, -5)

Pour 5 sorties du produit n°1

Constater les modifications dans la table des produits.

Il faut maintenant appeler la procédure sur procédure évènementielle de ton formulaire de création des mouvements d’entrée/sortie (ou réception/vente). Tu as bien un formulaire pour ça ?

[Ruimateus]

En appliquant le code suivant:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Option Compare Database
 
strSQL = "UPDATE T_Produits SET stock=stock + (" & Qte & " ")
strSQL = strSQL & " WHERE T_Receptions.ProdID=" & T_Produits.ProdIDid & ";"
strSQL = "UPDATE T_Produits SET stock=stock - (" & Qte & ")"
strSQL = strSQL & " WHERE T_Ventes.ProdID=" & T_Produits.ProdIDid & ";"
 
Sub Actualiserstock()
strSQL = "UPDATE T_Produits SET stock=stock + (" & Qte & ")"
strSQL = strSQL & " WHERE T_Receptions.ProdID=" & T_Produits.ProdIDid & ";"
strSQL = "UPDATE T_Produits SET stock=stock - (" & Qte & ")"
strSQL = strSQL & " WHERE T_Ventes.ProdID=" & T_Produits.ProdIDid & ";"
 
End Sub

J'obtien le message d'erreur:

Erreur de compilation.

Attendu: fin d'instruction

Ruimateus