Gestion de stock en VBA

Bonjour,

afin d'achever ma base de données, j'aurais encore une petite question. Je voudrais dans un sous formulaire "détails du bordereau", avec un bouton de commande, appliquer a tous mes enregistrements la formule suivante :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Dim strLink As String strLink = SauvegarderActualiser If NbRestant <= 0 Then ACommander = Quantité AValidation = 0 Stockbel = "Indisponible" Else AValidation = NbRestant - Quantité If AValidation > 0 Then ACommander.Value = 0 Stockbel.Value = "Disponible" Else ACommander = Quantité - NbRestant AValidation = 0 Stockbel.Value = "Indisponible" End If End If

---

En fait, cette formule marche nickel, mais que pour un enregistrement à la fois. Je pense qu'il manque pas grand chose !!! Et est-il possible d'utiliser un bouton de commande avec un sous formulaire en feuille de données ??? Je pense pas, mais serait il possible d'appeler mon bouton via le formulaire "principal" ??? Car pour le moment, mon sous formulaire est un formulaire tous simple et pour une raison de faciliter et uniformité avec mes autres formulaires, je le revoudrais en feuille de données.

Merci d'avance.

bonjour,

tu utilises beaucoup de variables dant on code, peux-tu nous indiquer comment tu les alimentes stp ? Une requête update par le vba est possible, mais encore nous faudrait-il les champs de la table à mettre à jour ^^
Merci

En fait, tous ces variables viennent de mes tables :
Stockbel, NbRestant => tbl Matériel
AValidation, ACommander, Quantité => Détails du bordereau
J'ai voulu essayer avec une requete, mais je ne connais pas assez le SQL pour çà.

alors tu auras plusieurs requêtes de mise à jour des données possibles: un exemple, à adapter selon le nom exact des champs et tables :

Code:

---

UPDATE Table_Materiel SET Stockbel='INDISPONIBLE' WHERE NBRestant<0

---

tu vois l'idée ?

je vois l'idée :P, bien vu, je vais essayer d'appliquer cela a mon cas, merci bcp à toi jpcheck

Afin de ne pas créer 50milles requetes, est-il possible d'utiliser un case avec un UPDATE et par la meme occasion utilisé mon WHERE pour filtrer mon formulaire ???

Code:

---

UPDATE Matériel SET Stockbel=(CASE WHEN NbRestant>0 THEN "Disponible" ELSE "Indisponible" END);

---

Code:

---

UPDATE Matériel SET Stockbel=(CASE WHEN NbRestant>0 THEN "Disponible" ELSE "Indisponible" END);

---

Pourquoi "Opérateur absent" ???
C'est bizarre, même en SELECT, je n'arrive pas à utilisé le CASE WHEN. :cry:

Salut,

Code:

---

CASE WHEN NbRestant>0 THEN "Disponible" ELSE "Indisponible" END

---

les requetes fonctionnent mieux avec des opérateurs existants :

essaie

Code:

---

... SET Stockbel=IIF(NbRestant>0 , "Disponible" ,"Indisponible");

---

Voir l'aide pour IIF
:)

Merci à toi micniv, effectivement çà marche bien mieux comme çà. Par contre, je n'ai toujours rien trouvé sur le IIF contrairement au CASE. Alors voilà, je voulais savoir si on peut mettre des IIF dans des IFF ??? Je vous explique! Je voudrais suivant une quantité donné, mettre mon stock à jour(NbRestant), et suivant le nombre me dire si mon "Stockbel" est disponible ou pas et me dire s'il faut encore commander quelque chose. En visual çà donnerait çà, enfin dans ce genre, je pense :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

IF NbRestant=0 THEN Acommander = Quantité Stockbel = "Indisponible" ELSE NbRestant=NbRestant-Quantité IF NbRestant>=0 THEN Acommander = 0 Stockbel = "Dispo" ELSE Acommander = Quantité-NbRestant Stockbel = "Indisponible" 'Pour éviter d'avoir un nombre négatif dans le stock NbRestant = 0 END IF END IF

---

Petit exemple : je commande 20 pomme,lol, dans mon stock, j'en ai 10
= Quantité=20; NbRestant=0; Stockbel = "Indisponible" et Acommander=10
Je sais que j'abuse un peu là, mais je débute seulement en SQL, et puis ce n'ai que ma 2ème question sur ce forum :oops:, et l'autre j'ai fini par trouvé la solution :D. Donc je remercie déjà à l'avance celui qui sera me donner un coup de main soit en SQL, soit en VBA mais qui appliquerais cette formule pour tous mes détails du bordereau et non 1 à la fois. Je pense quand meme que le sql serait plus adapté, non ???

Y a personne qui sait, ne fus que me donner un lien pour les IIF, car je n'ai rien trouvé, ni sur l'aide, ni sur le forum. Et puis, pour la première, çà serait sympa de l'appliquer sur ma formule, ou meme sur une partie que je comprenne. Merci

Salut, dans l'aide access :

Citation:

---

Exemple de fonction Ilf (VraiFaux)

Cet exemple utilise la fonction VraiFaux (IIf) pour évaluer un champ Montant et retourne le mot "Élevé" si la quantité est supérieure à 1 000; dans le cas contraire, elle retourne le mot "Modeste". Vous pouvez taper l'expression suivante dans la propriété SourceContrôle (ControlSource) d'un contrôle calculé :

