Discussion :

[fremarnat]

Bonjour,

je souhaite remplir une table T_Stock dans laquelle se trouve des articles toutes catégories confondues. Cette table est remplie à l'aide d'un formulaire F_Entree_Stock.
Sur F_Entree_Stock, une zone de liste déroulante "Catégorie" affiche les catégories auxquelles l'article mis en stock devra être rattaché. La particularité réside dans la pluralité des tables_articles, T_Art1, T_Art2...
Comment faire apparaitre dans une zone de liste déroulante "Article" la table T_Art1 si la catégorie 1 est choisie, la table T_Art2 si la catégorie 2 est choisie, ...

Merci

[Robert1957]

Bonjour fremarnat,
Je crois que la solution ce trouve là: http://argyronet.developpez.com/offi...ectitemlistAB/
Bonne journée

[fremarnat]

Bonsoir Robert1957,

j'avais vu ce tuto, mais dans mon cas il y plus que 2 tables puisqu'il y en a autant de que catégories.

Cela pourrait s'écrire :

Si CmbCatégorie = Cat1 alors T_Art1 SinonSi CmbCatégorie = Cat2 alors T_Art2 SinonSi ...

[Robert1957]

Bonjour fremarnat,
C'est le même principe mais tu fonctionnes avec un select case:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Categorie_AfterUpdate()
 
    Dim strSQL As String
    Select Case Categorie
        Case Cat1
            strSQL = "SELECT CléPrimaire.T_Art1, AutreChamp.T_Art1 FROM T_Art1;"
        Case Cat2
            strSQL = "SELECT CléPrimaire.T_Art2, AutreChamp.T_Art2 FROM T_Art2;"
        Case Cat3
            strSQL = "SELECT CléPrimaire.T_Art3, AutreChamp.T_Art3 FROM T_Art3;"
    End Select
    Me.Article.RowSource = strSQL
 
End Sub

Bonne journée

[Tofalu]

Bonsoir Robert1957,

j'avais vu ce tuto, mais dans mon cas il y plus que 2 tables puisqu'il y en a autant de que catégories.

Cela pourrait s'écrire :

Si CmbCatégorie = Cat1 alors T_Art1 SinonSi CmbCatégorie = Cat2 alors T_Art2 SinonSi ...

Est-ce qu'il est vraiment judicieux d'avoir autant de tables que de catégories ? Que ce passera t-il si, demain, une nouvelle catégorie est créée ?

Votre choix d'implémentation de l'héritage est peut-être judicieux, mais il faut vous assurer qu'il correspond réellement le mieux aux besoins. Si déjà vous bloquez sur l'insertion, tout me laisse penser que l'analyse n'a pas été poussée à fond.

[fremarnat]

Merci de m'avoir aiguillé sur l'instruction "Select Case" pour modifier la propriété "RowSource" de ma liste déroulante "Articles". Cela fonctionne parfaitement.
Mon algo devient :

Code :

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

1
2
Pour le cas CmbCatégorie = Cat1 alors CmbArticle.RowSource = T_Art1.Nom
Pour le cas CmbCatégorie = Cat2 alors CmbArticle.RowSource = T_Art2.Nom

Mon cas est plus simple que le tuto cité qui nécessite d'affecter à chaque métier un numéro de catégorie nécessaire pour faire le tri par la requête.