Discussion :

[IcarAccess]

Bonjour,

Je dois créer un fichier Access permettant de gérer les stocks de l'entreprise.
J'ai pour l'instant créé une table "Produit" avec pour champs (Nomproduit,référence,type de produit,stock mini,stock croisiére,Quantité actuelle).
Mais maintenant je ne sais pas quoi mettre dans la table "Entrées" ,pour qu'un utilisateur puisse rentrer les arrivages dans le stock avec les détails , et comment relier les tables entre-elles.
Auriez-vous une solution ?

Merci.
Cordialement.

[martii843]

Salut,

Un tuto dispo. ici

[IcarAccess]

Salut,
merci de ta réponse.

Le tuto m'a aidé pour la réalisation des tables, mais j'ai toujours un probléme, je voudrais que lorsqu'il ya une entrée ou une sortie dans mon stock, la valeur de la quantité de mon stock change automatiquement suite à ces modifs ?

[martii843]

Salut,

Pour l'instant tu peux passer par une requête comme ci-dessous.

Le calcul du stock est fait dans la requête, tu n'as plus besoin de ce champ dans ta table produit.

[IcarAccess]

OK merci,

Par contre j'ai actuellement déjà une quantité initiale de stock , comment la prendre en compte pour ensuite y ajouter les entrées et les sorties?

[martii843]

Dans la requete, tu fais :
Stock=ENTREE.QuantiteEntree + SORTIE.QuantiteSortie + PRODUIT.StockInitial

Pour gerer les valeurs nulles tu peux utiliser aussi la fonction Nz() :

Stock=Nz(ENTREE.QuantiteEntree;0) + Nz(SORTIE.QuantiteSortie;0) + Nz(PRODUIT.StockInitial;0)

[micniv]

Bonjour à tous,
petite correction :

Code :

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

Stock=Nz(ENTREE.QuantiteEntree;0) - Nz(SORTIE.QuantiteSortie;0) + Nz(PRODUIT.StockInitial;0)

CDLT

[IcarAccess]

Bonjour,
Merci pour vos réponses.

J'ai créé les mêmes tables que vous , mêmes relations et mêmes critéres mais ma requête n'affiche aucune données.
Lorsque dans ma requête je sélectionne N° et Nom produit elle affiche les données et lorsque je prends une donnée de la table "Entrée" ou "Sortie" plus aucune données.
Quel est le problème?

Cordialement.

[martii843]

Dans les relations de ta requete selectionnes afficher tous les produit et seulement les données de SORTIE qui sont egales, pareil pour ENTREE.

[IcarAccess]

Salut,
merci ça fonctionne !

Une derniére question, je voudrais créer deux formulaires "entrée" et "Sortie" où l'utilisateur pourra indiquer les quantités de tel produit qui rentrent ou qui sortent comment faire ?

Cordialement.

[martii843]

Tu dois créer un formulaire sans source de donnée avec :

Qte (Zone de texte pour renseigner la quantité)
NumProduit (Zone de texte pour renseigner le N° de produit)
O1 ( Bouton d'option pour les entrées )
O2 ( Bouton d'option pour les sorties )
Valider (Bouton de commande)

Au moment de valider, si le bouton O1 (Entrée) est coché alors insertion dans la table ENTREE sinon insertion dans la table SORTIE.

Sur clic du bouton Valider :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
DoCmd.SetWarnings False
 
Dim sql As String
 
If Me!O1 = True Then
sql = "INSERT INTO ENTREE ( QuantitéEntree, NumProduit )SELECT " & Me!Qte & ", " & Me!NumProduit & ";"
Else
sql = "INSERT INTO SORTIE ( QuantitéSortie, NumProduit )SELECT " & Me!Qte & ", " & Me!NumProduit & ";"
End If
 
DoCmd.RunSQL sql

Code à adapter et agrémenter.

PS : Penses à ajouter un champ de date pour la date d'entrée ou de sortie.

[IcarAccess]

Salut,
merci de ta réponse.
Aprés avoir montré mon travail à mon manager il souhaiterait qu'il n'y est pas de n° de produit.
J'ai donc corrigé mes tables avec nomproduit en clé primaire , les requêtes fonctionnent.
Mon probléme toujours dans le formulaire je créé une zone de liste déroulante sur Access pour le nom des produits mais lorsque je veux valider, il me marque ce message "vous devez entrée une valeur dans le champs "Entrée.Nomprod"".
Que dois-je faire?

[martii843]

As tu modifier la requête ?

Certainement comme ceci (si tu n'as pas modifier le nom du champ NumProduit dans le formulaire) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
DoCmd.SetWarnings False
 
Dim sql As String
 
If Me!O1 = True Then
sql = "INSERT INTO ENTREE ( QuantitéEntree, NomProd )SELECT " & Me!Qte & ", '" & Me!NumProduit & "';"
Else
sql = "INSERT INTO SORTIE ( QuantitéSortie, NomProd )SELECT " & Me!Qte & ", '" & Me!NumProduit & "';"
End If
 
DoCmd.RunSQL sql

Vu que la clé de produit est passée de nombre à texte il faut utiliser dans le code des ' '

Nombre :

Code :

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

" & Me!NumProduit & "

Texte :

Code :

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

'" & Me!NumProduit & "';"

[IcarAccess]

Salut,
merci de ta réponse,

Enfaîte je ne suis pas un grand connaisseur d'Access,je ne sais pas coder et je ne comprends pas ni ne sais faire.
Cela explique le fait que je demande beaucoup d'aide sur ce forum et d'ailleurs merci à toi de m'aider.
Aurais tu une solution plus simple ?

Cordialement

[martii843]

D'accord, si tu souhaites aller plus loin avec Access tu devras connaitre certaines notions du langage VBA qui sont disponibles sur ce forum.

Ici tu peux faire 2 formulaires :

* le premier avec en source de données la table ENTREE
* le second avec en source de données la table SORTIE

Par contre si tu passes par une macro pour ouvrir le formulaire, dans OuvrirFormulaire, sélectionnes Mode Données : Ajout