Message conditionnel

Question

Bonjour, 

Bonjour,

Voila le problème: j'ai créé une base de donnée en access 2003 pour la gestion alimentaire, en un mot la gestion des ventes, commandes, et du stock. J'aimerai que lors de la vente, comparer le stock du produit et la quantité vendu.
Si la quantité vendue est superieur au stock , avoir un message d'avertissement pour prevenir le vendeur que la demande est supérieure à l'offre.Les champs concerné sont:QtéVendu et stock.
Mes connaissances en vba sont faible
La procedure devrait etre du type:
Dim QteVendu As integer
Dim Stock As Integer
If QteVendu >stock then
MsgBox "La quantité demandé est supperieur au stock"
end if
Merci de corriger la shyntaxe et l'aide que vous m'apportez


Configuration: Windows XP / Firefox 36.0

blux · Answer

Salut,

J'aimerai que lors de la vente, comparer le stock du produit et la quantité vendu.  
Comment se matérialise la vente dans ta base ? Quelles sont les actions que tu fais ? C'est la clé du problème...

benol3 · Answer

Salut,

Mets ce code dans l'éditeur vba de ton formulaire :

sub QteVendu_afterupdate()

If QteVendu >stock then 
MsgBox "La quantité demandé est supérieur au stock" 
end if

end sub

En supposant que le champs où tu saisis la quantité vendue se nomme QteVendu et que ta valeur de stock à comparer se trouve dans le champs nommé Stock.

Ce code s'éxécute à chaque fois que l'on saisit une valeur dans QteVendu

castours · Answer

Merci
Cela fonctionne
Dans ce cas on n'a pas besoin de declarer de variable avec dim

Message conditionnel

3 réponses

Discussions similaires

Newsletters