Discussion :

[Logisticien]

bonjour;

la première partie du code ci dessous fonctionne bien par contre sur la deuxième partie, le message d'erreur s'affiche même si le valeur du champs "Quantité_T" est inferieur à la quantité du champs "SS_T".

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
Private Sub Quantité_T_BeforeUpdate(Cancel As Integer)
If Not IsNumeric(Me.Quantité_T) Then
    ' Si la valeur saisie est numérique,
    ' on affiche donc un message d'avertissement
    MsgBox "Vous devez taper une valeur numérique !", _
      vbExclamation
 
    ' Annuler la suite des opérations
    Cancel = True
      Exit Sub
  ElseIf Me.Quantité_T > Me.SS_T Then
    ' Si la valeur saisie est supérieure à la valeur du champs SS_T,
    ' on affiche également un message d'avertissement
    MsgBox "votre stock est insuffisant pour valider cette demande !", _
      vbExclamation
 
    ' Annuler la suite des opérations
    Cancel = True
      Exit Sub
  End If

[Invité]

Bonjour

D'abord quel est le message d'erreur ?

De plus, vu que tu fais des Exit Sub utilise des If simple plutôt que des IfElse.

Tes 2 données sont bien de type de numériques ? Fait une conversion avant avec les fonctions de Conversions de type CLng si tu as des nombres entiers.

Philippe

[Invité]

Bonjour,

Code :

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

 ElseIf val("" & Me.Quantité_T) > val("" & Me.SS_T) Then

vba à horreur de ce qui lui parait nulle!

Code :

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

debug.print IsNumeric(vbNull)

[Logisticien]

l'erreur le message "votre stock est insuffisant pour valider cette demande " s'affiche même si la valeur de champs "SS_T" = 0

[Invité]

l'erreur le message "votre stock est insuffisant pour valider cette demande " s'affiche même si la valeur de champs "SS_T" = 0

si "SS_T" = 0 et que tu en demande 1250 ça ne te parais pas justifié si tu regarde l'équation de teste? " Me.Quantité_T > Me.SS_T"

[Logisticien]

c'est résolu

Aujourd'hui, 11h53
rdurupt

Bonjour,


Code : Sélectionner tout - Visualiser dans une fenêtre à part
ElseIf val("" & Me.Quantité_T) > val("" & Me.SS_T) Thenvba à horreur de ce qui lui parait nulle!



Code : Sélectionner tout - Visualiser dans une fenêtre à part
debug.print IsNumeric(vbNull)