Arborescence style Explorateurs Windows

**NoBru** · 05/01/2006, 21h39

Bonjour,
Est-il possible avec Accès, d'afficher et surtout de modifier une Arborescence du style Explorateurs Windows

:

Pour exemple:
On Affiche la liste de Sports, ainsi que les épreuves propres a chaques sports
On doit pouvoir rajouter/supprimer des épreuves, modifier un sport etc...

Si un exemple était dispo, se serait génial

D'avance Merci

**keita** · 05/01/2006, 21h53

salut
va voir ici
http://access.developpez.com/sources...=frms#treeview
@+

**NoBru** · 07/01/2006, 17h18

Ok, je vois bien le principe, mais j'ai un peu de mal à le mettre en application au sein de mon projet
Aurais tu des explications un peu plus détaillés ?

Dans cet exemple, je dois bien me créer 2 tables (Clients & Employés) dans mon appli Access ?
Et, comment activer la "référence Microsoft ActiveX Data Object

D'avance merci

**Dolphy35** · 07/01/2006, 17h24

Salut,

Dans l'éditeur VB, tu clic sur Outils -> Références tu le cherche dans la liste et tu le coche.

@+

**NoBru** · 07/01/2006, 17h38

Ok, ça c'était bon, mais j'ai une erreur de compil "Type défini par l'utilisateur non défini" sur

Code :

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

1
2
        'déclaration des variables
        Dim x As Node

:

**Dolphy35** · 07/01/2006, 17h45

Désolé j'avais mal compris ta question.

Tu as pris la plus grande version ?

Sinon met le en commentaire et teste le reste du code.

@+

**NoBru** · 07/01/2006, 17h56

Quand tu dit: Tu as pris la plus grande version ? tu veux parler du code proposé ici ?
http://access.developpez.com/sources...=frms#treeview

Mettre en commentaire la variable X va m'être difficile car elle est utilisée dans la suite du code...
En fait, le type de déclaration "As Node" n'est pas connu dans mon appli. Est-ce normal

: je dois oublier kekchose

**Dolphy35** · 07/01/2006, 18h00

La version dnt je te parles est celle de la référence à cocher. Sinon tu peux utiliser une variable sans la déclarer en ne mettant pas Option Explicit
en haut dans ton module.

@+

**NoBru** · 07/01/2006, 18h15

Microsoft ActiveX Data Objects 2.1 Library
msado20.tlb
msado21.tlb
msado25.tlb
msado26.tlb
msado27.tlb
Tous du 03/08/2004 22:21 sous
C:\Program Files\Fichiers communs\System\ado\

**Dolphy35** · 07/01/2006, 18h20

re,

je possède la dll Microsoft ActiveX Data Objects 2.7 Library je ne sais pas si c'est ton soucis je ne ma suis pas encore penché sur le TreeView

@+

[/b]

**NoBru** · 07/01/2006, 18h34

ma foi, je veux bien essayer, si cela peu résoudre mon soucis...
Mais comment faire pour se la procurer

:

**Dolphy35** · 07/01/2006, 18h38

Peut être sur le site de Microsoft

@+

**batou22003** · 07/01/2006, 20h50

Les treeviews, c'est bien pour afficher les données. Si tu veux
modifier les données, tu peux utiliser l'évevennements DblClick sur le treeview. Ou afficher le détail des noeuds du treeview dans un listview. (ca c'est une arborescence windows: 2 cadres un a gauhe qui est un treeview et a droite un listview). Et donner la possibilité de saisir des données dans un champ texte après Dblclick sur un élément du listview.

J'espère que j'ai pu t'aider un petit peu.

**batou22003** · 07/01/2006, 20h54

Mettre en commentaire la variable X va m'être difficile car elle est utilisée dans la suite du code...
En fait, le type de déclaration "As Node" n'est pas connu dans mon appli. Est-ce normal je dois oublier kekchose

