Discussion :

[spitfire26]

Bonsoir,
Je souhaite faire une sélection d'un produit dans un formulaire, à partir d'une table Produits ou ils sont regroupés en Familles et sous familles.
J'aimerai pour être plus rapide que cette sélection se fasse en sélectionnant 3 listes déroulantes :
La 1ere correspondant à la famille de produit,
La 2nde correspondant à la sous famille de produit de cette famille,
La 3eme correspondant aux produits de cette sous famille.

Merci d'avance pour votre aide.

[spitfire26]

Bonjour,

Pour vous aider j'ai fait une capture écran de ma table Produits.

Dans mon Formulaire de recherche j'aimerai qu'après avoir choisit la famille, je puisse choisir la sous famille, puis le produit dans cette sous- famille.

Une recherche en mode cascade finalement

Merci

[User]

Bonjour,

Je verrai une succession de codes sur les événements après maj (afterUpdate) des listes :

Au départ, la procédure de mise à jour du formulaire :

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
Public Sub MajListeArticles()
Dim leSQL As String
Dim leWhere As String
 
   leWhere = "where (RefArticle<>'') "
 
 
  If Nz(Me.FamilleArticle, "") <> "" Then
      leWhere = leWhere & " and (FamilleArticle='" & Me.FamilleArticle & "')"
   End If
 
   If Nz(Me.SousFamilleArticle, "") <> "" Then
      leWhere = leWhere & " and (SousFamilleArticle='" & Me.SousFamilleArticle & "')"
   End If
 
   If Nz(Me.RefArticle, "") <> "" Then
      leWhere = leWhere & " and (RefArticle='" & Me.RefArticle & "')"
   End If
 
   leSQL = "select * From T_Article " & leWhere & " Order By RefArticle;"
 
   Me.RecordSource = leSQL
 
End Sub

Pour la liste des familles d'articles :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub FamilleArticle_AfterUpdate()
 
Me.SousFamilleArticle.RowSource = "SELECT T_SousFamilleArticle.LibelleSousFamille FROM T_SousFamilleArticle where CodeFamille like '" & Nz(Me.FamilleArticle.Column(1),"") & "' ORDER BY LibelleSousFamille;"
 
Me.RefArticle.RowSource = "SELECT RefArticle FROM T_Article where FamilleArticle like '" & Nz(Me.FamilleArticle.Column(1),"") & "' ORDER BY RefArticle;"
 
Call MajListeArticles
 
End Sub

Pour la liste des sous-familles d'articles :

Code :

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

1
2
3
4
5
6
7
Private Sub SousFamilleArticle_AfterUpdate()
 
Me.RefArticle.RowSource = "SELECT RefArticle FROM T_Article where SousFamilleArticle like '" & Nz(Me.SousFamilleArticle.Column(1),"") & "' ORDER BY RefArticle;"
 
Call MajListeArticles
 
End Sub

Pour la liste des articles :

Code :

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

1
2
3
4
Private Sub RefArticle_AfterUpdate()
Call MajListeArticles
 
End Sub

Tout ceci à adapter...

Cdlt,
Denis

[spitfire26]

Merci pour votre reponse je vais essayer votre solution et je vous tiens informé

[spitfire26]

Pour la liste des familles d'articles :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub FamilleArticle_AfterUpdate()
 
Me.SousFamilleArticle.RowSource = "SELECT T_SousFamilleArticle.LibelleSousFamille FROM T_SousFamilleArticle where CodeFamille like '" & Nz(Me.FamilleArticle.Column(1),"") & "' ORDER BY LibelleSousFamille;"
 
Me.RefArticle.RowSource = "SELECT RefArticle FROM T_Article where FamilleArticle like '" & Nz(Me.FamilleArticle.Column(1),"") & "' ORDER BY RefArticle;"
 
Call MajListeArticles
 
End Sub

Si je comprends je dois creer une table sous Famille?

[User]

Bonsoir,

Pour la liste des familles d'articles :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub FamilleArticle_AfterUpdate()
 
Me.SousFamilleArticle.RowSource = "SELECT T_SousFamilleArticle.LibelleSousFamille FROM T_SousFamilleArticle where CodeFamille like '" & Nz(Me.FamilleArticle.Column(1),"") & "' ORDER BY LibelleSousFamille;"
 
Me.RefArticle.RowSource = "SELECT RefArticle FROM T_Article where FamilleArticle like '" & Nz(Me.FamilleArticle.Column(1),"") & "' ORDER BY RefArticle;"
 
Call MajListeArticles
 
End Sub

Si je comprends je dois creer une table sous Famille?

Oui, tout à fait, il faut créer une table T_SousFamilleArticle comme dans cet exemple !

Cdlt,