Discussion :

[korotimi]

salut a tous
mon problème est le suivant: je gère des produits et à chaque livraison la quantité en stock doit changer

Code :

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

1
2
3
4
5
6
7
8
9
Dim Gest_Produit As Database
 Dim produit As Recordset
 Dim commande As Recordset
 Dim livraison As Recordset
 Set Gest_Produit = OpenDatabase("c:\Programmes\Gest_Produit.mdb")
 Set produit = Gest_Produit.OpenRecordset("produit")
 Set commande = Gest_Produit.OpenRecordset("commande")
 Set livraison = Gest_Produit.OpenRecordset("livraison")
 qteStock.Text = Val(produit![qté_stock]) + Val(qtelivree.Text)

mais quand j'éxécute c'est la quantité livrée qui est prise en compte, c'est comme si la quantité en stock est nulle et en additionnant la quantité en stock est égale a la quantité livrée.
merci de m'aider

[ProgElecT]

salut a tous
...............
mais quand j'éxécute c'est la quantité livrée qui est prise en compte, c'est comme si la quantité en stock est nulle et en additionnant la quantité en stock est égale a la quantité livrée.
merci de m'aider

pour le vérifier

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim Gest_Produit As Database
 Dim produit As Recordset
 Dim commande As Recordset
 Dim livraison As Recordset
 Set Gest_Produit = OpenDatabase("c:\Programmes\Gest_Produit.mdb")
 Set produit = Gest_Produit.OpenRecordset("produit")
 Set commande = Gest_Produit.OpenRecordset("commande")
 Set livraison = Gest_Produit.OpenRecordset("livraison")
 
 '************ juste pour verifier le contenu du champ qté_stock ********
 MsgBox "qté_stock = " & produit![qté_stock] '*****************
 '************************************************************
 
 qteStock.Text = Val(produit![qté_stock]) + Val(qtelivree.Text)

Si ton champ qté_stock est un numérique pas besoin du Val()

Code :

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

qteStock.Text = produit![qté_stock] + Val(qtelivree.Text)

[korotimi]

bonjour
en procédant comme vous le suggerez la qtéstock s'accumule indépendamment du produit; pour ce faire j'ai procédé ainsi

Code :

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

1
2
qtéstock.text= produit![qtéstock]
 Stock.Text = Val(qtéstock.Text) + Val(qteLivree.Text)

et sa marche merci encore