Bonjour,
J'ai créé un formulaire qui permet de saisir la quantité d'un produit à partir de sa référence et qui met à jour le champ (qtemaj) en fonction du type de dépôt sélectionné.
Le type de dépôt comprend :
- dépôt pour partenaire
- retour sur dépôt
Pour cela , j'ai tenté d'écrire le code ci-dessous qui marche à moitié:
Ce que je voudrais c'est qu'à la sélection de "Dépôt pour partenaire" par exemple , la quantité ajouté (qted) soit extraite de celle en stock (qtstock), dans le cas contraire qu'elle soit juste ajoutée.
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 Dim stock As Database Dim som As Integer: Dim depot As String depot = "Dépôt pour partenaire" som = 0 If (typdepot <> "") Then If (typdepot <> depot) Then som = Int(qtstock.Value) + Int(qted.Value) Else som = Int(qtstock.Value) - Int(qted.Value) End If qtemaj.Value = som End If
Le problème ici c'est que dans les deux cas , il y a toujours ajout. c.à.d que le champ (qtemaj) reçoit toujours la quantité ajouté plus celle en stock.
Quelqu'un pourrait-il m'aider SVP !
Merci d'avance.
Partager