gestion de stock et inventaire

Bonsoir
je vienne de commence une base de données pour la gestion de stock matières premières
je m'explique
Tables
- produit, entrées, sortie et inventaires
Requêtes
- mouvement (entrées -sorties)
- Inventaires
- Stock (denier inventaire + derniere entrée)
je vous joint
Pièce jointe 176029

merci de votre aides

:salut:

:fleche: C'est quoi votre question ?

:fleche: Bloquez-vous quelque part ?

:fleche: Sur quoi avez-vous besoin d'aide ?

mon problème la mise a jour du stock

Remarque : je ne vois pas la matérialisation des relations entre les différentes tables ?

Pièce jointe 176032

Bonjour à tous,

Oui il faut ajouter les relations.

Et en fait l'inventaire te sert à comptabiliser les entrées/sorties postérieures à cette date d'inventaire.

Exemple :

Table des inventaires

numInv	numProduit	DateInv	QteInv
1	1	25/04/2015	5

Table des entrées

numEntrée	numProduit	DateEntrée	QteEntrée
1	1	26/04/2015	10

Table des sorties

numSortie	numProduit	DateSortie	QteSortie
1	1	26/04/2015	5

Résultat :

QteInv + QteEntree - QteSortie = 5 + 10 - 5 = 10


Je te joins l'exemple...

Bonsoir
Merci User pour votre aide
j'ai pris l'exemple de ClaudeLELOUP
la je bloque sur les formulaires pour renseigner les tables et affiche le stock actuel

je m'explique sur le but de mon application
le gestion des stocks matières premieres je fais pas les approvisionnement
je fais le suivie de la consommation de matières premières et j'effectue des inventaires periodique
et j'imprime l’état de stock

Pièce jointe 176221Pièce jointe 176221

Bonsoir,

L'idée serait de récupérer, pour chaque article, la quantité du dernier inventaire antérieur à cette date :

Il faudrait donc rajouter dans le module une fonction qui détermine cette valeur d'inventaire :

Code:

---

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

Public Function InventaireADate(Article As Long, DateAng As Date) As Single Dim LeSQL As String Dim db As DAO.Database Dim rs As DAO.Recordset   LeSQL = "SELECT tInventaires.InventaireQuant " & _ "FROM tInventaires " & _ "WHERE (((tInventaires.InventaireDate) In (select Max([InventaireDate]) from tInventaires T1 where (T1.[InventaireDate]<=#" & Format(DateAng, "mm/dd/yyyy") & "#) and T1.tArticlesFK=tInventaires.tArticlesFK;)));"   Set db = CurrentDb Set rs = db.OpenRecordset(LeSQL)   If Not rs.EOF Then InventaireADate = Nz(rs!InventaireQuant, 0) End If   rs.Close Set rs = Nothing   db.Close Set db = Nothing   End Function

---

Puis modifier légèrement la fonction qui calcule l'état du stock, pour prendre en compte la quantité en inventaire :

Code:

---

1 2 3

Public Function StockADate(Article As Long, DateAng As Date) As Single StockADate = EntreesADate(Article, DateAng) - SortiesADate(Article, DateAng) + InventaireADate(Article, DateAng) End Function

---

Je n'ai pas testé...

Cdlt,

voila ou je suis arrive avec ma base de données
toujours j'arrive a concrétise mon idée

Pièce jointe 176989

le stock n'est pas juste
mon idée est que je gère mon stock par des inventaires

exemple
01/05/2015 article 1 inventaireQuant (10) -- entréeQuant (0) et sortieQuant (0) -- stock = inventaireQuant+ entréeQuant-sortieQuant =10
01/05/2015 article 1 inventaireQuant (0) -- entréeQuant (5) et sortieQuant (0)---Stock = 10+ 0+5-0 = 15
01/05/2015 article 1 inventaireQuant (0) -- entréeQuant (0) et sortieQuant (9)---Stock = 15+ 0+0-9 = 6


Pièce jointe 176992

Bonjour,

Pour moi ce n'ai pas clair :?

J'ai essayé de modifier tes fonctions de calcul du stock et me suis basé sur tes dernières lignes pour essayer de comprendre ce que tu souhaites faire...

Je te joins les corrections.

J'ai ajouté 2 requêtes avec les champs concernés...

à+

PS: inutile de mettre des nombres compliqués pour faire les tests du genre 15 782 133, 758 468 121..., les nombres du style 3, 5, 10, 100, 200 marchent tout aussi bien ;)

Bonjour,

Où en êtes-vous de votre problème ?

Vu sa complexité je pense qu'il est important d'échanger ;)

Cdlt,

Bonsoir et désole pour le retard
les tables entrées, sorties et inventaires doivent être renseigner pour que sa fonctionne bien
Pièce jointe 177388


et je vous joint mon fichier

Cordialement
Pièce jointe 177389

Bonjour,

Vous avez essayé avec des jointures gauches au niveau de la requête "Etat_de_stock" ?

Code:

---

1 2

SELECT tArticles.ArticleNom, StockAdate([tArticles].[tArticlePK],Date()) AS Stock, tArticles.[Cons/Jour], (EntreesADate([tArticlePK],Date()))/[tArticles]![Cons/Jour] AS [Autonomie/Jours], tArticles.SeuilCritique, IIf(StockAdate([tArticlePK],Date())<[SeuilCritique],"ALERTE","OK") AS ETAT FROM ((tArticles LEFT JOIN rDernierEntree ON tArticles.tArticlePK = rDernierEntree.tArticlesFK) LEFT JOIN rDerniereSortie ON tArticles.tArticlePK = rDerniereSortie.tArticlesFK) LEFT JOIN rDernierINV ON tArticles.tArticlePK = rDernierINV.tArticlesFK;

---

Cdlt,

merci user
c'est ce que je cherche
j'ai fais un essai avec mes données et ça marche bien

De rien,

Un clic sur [Résolu] serait apprécié ;)

Salut à toute l'équipe.
je suis débutant et j'ai utilisé ce exemple pour gérer un magasin de pièces de rechanges et ma table tArticles comprend: tArticlesPK, NomArticle, RefArticle (référence de l'article), PdrArticle (Catégories des machines) et tout se passe bien.
Sauf que je voulais qu'on affiche ces informations dans les formulaires fEncoEntrees et fEncoSorties une fois l'article selectionné dans CboArticle. Voilà là où je viens solliciter votre assistance.

Bonjour,

Citation:

---

Envoyé par jeff2017

Salut à toute l'équipe.
je suis débutant et j'ai utilisé ce exemple pour gérer un magasin de pièces de rechanges et ma table tArticles comprend: tArticlesPK, NomArticle, RefArticle (référence de l'article), PdrArticle (Catégories des machines) et tout se passe bien.
Sauf que je voulais qu'on affiche ces informations dans les formulaires fEncoEntrees et fEncoSorties une fois l'article selectionné dans CboArticle. Voilà là où je viens solliciter votre assistance.

---

ça manque d'info, peut-on avoir le code SQL des requêtes sur lesquelles sont basées ces formulaires d'entrées et de sorties ?

Cdlt,