Discussion :

[othmanepf]

Bonjour,
Il y a deux tables principales : T_Ligne et T_Machine
Il y a 10 lignes et ~ 5 Machines par ligne
Je veux créer un formulaire dans lequel je choisis d'abord la ligne dans une liste déroulante, ceci devrait filtrer la liste suivantes (Machines), ensuite le choix de cette machine me permet d'imprimer un tableau.

Pouvez-vous m'aider s'il vous plaît?

Othmane

[bertiny]

Bonjour
Pouvons-nous connaitre la relation qui lit T_ligne et T_machine?

[othmanepf]

Chaque ligne contient 5 machines,
La table ligne contient : ID, Ligne, Emplacement
La table Machine : ID, Code, Ligne

Une relation relie [T_Machine].[Ligne] à [T_Ligne].[Ligne]*

[bertiny]

D'accord. Peux-tu nous poster une capture de ton formulaire? Et nous donner un petit exemple de ce que la Première liste déroulante produit et ce que tu souhaite que la deuxième produise.

Cordialement.

[othmanepf]

Re-bonjour




Le contenu de la liste "Ligne" vient tout simplement de la table T_Ligne
Le contenu de la liste "Machine" est le suivant : SELECT [T_Machine].[ID], [T_Machine].[Code_equi] FROM [T_Machine] WHERE [T_Machine].[Ligne]=Forms!F_Choix.lstligne; avec Forms!F_Choix.lstligne correspondant au choix de la 1ère liste.

Le souci vient de la récupération de la valeur choisie dans la liste, parce que quand je met (par exemple) "Ligne 14" à la place de Forms!F_Choix.lstligne ==> J'obtient un résultat, alors que si je choisis "Ligne 14" dans la liste, je n'obtient rien.

[bertiny]

La requête de ta liste Machine doit être ceci

Code :

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

1
2
SELECT T_Machine.ID, T_Machine.Code_equi FROM T_Machine
WHERE (((T_Machine.ID) = [Formulaires]![F_Choix]![lstligne]));

Nous allons donc aussi donner le nom à la deuxième liste. on va l'appeler simplement machine.
Tu ouvres le code VBA de la liste machine et tu mets ceci

Code :

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

1
2
3
4
'code permettant de mettre à jour la deuxième liste dès changement de la valeur de la première
Private Sub lstligne_Change ()
       Me.machine.Requery
End Sub

Cordialement.

[othmanepf]

Merci, j'ai enfin un résultat,
En revanche, je n'obtient qu'une seule machine (la 1ère) je suis sensé avoir une liste (>5 machines)

[bertiny]

Dans ce cas tu écriras plutôt ceci

Code :

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

1
2
SELECT T_Machine.ID, T_Machine.Code_equi FROM T_Machine INNER JOIN T_Machine.Ligne = T_Ligne.ID
WHERE (((T_Ligne.ID) = [Formulaires]![F_Choix]![lstligne]));

En allant dans la logique où à chaque fois que tu inscrits une machine tu choisis simplement sa ligne. Autrement dit, ligne dans la table T_Machine est une liste déroulante et son type de données est donc Numérique.

Cordialement.

[othmanepf]

Re-bonjour Bertiny,

Je n'obtient rien avec le dernier code,

[bertiny]

Bonjour
regardes un peu çà Machine.rar

[othmanepf]

Merci beaucoup Bertiny, ça m'aide vraiment