Discussion :

[zoom61]

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.

@+.

[Elwe]

C'est quoi le message ? :

[zoom61]

Le message s'est élément introuvable !

[Elwe]

Il ne trouve pas l'element pere ..
Tu dois mettre en reference l'element pere auquel tu veux ajouter les elements

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
i = 1
Set x = ocxTree.Nodes.Add(, , "M", "Menu Principal")
Do
    Set x = ocxTree.Nodes.Add("M", tvwChild, "cle Fils " & CStr(i), "Libelle Fils " & CStr(i))
    i = i + 1
    If i > 10 Then Exit Do
Loop

[zoom61]

Je ne comprends pas, il n'arrive pas à trouver quel élément père ???

Que dois-je faire avec le code que tu m'as envoyé ?

Merci.

[Elwe]

C'est un exemple, pour te montrer comment tu dois faire reference au pere pour inserer un noeud. le message d'erreur indique qu'il ne trouve pas la cle du noeud pere.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Set x = ocxTree.Nodes.Add(, , "M", "Menu Principal")

cree la racine.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Set x = ocxTree.Nodes.Add("M", tvwChild, "cle Fils " & CStr(i), "Libelle Fils " & CStr(i))

Cree tous les noeuds fils de la racine.
"M" --> indique de creer un fils de "Menu Principal", tu dois y mettre la cle du pere.
tvwChild --> dit que c'est un fils
"cle Fils " & CStr(i) --> est la cle de ce fils.
"Libelle Fils " & CStr(i) --> est le libelle du fils.

Toute les cles doivent etre unique.

[zoom61]

Ok, cela fonctionne correctement pour le fils.

Mais j'ai un autre problème en ce qui concerne le père, car le texte que je voudrai voir apparaître n'est pas visible ???

As-tu l'explication :

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
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)>299)) ")
    While Not perimetre2.EOF
     ctl.Nodes.Add i, tvwChild, "lrem" & k, 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

Le problème est que je ne sais pas comment faire apparaître le texte :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ctl.Nodes.Add , , perimetre1!id_perimetre & " : " & perimetre1!lib_perimetre

Mais si je bouge

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

, ,

cela ne fonctionne plus !!!

Merci.[/code]

[Elwe]

Je pense qu'il te faut un noeud racine

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Set x = ctl.Nodes.Add(, , "R", "Racine")

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
ctl.Nodes.Add "R",tvwChild , perimetre1!id_perimetre & " : " & perimetre1!lib_perimetre

[zoom61]

C'est bon j'ai réussi.
Je te remercie.