Discussion :

[Kyndred40]

Bonjour,

Je vais introduire le sujet, tout d'abord je suis actuellement entrain de faire un logiciel qui va permettre de pouvoir programmer un planning hebdomadaire des lots à produire...
1 lot comporte donc plusieurs commandes.

La problématique étant que je ne vois pas du tout comment je peux faire ce système de lot, j'ai pensé à dès que je clique sur le bouton "créer lot" les commandes qui sont sélectionné vont donc dans la table lot avec un numéro de lot unique (toutes les commandes ont le même numéro de lot).

Seulement le problème que je n'arrive pas à résoudre ces comment je vais pouvoir afficher seulement le lot par exemple le lot Numéro 1 (avec 10 commandes dedans par exemple) moi je voudrais qu'il ne m'affiche qu'une ligne et pas les 10 lignes de commande.
Car je pense que si j'affiche les numéro de lot 1 il va m'afficher les 10 commandes hors moi je voudrais seulement le lot.
Le lot est composé du Numéro de lot, de la référence du lot, du poids total de celui-ci.

J'espère que j'ai correctement exposé le problème et si vous voulez plus de renseignements ou plus de précision j'essayerai de vous aider le plus possible.

[User]

Bonsoir,

La problématique étant que je ne vois pas du tout comment je peux faire ce système de lot, j'ai pensé à dès que je clique sur le bouton "créer lot" les commandes qui sont sélectionné vont donc dans la table lot avec un numéro de lot unique (toutes les commandes ont le même numéro de lot).

Si on reprend le modèle de base, on a donc 2 tables :

Lots(IdLot, NumeroLot, ReferenceLot, ..)
Commandes(IdCommande, DateCommande, ..)

Une fois les données saisies dans ces 2 tables, il faudrait choisir certaines commandes pour un lot précis ?

Si, c'est bien cela, alors une possibilité serait créer une table intermédiaire ChoixCommandes(IdCommande, IdLot) pour effectuer ces choix, ce n'est très propre au niveau de la modélisation mais ça offre plus de souplesse pour effectuer ces choix.

On pourrait imaginer un formulaire principal, sur lequel vous saisissez les infos sur vos lots et basé sur la table Lots, et un sous-formulaire basé sur la table ChoixCommandes avec une liste pour choisir les commandes (liste basée sur la table Commandes).
Le formulaire principal étant relié au sous-formulaire sur les champs père/fils (idLot,IdLot).

Pour la seconde partie de votre question, si j'ai bien compris, vous souhaitez réaliser un planning hebdomadaire avec en entêtes de lignes les différentes lots et les dates en entêtes de colonnes ?

Pour cette partie, je pensais à une requête analyse croisée, sinon ça nécessite de le programmer en VBA.

[Kyndred40]

Bonsoir,

Bonjour, Merci pour votre réponse je vais essayer d'étudier cela.

[User]

Bonjour,

La problématique étant que je ne vois pas du tout comment je peux faire ce système de lot, j'ai pensé à dès que je clique sur le bouton "créer lot" les commandes qui sont sélectionné vont donc dans la table lot avec un numéro de lot unique (toutes les commandes ont le même numéro de lot).

J'ai repris votre idée pour ajouter les commandes au lot après leur choix dans une liste, mais comme je manquais d'infos, j'ai dû faire certaines hypothèses

J'ai donc créé un champ choix(Oui/Non) dans la table Commandes, qui permet de sélectionner les commandes qui vont être insérées dans la table CommandesLots (anciennement ChoixCommandes).

Ensuite, pour les ajouter j'exécute une requête insertion :

Code VBA :

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

1
2
3
4
5
6
7
8
9
10
11
12
  Dim dbs As DAO.Database, strSQL As String
 
    Set dbs = CurrentDb ' référence à la base courante
 
    strSQL = "insert into commandeslots(IdCommande, IdLot) " & _
            "select Commandes.IdCommande, " & Me.IdLot & " as IdLot " & _
            "from Commandes left join CommandesLots on Commandes.IdCommande = CommandesLots.IdCommande " & _
            "where Choix and IsNull(CommandesLots.IdCommande) ;" ' on choisit les commandes pas encore ajoutéées
 
    dbs.Execute strSQL, dbFailOnError ' insertion des commandes choisies dans la tables commandeslots
 
    Me.Refresh ' rafraîchit le formulaire et donc les sous-formulaires

Le sous-formulaire SF_Commandes permettant de choisir les commandes est filtré avec le critère choix = false, pour ne garder que les commandes qui n'ont pas encore été sélectionnées.

Je vous joins la base pour que vous compreniez mieux.

[Kyndred40]

Bonjour,



Je vous joins la base pour que vous compreniez mieux.

Bonjour,

Et bien merci beaucoup de chercher à m'aider j'ai donc fait une courte vidéo pour bien exposé mon problème je pense que sa sera beaucoup plus simple à comprendre.
voici le liens :

Ha oui aussi à un moment les 2 formulaires qui semble identique sont censé être dans un même formulaire et donc devenir des sous formulaire seulement, ceci ne fonctionne plus après à cause des requête de tri donc pour le moment je laisse comme cela.

[User]

Ok, je regarde ça dans la soirée.
A+

[User]

Voilà, j'ai supprimé dans mon modèle de départ la table CommandesLots, et ajouté une table T_DetailCommande pour gérer les articles.

J'ai aussi ajouté dans cette table les colonnes IdLot et choix : au départ la colonne IdLot doit être vide, et la colonne Choix à false.

Pour les tests, il faut ouvrir le formulaire F_ListeCommandes, choisir les différentes commandes, puis appuyer sur "Créer un lot..".

