Gérer l'approvisionnement des stocks en VBA Access 

Comme toujours, cher professeur, vous excellez parfaitement dans ce tuto. En effet, une présentation courte, des explications détaillées, un programme simple et parfait ... Que pourrais-je dire de plus? Un grand bravo, un chapeau bas, un pouce haut et un Hourraaaaah fort

Bravo...Mr Rossetti Stéphane Merci, d'avoir partagé avec nous votre passion pour l'enseignement,votre soutien,votre implication et votre expérience. J'ai grandement apprécié vos cours qui m'ont été précieux et m'ont permis de progresser dans access Merci encore d'avoir enrichi mes connaissances.

Bonjour cher professeur !! Un super tuto encore une fois, et move first "prendre l'initiative" porte bien son nom !! J'ai hâte de voir le suivi des stocks, pendant que je m'entraîne avec cet "Approvisionnement" si parfaitement réalisé !! Encore merci et bonne journée !!

vraiment remarquable professeur!! j'admire vos cours!!

Merci beaucoup, vos explications simplifient tout, c'est impressionnant.

Bonjour Prof, D'abord un grand merci pour tes explications fluides et simples mais surtout pour le temps que tu prends pour nous en commentaire. en effet j'ai eu un soucis en voulant adapter la console proposé dans ce cours mais dans les commentaires tu as donné la solution et ça m'a débloqué de 3 semaines de recherche en boucle. Encore Merci

Bonjour monsieur Rossetti Un super tuto comme TJS

Un grand merci pour cette explication

Bonjour et merci, très interessent comme tuto !

Merci Stéphane

J'admire, j'admire !

Merci pour cet excellent tuto, je voudrai savoir si on pouvait faire la même chose avec l'approvisionnement du stock pour avoir un historique des entrées

Bonjour Professeur , j'ai un petit soucis j'ai une base de donnée articles que je veut insérer dans le catalogue accès mais tous mes articles n'ont pas pu être coller certains on été envoyé dans une table d'erreurs , alors comment y remédier car j'aimerai me servir de cette application pour gérer mes approvisionnement. cordialement.

merci infiniment professeur, super tutoriel, SVP la référence library activeX data objects 6.1 , comme vous le dite, dépend du windows installé , or moi, j'ai windows 11 , et au lieu de récupérer La désignation et la quantité du produit et les affichées dans leur liste déroulante, un message d'erreur s'affiche.🙏🙏🙏🙏🙏🙏

Bonjour Rosseti je vous suis depuis 2 ans et j’apprécie beaucoup votre pédagogie. Je voudrais que vous fassiez une petit base de donnée pour gérer les salaires Merci d'avance

Bravo Mr.Stéphanie ,juste uen petite question : pour développer une application gestion de stock & facturation est ce que sera mieux la dévlopper en Access ou Excel.Merci

Bonjour Mr Rossetti Merci pour ce tuto ou j'ai trouvé des réponses à plusieurs questions qui me tourmentés . J'ai entendu parler d' une fonction access VBA nommée dlookup utilisé pour rapatrier des informations. Est il possible de l'utiliser dans ce cas au lieu de déclarer un recordset.

Bonjour Mr Rossetti, bravo pour vos cours. J'aimerai les suivre du premier au dernier sans en oublier un. Ne pourriez vous les numéroter pour que l'on soit sûr de ne pas sauter un cours ? Encore une fois, bravo!

Bonjour monsieur Stéphane, je suis entrain de coder la gestion d'approvisionnement des stocks en suivant le tutoriel. Et j'ai un message d'erreur qui s'affiche lorsque j'exécute comme suit: Erreur d'exécution '3061' Trop peu de paramètres.1 attendu Pourriez-vous m'expliquer ce qui m'a échappé? Dans l'attente d'une réponse, je vous remercie!

Bonjour et merci pour cet excellent tuto. J'ai simplement un petit problème quand j'appuie sur le bouton valider la mise à jour du stock, le message s'affiche bien avec la nouvelle quantité, mais dans ma table catalogue la quantité ne s'actualise pas. Pouvez-vous m'aider svp. Un grand merci !!!

