Discussion :

[byaccess2]

Bonjour,
C'est mon premier post sur ce forum, alors soyez indulgent si la forme n'est pas parfaite.
Je suis utilisateur d'Access depuis 1997, et j'ai déjà réalisé des bases de données pour plusieurs types d'application (facturation, fichiers clients, stocks, etc)
J'ai une connaissance plus que basique de VBA, mais je peux passer des heures à chercher des solutions, comme dans le cas que je vous soumets aujourd'hui.

J'ai joint en annexe un exemple de fichier simple. Voilà ce que je ne parviens pas à faire:
partant d'un exemple fictif de fabrication de plats préparés, je souhaiterais pouvoir indiquer la date où j'entame un nouveau lot de tel composant, partant du principe que j'applique le principe du FIFO (first-in first-out), et donc que je n'ai jamais d'utilisation de composants d'un lot plus récent alors qu'il me reste des lots plus vieux (en théorie, parce qu'en pratique, il se pourrait qu'un jour deux lots d'un même composant soient encore utilisés en même temps, mais peu importe, je commencerais par faire simple). Tous mes composants sortis doivent se retrouver sur une note mensuelle avec leurs numéros de lots par date de fabrication.
Comme les mentions des changements de lots en cuisine sont faits à la main, je voudrais ne pas devoir changer chaque lot de la table T_Lots en temps réel, mais pouvoir, lors de l'impression des fiches de fabrication fin de mois par exemple, pouvoir sortir une liste des fabrications avec tous les lots des composants. Je recopie mes fiches manuelles une fois par mois dans la table T_Lots.

Ce que je souhaite donc, c'est que dans ma table T_Fabrications, lorsque j'encode mensuellement mes fabrications du mois sur base de la date, et que je choisis un composant, le n° de lot de ce composant soit directement extrait de la table T_Lots en fonction de la date de 1ère utilisation (donc la veille c'était le lot avant, etc).

Je maîtrise la fonction DLOOKUP pour rechercher des données dans une autre table, mais ici, je n'ai trouvé qu'un exemple de code VBA pour Excel qui va me chercher la donnée d'un champ en fonction de la date.

D'avance un grand merci pour vos conseils de pros.

[ClaudeLELOUP]

Bonjour et bienvenue chez nous,

Je n'ai pas tout compris et je n'ai pas pu regarder ta pièce jointe (j'utilise Access2000), mais jette un coup d'œil ici : http://claudeleloup.developpez.com/t...plic-ploc/#LXI, c'est peut-être une piste.

[byaccess2]

bonjour
merci pour le lien, intéressant , notamment pour la partie envoi par mail, mais ce n'est pas vraiment ce que je cherche
sans ouvrir la db exemple, difficile de comprendre mon (petit) souci
salutations

[78chris]

Bonjour


Si j'ai bien compris (pas sûr) tu veux récupérer le dernier lot de ce composant ?

Code SQL :

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

1
2
SELECT T_Lots.idlot FROM T_Lots
WHERE (((T_Lots.[Date début utilisation]) In (SELECT Max(T_Lots.[Date début utilisation]) AS [MaxDeDate début utilisation] FROM T_Lots GROUP BY T_Lots.Composant HAVING (T_Lots.Composant=2))));

=2 à remplacer par la valeur du formulaire de saisie

Si ce n'est pas le dernier, peux-tu repréciser le contexte et ce que tu veux obtenir en partant de ton exemple.

[byaccess2]

Bonsoir,
merci de vous intéresser à mon soucis
je me rends compte que j'ai oublié en créant le formulaire d'utiliser la même structure que la table T_Fabrications (liste de choix pour les composants), donc je reposte la db adaptée (v2)

à titre d'exemple, je crée un premier enregistrement dans le formulaire F_Fabrications:
date: 7/1/2015,
et ensuite, si je choisis le composant C1, je veux que la valeur LA1-a se crée dans le champ Lot quand je quitte le champ composant
si je choisis le composant C2, je veux que la valeur LA2-b se crée dans le champ Lot

dans la db que j'utilise présentement pour un autre usage, c'est sur AfterUpdate que la procédure DLookUp va rechercher les valeurs
mais ici.....????

[byaccess2]

lot-date v2.zip autant pour moi, voilà la db au format zip

[byaccess2]

Si j'ai bien compris (pas sûr) tu veux récupérer le dernier lot de ce composant ?

Bonsoir,
non je veux récupérer le lot qui était utilisé à la date choisie
le fichier attaché est mis à jour afin de pouvoir tester des exemples (voir post plus haut)

[78chris]

Bonjour

La requête

Code SQL :

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

1
2
3
4
SELECT TOP 1 T_Lots.IDLot
FROM T_Lots
WHERE (((T_Lots.[Date début utilisation])<=[Formulaires]![F_Fabrications]![Date fabrication]) AND ((T_Lots.Composant)=[Formulaires]![F_Fabrications]![Composant]))
ORDER BY T_Lots.[Date début utilisation] DESC;

doit fonctionner.

Après il faut programmer le formulaire pour que cela se mette à joue lors de la mise à jour des champs Composant et date...