= IIf([Montant] > 1000, "Élevé", "Modeste")

---

Sinon ne pas trouver d'aide sur IIF quand on dispose de GOOGLE me laisse ... pantois


Autre suggestion : adapte ton code ci-dessus pour l'appliquer à chaque enregistrement du recordset correspondant à ton sous-form.

:)

Je commence vraiment à désesperer là, j'ai juste encore cette petite chose à appliquer a ma base pour qu'elle soit finie !
Bon apparement, on ne peut faire un if dans un if en sql, donc je revient au vba

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Private Sub Commande28_Click() Dim strLink As String Dim XXX as Recordset 'et là je ne sais pas quoi mettre, j'ai déjà essayer pas mal de chose mais ne fonctionne pas :? Set XXX = currentdb.openrecordset (Nom de la requete ???) XXX.MoveFirst strLink = SauvegarderActualiser If NbRestant = 0 Then ACommander = Quantité Else If NbRestant - Quantité >= 0 Then ACommander = 0 NbRestant = NbRestant - Quantité Else ACommander = Quantité - NbRestant 'Pour éviter d'avoir un nombre négatif dans le stock NbRestant = 0 End If End If XXX.MoveLast XXX.close End Sub

---

Je veux juste connaitre le code "recordset" que je dois mettre pour que cette formule s'applique à tous mes enregistrements du sous-formulaire. Et si quelqu'un a une astuce pour je place mon bouton de commande dans mon formulaire et comme çà je peux garder mon sous-formulaire en feuille de données. Merci d'avance.

hum, tout ca pour pas faire plusieurs requêtes comme conseillé au début...:aie:

Non du tout. J'ai maintenant dans ma requete SELECT un if pour Stockblel suivant si mon stock est dispo ou pas, qui fonctionne bien. J'ai juste encore un soucis avec NbRestant et Acommander qui viennent de ma table "détails du bordereau". Je ne sais pas si on peut mettre un if dans un if en dans une requete UPDATE, et si oui comment ??? J'ai testé la formule en vb, elle s'applique bien à mon sous formulaire, mais pour une ligne d'enregistrement à la fois. Je veux quels s applique à tous mes détails. Et avoir le bouton "mise a jour du stock sur mon formulaire.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Private Sub Commande28_Click() Dim Enr As Recordset Set Enr = CurrentDb.Openrecordset("Détail du bordereau d'execution") Enr.MoveFirst If NbRestant = 0 Then ACommander = Quantité Else If NbRestant - Quantité >= 0 Then ACommander = 0 NbRestant = NbRestant - Quantité Else ACommander = Quantité - NbRestant 'Pour éviter d'avoir un nombre négatif dans le stock NbRestant = 0 End If End If Enr.MoveLast Enr.Close End Sub

---

Cette formule devrait changer les valeurs de NbRestant et Acommander dans ma requete "Détail du bordereau". Pourquoi me vb me dit : Erreur 13: type incompatible ????

J'ai trouvé déjà comment faire fonctionner le recordset. Il faut aller cocher dans outils/référence de vb "Microsoft DAO 3.6 ..."

bonjour,
pense à déclare Enr en tant que DAO.Recordset aussi ;)

Merci Jpcheck, j'ai bien déclaré Enr en tant que DAO.Recordset, çà marche nickel.
Mais je veux juste appliquer cette formule sur mon formulaire sur lequel je suis. J'avais pensé à :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38

Private Sub UpStock_Click() Dim Enr As DAO.Recordset Dim strLink As String Dim Cancel As Integer strLink = SauvegarderActualiser If Valider = "Non" Then If msgbox("Etes-vous sur de votre commande ?", vbQuestion + vbYesNo, "Mise à jour du stock") = vbYes Then Set Enr = CurrentDb.OpenRecordset("Détail du bordereau d'execution") Do Until Enr.EOF = True If Enr("N° Bordereau") = Formulaire ouvert Then Enr.Edit If Enr("NbRestant") = 0 Then Enr("ACommander") = Enr("Quantité") Else If Enr("NbRestant") - Enr("Quantité") >= 0 Then Enr("ACommander") = 0 Enr("NbRestant") = Enr("NbRestant") - Enr("Quantité") Else Enr("ACommander") = Enr("Quantité") - Enr("NbRestant") 'Pour éviter d'avoir un nombre négatif dans le stock Enr("NbRestant") = 0 End If End If Enr.Update Enr.MoveNext End If Loop Enr.Close Valider = "Oui" strLink = SauvegarderActualiser Else Me.Undo Cancel = True End If Else msgbox "Vous ne pouvez mettre à jour le stock qu'une seule fois !" End If End Sub

---

Quelqu'un a une idée ???

êuh, ca va être un peu compliqué pour nous de tester ton code, mais si tu nous dit s'il tourne, ca nous aidera un peu ;)

Il tourne très bien, juste qu'il s'applique maintenant à tous mes enregistrements de me requete select. Moi, je voudrais qu'il selectionne le N° Bordereau de mon formulaire ou je me trouve et applique cette formule uniquement pour les enregistrements de ce formulaire. J'espère avoir été clair dans mon explication :oops:.