Il ouvre alors le formulaire de planning avec la liste des lots à gauche (y compris le dernier créé), et en cliquant sur un lot on a son détail à droite.

Le code pour créer le lot :

Code VBA :

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
 Dim dbs As DAO.Database, strSQL As String, rst As DAO.Recordset
    Dim IdLot As Long
 
    IdLot = Nz(DMax("IdLot", "T_Lots"), 0) + 1
 
    Set dbs = CurrentDb ' référence à la base courante
 
    Set rst = dbs.OpenRecordset("T_Lots")
    ' créer un nouveau lot dans la table
    rst.AddNew
    rst!IdLot = IdLot
    rst!NumeroLot = "N° " & IdLot
    rst.Update
 
    ' on met à jour les colonnes idLot et choix
    strSQL = "update T_DetailCommandes set IdLot= " & IdLot & _
             " where Choix and IsNull(IdLot);"
 
    dbs.Execute strSQL, dbFailOnError ' mise à jour de la colonne IdLot dans la table T_DetailCommandes pour les commandes choisies
 
    Me.Refresh ' rafraîchit le formulaire et donc les sous-formulaires
    DoCmd.Close acForm, "F_PlanningLots"
    DoCmd.OpenForm "F_PlanningLots" ' ouvre le formulaire de planning à la suite
    '...

Ci-joint la base actuelle, je regarderai demain pour améliorer certains points.

[Kyndred40]

Voilà, j'ai supprimé dans mon modèle de départ la table CommandesLots, et ajouté une table T_DetailCommande pour gérer les articles.



Ci-joint la base actuelle, je regarderai demain pour améliorer certains points.

Merci beaucoup !! dans la BDD jointe il n'y a pas les formulaire fin je les vois quand je vais dans l'onglet Visualbasic le code.. mais pas la possibilité de les ouvrir comme s'il n'existait pas. J'ai regarder le VBA merci beaucoup de vouloir m'aider autant parce que j'ai l'impression au travers du code que vous avez fait un travail de dingue merci !

[User]

Bonjour,

Je ne comprends pas quand vous parlez de formulaire de fin

Si c'est le planning, alors normalement il s'ouvre après avoir choisis les commandes et appuyé sur le bouton "créer un lot..".

Il s'agit en fait du formulaire F_PlanningLots.

Cdlt

[Kyndred40]

Pardon je m'exprime peut être mal je disais simplement que je ne vois pas les formulaires dans la BDD que vous m'avez envoyer. le mot fin n'était pas dans ce contexte.

[User]

Personnellement j'ai ça dans la fenêtre base de données, et après avoir affiché tous les objets de la base :

[Kyndred40]

En effet merci beaucoup c'est bon aha je ne connaissais pas ce bouton merci beaucoup!!

Franchement un ENORME MERCI vous me sauvez !!! Merci beaucoup !!!!

[Kyndred40]

Je fixerai l'état en "Résolu" lorsque j'aurais réussi à adapté ceci pour mes formulaires... Je dois sans doute être complètement débile mais cela fait 1 semaine que j'essai de l'adapté pour mon truc.

[User]

Bonjour,

Certainement pas.

On met la table T_Lots de côté.

Avez-vous réalisée la requête correspondant à R_ListeCommandes qui doit être la source du sous-formulaire SF_ListeCommandes ?

[Kyndred40]

Oui je l'ai adapté pour moi c'est à dire que j'ai mes enregistrements, j'ai donc bien le formulaires F_ListeCommandes de fonctionnel (manque que le bouton Creer Lot marche)

Disons que le bouton créer Lot marche à moitié un enregistrement se créer dans la table mais rien ne s'affiche mais je pense avoir trouver la solution je vais supprimer la table T_Commande qui m'embrouille dans chaque requête et seulement garder t_DetailCommandes et T_Lots.

[User]

Il faut bien vérifier le champ IdLot de la table T_DetailCommande, avant le choix de la commande, il faut que ce champ IdLot soit vide :

Code VBA :

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

1
2
3
4
5
    ' on met à jour les colonnes idLot et choix
    strSQL = "update T_DetailCommandes set IdLot= " & IdLot & _
             " where Choix and IsNull(IdLot);"
 
    dbs.Execute strSQL, dbFailOnError ' mise à jour de la colonne IdLot dans la table T_DetailCommandes pour les commandes choisies

[User]

Bonjour,

Voici une version simplifiée avec uniquement les tables T_Lots et T_DetailCommandes.

J'ai modifié le type du champ IdLot dans la table T_Lots : NuméroAuto -> Entier long.

[Kyndred40]

Bonjour,

Merci beaucoup je vais regarder pour l'adapter maintenant et cela devrais me faciliter la tâche un grand merci.
Je ne vous répond que le lendemain car vu que je suis en alternance je ne suis pas tout le temps en entreprise voilà voilà désolé.

[Kyndred40]

Je suis actuellement entrain de travailler dessus et je me rend compte d'une chose, lorsque je laisse le champ IdLot dans la requête R_ListeCommandes avec pour critère Est Null (pas coché), je n'ai pas tous les champs de ma table qui s'affiche dans le formulaire F_ListeCommandes alors que si je l'enlève oui hors si je l'enlève le bouton Créer lot ne marche pas et me redirige juste vers le formulaire des lots.

Ducoup je chercher comment je pourrais faire pour que tous les champs s'affiche lorsque IdLot est présent dans la requête.
Je ferais une vidéo pour montrer le problème si jamais ce soir.

[Kyndred40]

Je viens de me rendre compte de ma connerie... Dans la table concernée IdLot comporté une valeur alors qu'on affiche que les "Null" donc ces bon normalement du moins pour le moment