Bonjour, super tutoriel, je voudrai savoir si c’est possible de saisir les stocks avec une douchette ?

Bonjour Stéphane, J'espère que je vais être clair dans mes explications ... 1/ Chaque référence de mon stock peut avoir plusieurs lots différents (jusqu'à 4) et eux-mêmes référencés avec un numéro qui leur est propre. Ma question est la suivante : Lorsque je sors une pièce d'un lot et qu'il n'est pas du Lot 1 (car à 0) comment puis-je mettre le stock du lot correspondant à jour et non pas déduire le lot de "référence" (Lot 1). Je suis parti sur la base que si le Lot 1 est à 0, je sors ma pièce du Lot 2 et si le Lot 2 est 0, je sors la pièce du Lot 3, etc... mais dans mon code, je déduis toujours le Lot 1, me trouvant ainsi à une quantité stock négative. 2/ De même que si je sors une référence dans le même formulaire à 2, 3 reprises voir plus, comment sur ma table temporaire, je peux avoir qu'une seule ligne regroupant la quantité cumulée de chacune de ces saisies et donc ne pas avoir 2, 3, 4 lignes de la même référence avec des quantité différentes. Voici mes lignes de code : Private Sub Bt_Valider_sorties_Click() Dim Ligne As Recordset: Dim base As Database Dim requete As String Dim ChampReference As String: Dim ChampQuantitelot1 As Integer If (ChampAssocierProjet.Value "") Then Set base = Application.CurrentDb Set Ligne = base.OpenRecordset("SELECT * FROM T_Detail_temp", dbOpenDynaset) Ligne.MoveFirst Do ChampReference = Ligne.Fields("Reference").Value ChampQuantitelot1 = Ligne.Fields("Quantite").Value requete = "INSERT INTO T_Detail_sortir_pieces (N°_Projet_det,Ref_det,Designation_det,Quantite_det,Lot_det) VALUES ('" & ChampAssocierProjet & "','" & ChampReference & "','" & ChampDesignation & "'," & ChampQuantitelot1 & ",'" & ChampLot1 & "')" base.Execute requete requete = "UPDATE T_Articles SET Quantite_Lot_1 = Quantite_Lot_1 - " & Int(ChampQuantitelot1) & " WHERE Reference='" & ChampReference & "'" base.Execute requete Ligne.MoveNext Loop Until Ligne.EOF Ligne.Close base.Close Set Ligne = Nothing Set base = Nothing purger_table DoCmd.Close acForm, "F_Sortir_piece", acSaveYes DoCmd.OpenForm "F_Sortir_piece" End If End Sub Merci Ô grand gourou du codage... Christophe.

merci pour l'information sa marche impeccable mais je voudrai savoir et le champs quantités et pas de types numérique mais monétaire comment le mètre ajour avec la même procédure

Bonjour Professeur, Je vous remercie beaucoup. J'ai une question, comment faire pour avoir une historicité des approvisionnement de stock à tout moment dès que le besoin se fait sentir? Merci

Est-ce pour la creation d'un horaire on peut procéder pareillement lorsqu’on attribue une salle oudu materiel a un cours et du coup on doit le soustraire de l'inventaire de la journée ?? ou on peut proceder autrement ??

bonjour, merci pour le tuto, au moment d’exécuter le code il y a une erreur et ce cyntaxe devient en jaune: If (ref_X.Value "" And IsNumeric(qte_apres_MAJ.Value)) Then

bonjour prof nous n'arrivons pas à bien voir ce que vous écrivez prière de zoomer un peu. Merci beaucoup

quand il s'agit d'une sorie d'un article dans le champs [qté après maj] allons mettre juste une soustration? est que c'est possible d'avoir d'avoir l'historique de toutes ces enregistrement dans une table (entre et sortie)?

