Discussion :

[Alesli]

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é:

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

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.

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.

[loufab]

Bonjour,

Le point d'arrêt c'est F9 sur la ligne, sur les déclarations ça ne fonctionne pas.

Shift-F8 pour faire du pas-à-pas.

Vérifier où il passe et vérifier avec Variable Espion ou dans la fenêtre d'exécution un :

Code :

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

1
2
 
? nomvariable

Le débogage c'est obligatoire dans certain cas.

Cordialement,

[Alesli]

Bonjour,

Merci bien de votre aide, j'ai retrouvé l'erreur.

En fait, je devais déclarer "depot" en tant que Integer et lui attribuer l'une des deux valeurs de typdepot qui sont des clés primaires de type NumérioAuto, car typdepot est une liste déroulante qui alimente une autre table.

Merci beaucoup !