Salut ,

Voilà, j'ai récupéré un exemple de treeview sur le Web, et je l'ai modifié, mais cela ne fonctionne pas ????

Alors peut-être que quelqu'un connait la solution ?
Mon code est le suivant :
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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Private Sub Form_Load()
 
Dim ctl As TreeView, clients As DAO.Recordset, db As DAO.Database
Dim prbar As ProgressBar
Dim res As DAO.Recordset, remise As DAO.Recordset
Dim k As Integer, i As Integer, j As Integer
 
Set db = CurrentDb
Set prbar = Me!prog.Object
 
prbar.Min = 0
Set perimetre1 = db.OpenRecordset("select count(*) as n from supra_table_perimetre")
If perimetre1!N <> 0 Then prbar.Max = perimetre1!N
perimetre1.Close
 
Set ctl = Me!tree.Object
 
Set perimetre1 = db.OpenRecordset("select  id_perimetre, lib_perimetre from supra_table_perimetre")
i = 1
j = 1
k = 1
 
While Not perimetre1.EOF
 
    ctl.Nodes.Add , , perimetre1!id_perimetre & " : " & perimetre1!lib_perimetre
 
    Set perimetre2 = db.OpenRecordset("SELECT supra_table_perimetre_1.id_perimetre, supra_table_perimetre_1.lib_perimetre " _
    & "FROM supra_table_perimetre INNER JOIN supra_table_perimetre AS supra_table_perimetre_1 ON supra_table_perimetre.id_perimetre = supra_table_perimetre_1.id_division " _
    & "WHERE (((supra_table_perimetre_1.id_perimetre)<>[supra_table_perimetre]![id_perimetre]) AND ((supra_table_perimetre_1.niveau)>99));")
 
    While Not perimetre2.EOF
     ctl.Nodes.Add perimetre2!id_perimetre & " : " & perimetre2!lib_perimetre
     perimetre2.MoveNext
     k = k + 1
    Wend
    perimetre2.Close
    If prbar.Value < prbar.Max Then prbar.Value = i
    i = i + 1
    perimetre1.MoveNext
Wend
 
prbar.Value = 0
perimetre1.Close
db.Close
Arbo.Enabled = True
Arbo.SetFocus
Afficher.Enabled = False
 
End Sub
Cela bloque à la ligne :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
ctl.Nodes.Add perimetre2!id_perimetre & " : " & perimetre2!lib_perimetre
D'avance merci pour vos réponses.

@+.