Oups petite erreur dans mon code:
If Dlookup ("Champ_Quantité","Table_Article","Champ_Article='" & Zonederoulante & "'") < Zonedetexte then
Msgbox "Commande impossible"
Exit sub
End If
|
inversion du if et dlookup
BadclowN
-------------------------------
Réponse au message :
-------------------------------
> 1. A l'évenement Afterupdate de la liste déroulante tu fait un dlookup avec comme critère L'article.
>
> 2. Tu a surment un bouton de confirmation, tu fais un test pour savoir si il a choisi plus d'article que en stock, un dlookup aussi. (très pratique cet petites fonction :) )
>
>
>
> Dlookup If ("Champ_Quantité","Table_Article","Champ_Article='" & Zonederoulante & "'") < Zonedetexte then
> Msgbox "Commande impossible"
> Exit sub
> End If
> |
>
BadclowN
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> > salut a tous
> > j'ai vraiment besoin d'aide pour finir mon application sous vba access :)
> > voilà les problemes qui me restent (l'appli sert à gérer des stocks d'articles)
> >
> > 1°) Dans le formulaire "PasserUneCommande", il y a une liste déroulante "Article" (qui prend sa source dans la table "Articles") et un champ de texte "Prix" (qui prend sa source sur la table "Articles" aussi). Le champ "Prix" doit se remplir quand on choisit un article dans la liste "Article". Je crois qu'il faut utiliser requery mais j'en sais pas +...
> >
> > 2°) les articles sont là pour être fournis aux employés. Quand un employé vient chercher du matériel on remplit le formulaire "AjouterUneSortieD'Article" : celui-ci contient (entre autre) une liste déroulante permettant de choisir l'article, et une zone de saisie où l'on indique combien on en prend : il faut que ce soit impossible de prendre plus d'articles qu'il y'en a dans le stock (sinon stock négatif = pas possible). peut être une requête de mise a jour ? du sql ? je ne sais pas...
> >
> > si vous pouvez m'aider, merci d'avance
>