Discussion :

[fab.85]

Bonjour,
j'ai suivi le tuto d'ARGYRONET "Concevoir une liste qui en alimente une autre"
ici:http://argyronet.developpez.com/offi...ectitemlistAB/

-Ma gestion de stock comprend un FArticle qui comprend pour chaque article(2300) une catégorie et une sous-catégorie. Le principe de la liste catégorie qui alimente la sous-catégorie fonctionne très bien sauf que j'aimerais pouvoir procéder article par article.

-Pour l'instant lorsque je choisi la catégorie de l'article 1 (Électricité) tous les champs se mettent à Électricité. Idem pour les sous-catégorie.
Un peu gênant...

D'avance merci.

[Philippe PONS]

Bonjour,

peut être pourrais tu envoyer la partie de ta base qui pose problème, pour qu'on puisse regarder...
Cordialement,

[fab.85]

Bonjour,

voici une capture...


http://exapics.fr/files/get/PyeTAhymKu/farticle.png

ce qui me pose problème c'est que je n'arrive pas à sélectionner une catégorie différente pour chaque article. (Idem pour les sous-catégories).

Le choix de la catégorie de l'article 1 se recopie pour tous les autre articles.

merci.

[Philippe PONS]

Je ne voit pas à quoi servent ces 2 listes déroulantes.
A supposer que ça marche, tu sélectionnes une catégorie, une sous-catégorie et puis, que doit il se passer?

En d'autres termes, à quoi sert ton formulaire?

[fab.85]

Bonjour,

Ces deux listes sont purement informatives. J'obtiens une liste différente de sous-catégories en fonction du choix de la catégorie et j'aimerais pouvoir le faire pour chaque enregistrement si possible.

Voici le code d'Argyronet que j'ai adapté:(Nomage)

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
Private Sub cmbCategorie_AfterUpdate()
Dim lngIDCat   As Long
Dim SQL        As String
 
  '' Vérifie que l'on a cliqué sur une catégorie pour éviter le NULL
  If Not IsNumeric(Me!cmbCategorie) Then Exit Sub
  '' Affecte la valeur de IDCategorie à la variable lngIDCat
  lngIDCat = Me!cmbCategorie
  '' Construit la chaîne SQL avec la catégorie concernée
  SQL = "SELECT N°Scat, NomSousCategorie, N°Categorie FROM TSousCategorie WHERE N°Categorie =" & lngIDCat & " ORDER BY NomSousCategorie"
  '' Affecte la chaîne SQL à la liste des métiers
  cmbSousCategorie.RowSource = SQL
  '' Donne le focus la liste des métiers
  cmbSousCategorie.SetFocus
  '' Déroule la liste des métiers
  cmbSousCategorie.Dropdown
End Sub

Ce formulaire me sert uniquement à référencer les articles qui passent dans mon magasin.

D'avance merci.