Discussion :

[kinkon]

*Bonjour,*

Je dispose d'un formulaire de Vente comprenant 6 colonnes mais mon problème se situe au niveau de colonnes qui sont QuantiteStock (avec les valeurs enregistrées) et QuantiteDemande
et je voudrais qu'en on entre une valeur dans le champ QuantiteDemande quelle soit valide si la valeur entrée est inférieur à la valeur de QuantiteStock
Sinon qu'une boite de dialogue s'affiche 'La quantité demande est supérieur à la quantité en Stock'
Merci d'avance

[curt]

Bonsoir kinkon,

la Mise en Forme Conditionelle (MFC) devrait convenir. (voir Format / MFC)

Curt

[kinkon]

OK mais voilà j'ai réussi à faire quelques chose avec ce bout de code de VB

Code :

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

1
2
3
4
5
6
Private Sub QuantiteDemande_BeforeUpdate(Cancel As Integer)
    If QuantiteDemande > QuantiteStock Then
    Beep
        MsgBox "La quantité demandée est supérieur à la quantité disponible"
    End If
End Sub

Tout se passe bien le bip sonore et la boîte de dialogue mais le curseur passe dans le champs suivant et je veux qu'il reste dans le champ QuantiteDemande tant que la condition n'est pas respecté et suis planté!

[micniv]

Bonsoir,

Alors il faut simplement ajouter :

Code :

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

1
2
3
4
5
6
7
8
Private Sub QuantiteDemande_BeforeUpdate(Cancel As Integer)
    If QuantiteDemande > QuantiteStock Then
    Beep
        MsgBox "La quantité demandée est supérieur à la quantité disponible"
Cancel=True
    End If
End Sub

[kinkon]

Oh la la il fallait juste ça! Thanks you t'es le meilleur