Treeview en VBA

Version imprimable

15/12/2003, 17h43
Patrick ROBERT

Treeview en VBA

Doté d'un :roll: QI assez faible mais gentil garçon, :roll:
j'ai recherché sur le forum toutes les références aux treeviews:
et là je tombe sur un :lol: super exemple de Zemenace répondant à Soph' en 2002 :lol:

Oui mais voilà, j'ai beau rajouter un "formulaire1" dans comptoirs.mdb sous access 2000 et rajouter un bouton OK nommé "Commande0" sur l'évènement clic duquel j'ai mis le code Zemenacien , un treeview nommé ocxTree et rien ne se passe ou plutôt message d'erreur: "attribut incorrect dans une proc..."

Ce serait super Zemenace, si tu pouvais faire un exemple comme la recherche multi-critère de Cafeine, J'abuse?!?

Pat
15/12/2003, 18h36
mat.M

Bonjour,
si tu as un message d'erreur , il faut diagnostiquer d'où vient l'erreur avec un déboguage pas-à-pas.
une propriété du contrôle Tree View ne doit pas être valide

Bonjour Mat.M,
Il ne s'agit probablement pas d'une des propriétés du treeview,
car çà plante (en access2000) dès le début dès la déclaration de WithEvents qu'il ne supporte pas, c'est dommage, le script me plaisait bien, mais soit c'est du VB pur, soit c'est compatible Access 2002 et pas 2000.

Ci-dessous le script de ZeMenace que j'ai essayé d'incorporer dans Comptoir.mdb

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
Private Sub Commande0_Click()
Dim WithEvents rsCli As ADODB.Recordset
Dim WithEvents rsEmp As ADODB.Recordset
Dim WithEvents rsCde As ADODB.Recordset
 
Dim sup As String
 
'Private Sub cmdUpdate_Click()
        'déclaration des variables
        Dim x As Node
        'Réaffectation des recordsets pour mise à jour
        sup = MsgBox("des recordsets", vbCritical + vbYesNo + 256, "Réaffectation")
 
        If rsCli.State = adStateClosed Then rsCli.Open "Clients", CurrentProject.Connection, adOpenStatic
        If rsEmp.State = adStateClosed Then rsEmp.Open "Employés", CurrentProject.Connection, adOpenStatic
        rsCli.Requery: rsCli.MoveFirst
        rsEmp.Requery: rsEmp.MoveFirst
        'Définition du treeview
 
        ocxTree.Nodes.Clear
        '--Clients
        Set x = ocxTree.Nodes.Add(, , "c", "Clients", 1)
        x.ExpandedImage = 2
        Do Until rsCli.EOF
            Set x = ocxTree.Nodes.Add("c", tvwChild, "C-" & rsCli(0), rsCli(1) & " (" & rsCli(2) & ")", 1)
            rsCli.MoveNext
        Loop
        '--Employés
        Set x = ocxTree.Nodes.Add(, , "e", "Employés", 1)
        x.ExpandedImage = 2
        Do Until rsEmp.EOF
            Set x = ocxTree.Nodes.Add("e", tvwChild, "E-" & rsEmp(0), rsEmp(1) & " " & rsEmp(2), 1)
            rsEmp.MoveNext
        Loop
End Sub

16/12/2003, 16h59
MashiMaro

Pourrait-on voir la totalité du message d'erreur stp ?

As-tu déclaré dans la liste les référence la bibliothèque contenant ADODB ?

NB : pourrais-tu aussi éditer ton message pour mettre les balises [code]

Voici le message d'horreur:
Code:

1 2 3 4 5 6 L'expression Sur clic entrée comme paramètre de la propriété de type événement est à l'origine d'une erreur. Attribut incorrect dans une procédure Sub ou Function. *Le résultat de l'expression n'est pas le nom d'un macro, le nom d'une fonction définie par l'utilisateur ou [Event Procedure]. *Une erreur a peut être été commise lors de l'évaluation d'une fonction; d'un évènement ou d'une macro.
J'ai cliqué dans Outils/références dans tout ce qui ressemble à 8O ADO ou Activex Data Object. 8O en prenant soin de le placer plus haut que les ref à DAO

Pat

16/12/2003, 22h15
sellig

je ne sais pas ce que tu veux faire exactement, mais tu peux peut-être travailler avec les API.

il y a des infos sur les liens suivants :

http://www.mvps.org/access/api/api0001.htm

http://www.mvps.org/access/api/api0002.htm
16/12/2003, 23h04
Arkham46

Il te manque la référence à "Microsoft ActiveX Data Objects *.* Library"
16/12/2003, 23h07
Arkham46

Autant pour moi, c'est pas ça...
Désolé!
16/12/2003, 23h10
Arkham46

En fait les déclarations avec les withevents doivent être faites en dehors de la procedure.

essaye ça:

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
Dim x As Node, xchild As Node, conn As ADODB.Connection, ocx As TreeView
        Dim sup As Integer
        Set ocx = Me!ocxTree.Object
        sup = MsgBox("des recordsets", vbCritical + vbYesNo + 256, "Réaffectation")
 
        If (sup <> vbYes) Then
          Exit Sub
        End If
        Set conn = CurrentProject.Connection
        Set rsCli = conn.Execute("select * from Clients")
        Set rsEmp = conn.Execute("select * from employés")
        ocxTree.Nodes.Clear
                '--Clients
        Set x = ocx.Nodes.Add(, , "c", "Clients")
 
        Do Until rsCli.EOF
 
            Set xchild = ocx.Nodes.Add("c", tvwChild, "C-" & rsCli(0), rsCli(1) & " (" & rsCli(2) & ")")
            rsCli.MoveNext
        Loop
 
        '--Employés
        Set x = ocx.Nodes.Add(, , "e", "Employés")
 
        Do Until rsEmp.EOF
            Set xchild = ocx.Nodes.Add("e", tvwChild, "E-" & rsEmp(0), rsEmp(1) & " " & rsEmp(2))
            rsEmp.MoveNext
        Loop

Tu vires ta procédure et tu fais un copier/coller de la mienne

17/12/2003, 14h51
Patrick ROBERT

Il doit falloir cocher quelque chose dans tools/ref ? car sur:

Code:

Dim x as node

j'ai un message du compilateur :
"type defini par l'utilisateur non défini"
:oops: Pat :oops:
17/12/2003, 15h28
stephane eyskens

non il faut être bien certain que tu as mis un

Microsoft Treeview Control

dans ton formulaire et appelle le "ocxTree". A la limite, recommence le tout dans un nouveau formulaire. J'ai testé le code et chez moi ça marche. :wink:
17/12/2003, 15h58
Patrick ROBERT

:D Merci Stephane,
maintenant ça marche!
merci à tous d'ailleurs
et vive ce forum. :D

PS: j'ai oublié comment on active le TAG résolu
j'espère qu'on peut encore le positionner quand on a
envoyé le message, sinon pardon au modérateur...
20/04/2004, 14h05
Eldac59

imbrication de node dans un treeview

/* transferer dans un nouveau post */

salut, je viens d'eesayer votre code pour un treeview et ca marche nickel seulement....
moi j'ai une base de renseignement sur ma mediatheque, donc j'ai des artiste (1er niveau) auquels appartiennent des album (2eme niveau) et en suivant votre code, artiste et album sont deux nodes differents , alros que moi je souhaiterai n'avoir que artiste, que je devleoppe, qui m'affiche l'ensemble de mes artistes et que si je developpe un artiste j'y retrouve ses albums (donc un niveau d'indentation) bref je galere... si vous pouviez m'aider !! :roll: