Discussion :

[Patrick ROBERT]

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

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

[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

[Patrick ROBERT]

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 :

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
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

[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]

[Patrick ROBERT]

Voici le message d'horreur:

Code :

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

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 à ADO ou Activex Data Object. en prenant soin de le placer plus haut que les ref à DAO

Pat

[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

[Arkham46]

Il te manque la référence à "Microsoft ActiveX Data Objects *.* Library"

[Arkham46]

Autant pour moi, c'est pas ça...
Désolé!

[Arkham46]

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

[stephane eyskens]

essaye ça:

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
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

[Patrick ROBERT]

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

Code :

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

Dim x as node

j'ai un message du compilateur :
"type defini par l'utilisateur non défini"
Pat

[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.

[Patrick ROBERT]

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

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...

[Eldac59]

/* 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 !!