Discussion :

[Ruimateus]

Bonjour,

Voicici la table T_Produits ci-dessous:
J'aicréé une requête pour actualiser le stock après vente d'un produit quelconque.

Voici la requête:
Update T_Produits set T_Produits.Stock=T_Produits.Stock-Qte;
En l'exécutant j'ai une boîtete de dialogue demandant d'introduire la Qté.

Mais, cette requête actualise le Stock pour tous les produits au même moment.

Que pourrai-je faire pour que l'actualisation se fasse par prouit ?
C.à.d. une boîtete de dialogue demandant d'introduire premièrement la Description ensuite la Qté pour n'actualiser que le produit dont j'ai introduit la Description et la Qté.

ProdID Description Stock
4 Riz 43
5 Sel 43
6 sucre 43
7 Huiole 43
8 Savon 43
9 Tomate -7
10 Sardine -7

Merci Rui Mateus

[toumack]

Bonjour,
Avec Microsoft Access, tu peux créer une nouvelle base de données "Les comptoirs". Cette base de données garde les inventaires à jour automatiquement autant pour les achats que pour les ventes.
Il suffit d'importer les fichiers requis ainsi que quelques modules dans ton application et le tour est joué, si tu as besoin de plus d'informations, n'hésite pas à me contacter

Claude
(toumack)

[Ruimateus]

Oui, Claude comment je peux proceder à tes suggestions.

J'attends tes informations.

Ruimateus

[Invité]

Bonjour

La question revient souvent, on ne doit pas actualiser des stocks.

Une bonne conception sur un logiciel de gestion de stock est de stocker des entrées et des sorties, le reste est toujours calculé par une requête.

Philippe

[Ruimateus]

Bonjour à tous,

Merci pour vos orientations grâce aux quelles j'ai pu aboutir à la solution de la question d'actualisation Automatique de Stock.

Voici la solution.

Je fais normalement les entrées et les sorties dans les tables T_Réceptions et T_Ventes ensuite la table T_Produits avec les champs(ID, Description et Stock) sera automatiquement actualisée par les requêtes
MAJ_Movements_Stock ci-dessous:
En exécutant ces requêtes tu auras une boîte de dialoge te demandant d'introduire la Qté et la Description(nom du produit) aprèstout tu entre dans la table T_Produits pour constater la mise à jour(MAJ).

Code :

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

1
2
3
4
5
UPDATE T_Produits SET T_Produits.Stock = [Stock]+Qte
WHERE Description=[introduisez la Description]; 
 
UPDATE T_Produits SET T_Produits.Stock = [Stock]-Qte
WHERE Description=[introduisez la Description];

Pour faciliter l'utilisateur j'un formulaire avec deux commandes(entrées et sorties) lié à ces requêtes et l'utilisateur ne fait que cliquer sur les boutons pour faire la MAJ

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
Option Compare Database
Private Sub ventes_Click()
On Error GoTo Err_ventes_Click
 
    Dim stDocName As String
 
    stDocName = "MAJ_Stock_Reception"
    DoCmd.OpenQuery stDocName, acNormal, acEdit
 
Exit_ventes_Click:
    Exit Sub
 
Err_ventes_Click:
    MsgBox Err.Description
    Resume Exit_ventes_Click
 
End Sub
 
Private Sub Form_AfterUpdate()
SELECTINTO "MAJ_Stock_Reception", T_Ventes.Qte
Set T_Produits.Stock = T_Produits.Stock - T_Ventes.Qte
 
End Sub
 
Private Sub RECEPTIONS_Click()
On Error GoTo Err_RECEPTIONS_Click
 
    Dim stDocName As String
 
    stDocName = "MAJ_Stock_Reception"
    DoCmd.OpenQuery stDocName, acNormal, acEdit
 
Exit_RECEPTIONS_Click:
    Exit Sub
 
Err_RECEPTIONS_Click:
    MsgBox Err.Description
    Resume Exit_RECEPTIONS_Click
 
End Sub
Private Sub SORTIES_Click()
On Error GoTo Err_SORTIES_Click
 
    Dim stDocName As String
 
    stDocName = "MAJ_Stock_Ventes"
    DoCmd.OpenQuery stDocName, acNormal, acEdit
 
Exit_SORTIES_Click:
    Exit Sub
 
Err_SORTIES_Click:
    MsgBox Err.Description
    Resume Exit_SORTIES_Click
 
End Sub
Private Sub FERMER_Click()
On Error GoTo Err_FERMER_Click
 
 
    DoCmd.Close
 
Exit_FERMER_Click:
    Exit Sub
 
Err_FERMER_Click:
    MsgBox Err.Description
    Resume Exit_FERMER_Click
 
End Sub

Bravo!

Ruimateus