Hum. Tu as bien inséré un treeview sur ton formulaire avant de tester le code du treeview? (car Node est un noeud d'un treeview)

**batou22003** · 07/01/2006, 21h27

Bon je t'explique un peu comment ca fonctionne :

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
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
Dim WithEvents rsCli As ADODB.Recordset
Dim WithEvents rsEmp As ADODB.Recordset
Dim WithEvents rsCde As ADODB.Recordset
 
Les 3 lignes précédentes déclarent des curseurs ADO
pour 3 tables Clients,employés et commandes.
Du dois avoir la référence Microsoft ADO Activée.
Ou alors, tu utilises des curseurs DAO. 
Pour cela tu actives les références Microsoft Data Access Component.
 
Je sais pas si ca marche les WithEvents. Moi je les retirerais si ca marche pas.
 
Avec DAo tu déclares et initialises comme suit:
Dim db as DAO.Database
Dim rsCli As DAO.Recordset
 
Set db = CurrentDb
Set rsCli = db.OpenRecordset ("Clients")
 
Et pour parcourir les elements tu fais comme suit,ici j'affiche le premier champ : 
Do until rsCli.EOF 
MsgBox rsCi.Fields(0)
rsCli.EOF
'Passer à l'élement suivant
rsCli.MoveNext 
Loop
 
'pour fermer ton curseur 
rsCli.Close
Set rsCli = Nothing 
 
'avant tout créer un formulaire, place un treeview dessus, tu vas 
sur la barre d'outil formulaire et autres composants . Dans la liste des activeX tu vas chercher le Treeview.  Version 5.0 ou 6.0.
Il me semble que la 6 est plus sophistiquée, tu peux faire des drag & drop.
Le treeview crée, tu peux double cliquer dessus. Tu as toutes ses propriétés personnalisées. 
Commence par modifier son nom en "ocxTree".
Regarde le type de noeud utilisés (PlusMinusText ou images)
 
Alors la, c'est codé sur un evenement update, je te conseille de te faire 
sur Form_Load de ton formulaire! 
 
Private Sub cmdUpdate_Click()
        'déclaration des variables
        'ci dessous, tu déclares un noeud. du treeview
        'que tu utilises pour insérer un noeud père ou fils.
 
        Dim x As Node
 
        'Réaffectation des recordsets pour mise à jour
        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
 
       'si les lignes du dessus ne marchent pas. Commence par tester avec 
'un curseur DAO comme je t'ai expliqué au dessus. Pour cela tu déclares un objet database et un DAO.Recorsdet, que tu utilises pour manipuler tes données ensuite. regarde l'aide Acess sur DAO pour progresser.
 
 
'Définition du treeview
 
        ocxTree.Nodes.Clear
  'pour vider toutes les noeuds du treview nommé ocxTree
        '--Clients
 
'ci-dessous ajout des clients en tant que noeud pères
'avec Nodes.Add(texte de la relation,type de relation,
valeur de la clé,texte de l'élément,Index de l'image affichée sur l'élément
Alors attention aux ImageList, pour cela, tu dois créer un objet ImageList.
Et y placer tes images (image pour étendre un élément Plus ou Moins par exemple) 
Sinon tu fais sans images, tu retires la valeur 1 dans le dernier paramètre.
 
        Set x = ocxTree.Nodes.Add(, , "c", "Clients", 1)
        x.ExpandedImage = 2
 
       'ajouts des clients fils de la clé "c" en parcourant le curseur rsCli
        Do Until rsCli.EOF
            Set x = ocxTree.Nodes.Add("c", tvwChild, "C-" & rsCli(0), rsCli(1) & _
              " (" & rsCli(2) & ")", 1)
          'passage au suivant
            rsCli.MoveNext
        Loop
        '--Employés
       'idem pour les 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

'et voila. J'espère que je t'ai aidé.
Bonne chance.

modération : cafeine, merci d'y penser

**NoBru** · 11/01/2006, 21h55

Franchement, un grand MERCI à tous, et MERCI infiniment à batou22003 de s'être donné temps de mal pour détailler ce code
Je vais maintenant m'atteler à mes tests et vous tiendrais au jus

@+

**NoBru** · 19/01/2006, 21h54

OK c'est tout bon, je suis arrivé à un premier résultat relativement satisfaisant
Encore Merci à Toutes et à Tous

Arborescence style Explorateurs Windows

Access

Discussions similaires

Partager

Partager