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