Bonjour, j'ai beau retaper les codes pour l'approvisionnement le formulaire me met " #Nom ? " dans la liste déroulante . j'ai tapé ce code suivant le cours pourtant toujours l'erreur. Private Sub liste_ref_Change() Dim ligne As Recordset: Dim base As Database Set base = Application.CurrentDb Set ligne = base.OpenRecordset("SELECT Designation,Quantite FROM Catalogue WHERE Code_article="" & liste_ref.value & """, dbOpenDynaset) qte_maj.Value = 0: qte_cours.Value = 0 ligne.MoveFirst Designation.Value = ligne.Fields("Designation").Value qte_cours.Value = ligne.Fields("Quantite").Value qte_maj.SetFocus ligne.Close base.Close Set ligne = Nothing Set base = Nothing End Sub en tout cas merci pour ce cours qui est prometteur

Magnifique et claire comme explication cependant, je n'arrive pas à réaliser une saisie semi automatique l'expression simple cote et double cote me complique

Merci beaucoup poir ce tuto, vraiment ça m'aide beaucoup. Comment je fais pour le faire sur visual studio

Bonjour à vous et merci pour votre tuto, il m'ait vraiment utile. Cependant Lors de l'exécution de mon code il y a eu une erreur a propos des doubles quotes. quand je tape'"&list_code&"'", on me signale une erreur au niveau des quotes. que dois-je faire? Merci.

bonjour prof! très bonne vidéo. j'aimerais savoir si il aura possibilité de voir le stock en temps réel??? merci d'avance

bonjour Monsieur. j'ai bien aimé votre application. cependant j'ai quelque difficulté à exécuter le code. lorsque je veux l'exécuter on affiche une erreur du type 3021 et la bande jaune est sur ligne.MoveFirst j'ai bien suivi les recommandations sur le site ainsi que celles que vous avez faites dans les différents commentaires. Mais je ne trouve pas de solution. Pouvez vous m'aider svp. merci

Bonjour, encore merci pour ce super Tuto. j'ai suivi votre vidéo avec le texte comme soutien, tout fonctionne super mis à part l’enregistrement dans la base du nouveau stock après le clic de mise à jour. En effet, l'ancienne donnée quantité disparaît mais laisse le champ vide? j'ai bien sûr utiliser la méthode sur ma propre base, je pense avoir respecté les correspondance des codes.... Ce résultat d'erreur vous dit peut-être quelque chose... Merci de votre aide.

Pouvons nous relier ce formulaire à Power app une fois terminé ?

voici la synthase qui pose problème: Set ligne = base.OpenRecordset("SELECT Nom,Qte FROM Articles WHERE Code_article='" & list_code.Value & "'", dbOpenDynaset) le code_article est un champ calculé

Bonsoir a vous svp comment géré les versements de scolarité avec accès

Lorsque je tape la commande entière de (SELECT Desigantion. Quantite FROM Catalogue WHERE code_article="'".dbopendyset) cela m'ecris erreur compilation attendu séparateur de liste ou)

Bonjour Stéphane, Au secours !!! je rencontre un problème que je n'arrive pas à résoudre depuis 2 jours !!! J'ai un message au lancement de ma macro (click sur valider) Message erreur 3075 Erreur de syntaxe (opérateur absent) dans l'expression " 35WHERE Reference='00160044' " Voici ma macro : Private Sub Bt_Valider_reception_Click() Dim requete As String: Dim base As Database If (ChampReference.Value "" And IsNumeric(ChampQuantiteApresReception.Value)) Then Set base = Application.CurrentDb requete = "UPDATE T_Articles SET Quantite_en_stock = " & ChampQuantiteApresReception.Value & "WHERE Reference='" & ChampReference.Value & "'" base.Execute requete MsgBox "Les stocks pour la référence : " & ChampReference.Value & ", ont correctement été mis à jour pour une quantité désormais égale à :" & ChampQuantiteApresReception.Value base.Close Set base = Nothing End If End Sub Merci de votre aide Christophe

Bonjour j'ai un problème pouvez vous le faire a ma place car je suis bloqué à l'erreur 3021 après avoir lu et relu l'erreur est toujours la même