Affichage de valeur récursive dans une zone de liste déroulante

Version imprimable

1 pièce(s) jointe(s)

Bonjour à tous et merci de l'intérêt que vous porterez à ma requête...

J'essaie désepérément d'afficher des valeur récursive dans une liste déroulante mais je n'y arrive pas

J'ai un formulaire avec un control nommé [L_Fam_1] qui doit afficher la liste des familles de produits avec arborescence.

MLD :
categorie(#categorie_id, etc...)
categorie_xref(#categorie_parent_id, #category_child_id)

Voici ma fonction récursive :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 Function CategoryList(MyParent As Long) As Variant Dim MyCount As Integer Dim sql, MyName As String Dim rs As Recordset Dim MyId As Long sql = "SELECT loc_vm_category.category_id, loc_vm_category.category_name " _ & "FROM loc_vm_category INNER JOIN loc_vm_category_xref " _ & "ON loc_vm_category.category_id=loc_vm_category_xref.category_child_id " _ & "WHERE (((loc_vm_category_xref.category_parent_id)= " & MyParent & ")) " _ & "ORDER BY loc_vm_category.list_order; " Set rs = CurrentDb.OpenRecordset(sql) MyCount = rs.RecordCount rs.MoveFirst If MyCount > 0 Then Do While rs.EOF MyId = rs("category_id") MyName = rs("category_name") CategoryList = Array(MyId, MyName) rs.MoveNext Loop rs.Close Set rs = Nothing Else CategoryList (MyId) End If Return End Function
Comment faire pour afficher le résultat dans ma zone de liste ?

Je vous met un exemple de ce que je veux avoir en image.

Merci beaucoup pour votre aide
PS : J'utilise Access 2007

19/03/2008, 13h22
naphta

Récursivité

Bonjour,

C'est juste 2 propositions, mais on est certain d'aboutir.

Sol 1
Avec ListBox, on positionne originesource = liste de valeurs, le résultat dans un tableau à 2 dimensions
puis remplir le listbox ligne par ligne

Sol2
Un bouton d'appel à un formulaire avec un treeview qui retourne la valeur de la branche sélectionnée.

a+
19/03/2008, 13h48
leadri

Hello, merci pour ta réponse, peux tu développer ta réponse sur la solution 1, car j'y ai passé la matinée et la seule solution que j'ai trouvé c'est une mise à jour de ma listbox après sélection d'un item mais c'est pas ce que je veux faire :(

Merci beaucoup :oops:
19/03/2008, 13h53
Invité

Bonjour

Je serais toi j'utiliserais la solution 2 de naphta, c'est le TreeView la seule solution dans ton cas.

Tu trouveras des posts qui en parle.

Starec
19/03/2008, 14h08
leadri

Citation:

Envoyé par Starec

Bonjour

Je serais toi j'utiliserais la solution 2 de naphta, c'est le TreeView la seule solution dans ton cas.

Tu trouveras des posts qui en parle.

Starec

Merci, je vais m'y pencher car je n'ai pas le niveau suffisant en developpement pour le faire illico.

Si y'a d'autres propositions n'hésitez pas à me le faire savoir... ;)

Hello,

J'ai réussi à mettre en place mon Treeview, mais j'ai un soucis, je n'arrive pas à récupérer la valeur de mon index.

Je n'ai pas de propriété événement "Sur Clic", juste :

-> Sur Maj
-> Sur Entree
-> Sur Sortie
-> Sur Réception Focus
-> Sur Perte Focus

J'ai essayé ce petit code sur chaque événement de mon treeview mais ça marche pas :(
Code:

1 2 3 4 5 6 7 8 9 10 11 Dim currentNode As MSComctlLib.Node 'parcours du node courrant Dim MyFam As Long 'Pour chaque node contenu dans la collection nodes de ton objet treeview For Each currentNode In MyTView.Nodes 'Traitement du node courrant. Exemple compter les nodes cochés If currentNode.Checked Then MyFam = currentNode.Key MsgBox MyFam End If Next
Les Références Activées sont :
MS DAO 3.6 Object Library
OLE Automation
MS ActiveX Data Object 2.1 Library
Microsoft Common Control 6.0 (SP6)

Merci pour votre aide

20/03/2008, 18h43
naphta

Le TRiViou
Bonjour,

A ta place je ne met pas de vase à cocher, tu voulais juste "un parmi N", donc un clique.

l'évènement pour le treeview c'est cela :
Code:

1 2 3 4 Sub treeview1_NodeClick(ByVal Node As Object) tu captures la valeur : Node.Key
Faut appeler le formulaire avec le treeview en mode dialog et qu'il te retourne la valeur sélectionnée. Là je ne sais pas si tu sais le faire ?
a+
20/03/2008, 19h54
leadri

bah non, en vérité j'ai jamais manipulé d'objet activex, c'est la première fois
et le soucis c'est que je sais pas comment définir la procédure NodeClick dans les propriété de mon treeview car j'ai rien qui ressemble à une truc style "Sur Clic ou Sur Doucle clic comme sur les contrôles

Siouplé, aidez_moi !!!! :hola:
21/03/2008, 09h13
naphta

Ok

Bonjour leadri,

Je vais t'envoyer un zip avec du code faut juste me laisser le temps de te le préparer.

1 On a besoin d'une valeur sélectionnée dans un formulaire appelé en mode "dialog"
2 de remplir un treeview et d'avoir le résultat de la valeur sélectionné dans le treeview.

a+
21/03/2008, 09h24
leadri

c'est vraiment très gentil à toi naphta, merci bcp pour ton aide. :ange:
j'attend ton zip,
en attendant, j'y retourne :bug: :D
21/03/2008, 10h24
Domi2

Bonjour,

Citation:

Je n'ai pas de propriété événement "Sur Clic", juste :

-> Sur Maj
-> Sur Entree
-> Sur Sortie
-> Sur Réception Focus
-> Sur Perte Focus

Si, tu as toutes ces propriétés. Alt + F11 pour aller dans l'éditeur, tu sélectionnes le module du formulaire dans lequel tu as ton Treewiev.

En haut, dans la zone de liste ou il y'a "Général", tu fais défiler et tu sélectionnes ton Treewiev, puis sur la droite tu déroules la zone de liste.

Tu fais un double clic sur l'événement que tu veux et ça génère la Sub correspondante.

Domi2
21/03/2008, 11h41
leadri

Citation:

Envoyé par Domi2

Bonjour,

Si, tu as toutes ces propriétés. Alt + F11 pour aller dans l'éditeur, tu sélectionnes le module du formulaire dans lequel tu as ton Treewiev.

En haut, dans la zone de liste ou il y'a "Général", tu fais défiler et tu sélectionnes ton Treewiev, puis sur la droite tu déroules la zone de liste.

Tu fais un double clic sur l'événement que tu veux et ça génère la Sub correspondante.

Domi2

Punaise, c'est qu'il a raison en plus !
Pourquoi j'y ai pas pensé plus tôt ??? :sm:
Merci beaucoup !!! (hum; hum, j'ai encore bcp de progrès à faire en vb.... :oops:)
Bon je viendrai mettre mon petit bout de code quand j'aurais terminé :D

Le code

Bonjour,
Voici le code qui permet l'appel d"un formulaire quelconque en mode dialog et de récupérer la valeur.
Il faut après cela le formulaire doit avoir un contrôle caché qui passe la donnée, dans ton cas un formulaire avec treeview.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
 
 
'Structure de l'appel : Me.lenomducontrol c'est le controle qui récupère la  'donnée sélectionnée 
'nomdeformulaire est le formulaire de choix utilisateur
 
cherche Me.lenomducontrol, "nomdeformulaire"
 
Public Sub cherche(ctl As control, dekoi As String)
 
Dim passele As Variant
On Error GoTo CapteErr
 
    passele = ctl
    ctl = prendle(passele, dekoi)
 
Sortie:
    Exit Sub
CapteErr:
  Select Case err.Number
    Case Else
      MsgBox "Erreur " & err.Number & ": " & err.Description, vbCritical, "Attention"
End Select
Resume Sortie
 
End Sub
 
'----------------------------------------
 
Public Function prendle(var As Variant, leformu As String) As Variant
 
Dim varTemp As Variant
 
On Error GoTo CapteErr
 
    varTemp = IIf(IsMissing(var), "0", var)
 
    DoCmd.OpenForm FormName:=leformu, WindowMode:=acDialog, OpenArgs:=varTemp
    If IsLoaded(leformu) Then
        prendle = Forms(leformu).laliste
        DoCmd.Close acForm, leformu
    Else
        If Not IsNull(varTemp) Then
            prendle = varTemp
            Else
            prendle = Null
        End If
    End If
 
 
Sortie:
    Exit Function
CapteErr:
  Select Case err.Number
    Case Else
     MsgBox "Erreur " & err.Number & ": " & err.Description, vbCritical, "Attention" 
 End Select
Resume Sortie
 
End Function

Si des personnes lisent ce code et trouvent quelques améliorations je prends.

Merci

21/03/2008, 17h38
leadri

1 pièce(s) jointe(s)

Merci à tous

Merci à tous pour votre aide, grâce à vous j'ai appris à mettre en place un treeview et le résultat est plus que satisfaisant en ce qui me concerne :D
21/03/2008, 19h21
naphta

Très beau

Bonsoir,

Bravo super form très élégant me plait moi !!

Bon apparemment le Treeview est dans le form bon faut tenir compte de mode appel.

Allez l'OM
a+