Discussion :

[man19]

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
Exemple inventaire.zip

merci de votre aides

[Malick]

C'est quoi votre question ?

Bloquez-vous quelque part ?

Sur quoi avez-vous besoin d'aide ?

[man19]

mon problème la mise a jour du stock

[Malick]

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

[User]

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...

[man19]

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

BDD MC.zipBDD MC.zip

[User]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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,

[man19]

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



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


Ma BDD V1.zip

[User]

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

[User]

Bonjour,

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

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

Cdlt,

[man19]

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



et je vous joint mon fichier

Cordialement
Ma BDD V1 fait.zip

[User]

Bonjour,

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

Code sql :

Sélectionner tout - Visualiser dans une fenêtre à part

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,

[man19]

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

[User]

De rien,

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

[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.

[User]

Bonjour,

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,