Discussion :

[Tsoas]

Bonjour à tous,

Je viens poster ici pour demander un peu d'aide.

Je suis en stage, dans une entreprise, et ayant un peu d'avance sur mes taches, on me demande de créer une base données Access, qui permet de gérer les stocks.
Malheureusement, je ne connais pas du tout Access.
En deux jours, j'ai appris pas mal, et ma base à de la gueule ... mais je n'arrive pas à incorporer les éléments les plus importants de la base :
- Quand un ouvrier retire une tôle du stock, la base de donné doit soit lui dire "OK c'est bon" si il y a le nombre de tôle en stock, soit "Pas assez de tôle" si la quantité dispo est inférieur à ce qu'il veut retirer ...
--> Mon soucis est que je n'arrive pas à poser la condition qui est justement "Si la quantité de tôle dans le stock est inférieur/supérieur à ce qui va être retirer".

- Quand le stock d'une tôle devient bas, un message doit être envoyé au boss pour lui dire de commander la tôle.
Sachant que 2 PC on accès à la BDD : le boss, et le PC à l'atelier, est-ce possible d'envoyer des messages de ce type d'un pc à un autre via la BDD ?!

Merci d'avance pour vos réponses !

Cordialement,
Tsoas

[helios77]

Bonjour,

Un premier élément de réponse, ta base doit être dans un dossier accessible par les 2 PC ..... il n'y a donc pas de problème pour la communication entre les 2 PC.... Ta base, après chaque action, verra le stock restant et éventuellement enverra un mail à la personne en charge de la commande... Pour faire ceci, il te faudra faire du VBA sans doute..... ce qui nous amène à la deuxième question..

Comment se passe la gestion du stock pour le moment ?? Quand tu dis "un ouvrir retire du stock", que fait l'ouvrirer exactement ? il saisit quelque chose dans ta base... la saisie est manuelle dans une base ou via un formulaire ?Si tu as déjà mis en place des formulaires de saisie, il va être facile de faire ce que tu demandes sinon, c'est carrément l'appli à construire j'ai l'impression

[Tsoas]

Déjà, merci pour la réponse.


Par mail, ça peut être une bonne idée je pense.


Pour te répondre, j'ai un formulaire de ce type :
- Epaisseur (menu déroulant qui affiche toutes les épaisseur que j'ai dans une table Epaisseur, pour pouvoir choisir l'epaisseur voulue)
- Format (pareil que epaisseur)
- Teinte (encore pareil)
- Retirer : [ ] (Nombre de tôle à retirer du stock
Et un bouton confirmer, qui lance une requête qui met à jour ma case Quantité, de la l'enregistrement qui a les 3 paramètres choisis au dessus.

Pour aider, voici comment est faite ma BDD :
Tables :
Commande (qui contient les commandes passé par le patron)
Stock (contient les stock de tôles)
Teinte (contient les teintes possible)
Format ( " " " ")
Epaisseur (" " " ")

Formulaire :
Acceuil
AjouterCommande
AjouterStock
RetirerStock

Donc, ce que je voudrais faire, c'est en gros :
Dans mon formulaire RetirerStock, une fois que l'ouvrier à choisis les 3 paramètre de la tôle, la BDD lui affiche le stock de cette tôle.
Il saisis alors ce qu'il retire, et confirme, et le chiffre se met à jour.
SI le stock est plus petit que ce qu'il veut -> MsgBox "blah blah ca va pas".
Mais je n'arrive justement pas à faire cette condition, car il faut viser la case quantité de l'enregistrement qui contient les 3 paramètres ...

Enfin voila, si j'arrive à t'éclaircir c'est déjà pas mal.

[nico84]

Quelques suggestions :

- afficher tout le stock en liste
- placer dans l'entête une zone qui permet de filtrer le stock sur un ou plusieurs des 3 critères
- quand le magasinier double-clique sur une ligne demander la quantité voulue et message si c'est supérieur à la quantité sur la ligne, décrément sinon

tu peux t'inspirer de ce code :

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
24
25
26
27
28
29
30
Private Sub Filtrer()
' procédure appelée par chaque saisie d'une donnée de filtre
Dim f As String
 
f = ""
If sel_code > "" Then
  If f > "" Then f = f & " and (code = '" & sel_code & "')" Else f = "(code = '" & sel_code & "')"
End If
If sel_desi > "" Then
  If f > "" Then f = f & " and (designation like '*" & sel_desi & "*')" Else f = "(designation like '*" & sel_desi & "*')"
End If
If Len(f) > 1 Then
  Me.Filter = "(" & f & ")"
  Me.FilterOn = True
Else
  Me.Filter = ""
  Me.FilterOn = False
End If
End Sub
 
Private Sub voir_tout_Click()
sel_code = ""
sel_desi = ""
Call Filtrer
End Sub
 
Private Sub sel_code_AfterUpdate()
  Call Filtrer
End Sub
...

Je te conseille de mémoriser les entrées et les sorties dans une table des mouvements ça peut toujours servir...

[Tsoas]

Bon j'ai beaucoup avancé sur cette BDD, et il me reste plus qu'un seul obstacle :
Quand le patron passe une commande, cela rajoute dans ma table stock la quantité à recevoir et la date de réception.
Le seul problème, est que si la tôle n'existe pas en stock (c-a-d qu'il n'y a pas d'enregistrement avec les paramètre de la tôle) ça ne marche pas.
Y'a t'il une fonction pour vérifier si dans la table Stock, il n'y a pas d'enregistrement qui contient mes 3 paramètres ? Sachant que j'aimerais le faire en tant que condition (dans une macro), et non une requête (ou bien le faire en requête, et si la requête ne trouve rien, elle renvoi quelque chose ou lance justement une autre requête).