Discussion :

[grimgrim]

Bonsoir,

Je commence avec le control TreeView et j'ai quelques difficultés malgré tout ce que j'ai pu lire.

j'ai donc décidé de mettre en application pour faire au moins apparaître un parent. Mais je n'arrive pas à le faire apparaître.

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
25
26
27
28
Option Compare Database
 
Public Sub ActualiseTV()
 
Dim db As Database, rs As Recordset
Dim tv As MSComctlLib.TreeView
Dim x As Node
 
On Error Resume Next
    Set db = CurrentDb
 
    'Effacer tous les noeuds
    TreeView1.Nodes.Clear
 
    'Création de la liste des noeuds
    Set rs = db.OpenRecordset("SELECT DISTINCT Code Article FROM Nomenclature;")
    If rs.RecordCount <> 0 Then
        rs.MoveFirst
        While Not rs.EOF
            Set x = TreeView1.Nodes.Add(, , , "TDF150870") 'Ajouter un noeud de niveau "racine"
            rs.MoveNext
        Wend
    End If
    rs.Close
    Set rs = Nothing
 
 
End Sub

je devrais avoir sur chaque parent "TDF150870"

Merci pour votre aide

[Jean-Philippe André]

Salut,

tu trouveras de la lecture sur la partie sources et un tuto parmi d'autres

http://access.developpez.com/sources/?page=Treeview

http://jacma.developpez.com/treeview/

[grimgrim]

justement j'ai lu les deux et beaucoup d'autres

mais je bloque !

[Gdal]

Bonjour,

Il manque une clé sur chaque noeud:

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
25
26
27
28
Option Compare Database
 
Public Sub ActualiseTV()
 
Dim db As Database, rs As Recordset
Dim tv As MSComctlLib.TreeView
Dim x As Node
 
On Error Resume Next
    Set db = CurrentDb
 
    'Effacer tous les noeuds
    TreeView1.Nodes.Clear
 
    'Création de la liste des noeuds
    Set rs = db.OpenRecordset("SELECT DISTINCT Code Article FROM Nomenclature;")
    If rs.RecordCount <> 0 Then
        rs.MoveFirst
        While Not rs.EOF
            Set x = TreeView1.Nodes.Add(, ,rs![Code Article] , "TDF150870") 'Ajouter un noeud de niveau "racine"
            rs.MoveNext
        Wend
    End If
    rs.Close
    Set rs = Nothing
 
 
End Sub

Il est conseillé de ne pas mettre d'espace dans les noms de table, de champs de table, ........

Gddal

[grimgrim]

Bonsoir

merci pour les infos
Par contre, je ne vois rien s'afficher ?

[grimgrim]

comme je n'y arrive pas, j'ai mis la base de données en pièce jointe

et dans le module 3, j'ai réduit au strict minimum le code pour faire apparaître le parent, mais toujours rien

Pouvez vous m'aider ?