Treeview Access 2007

Version imprimable

Bonsoir,

Je commence avec le control TreeView et j'ai quelques difficultés malgré tout ce que j'ai pu lire.

j'ai donc décidé de mettre en application pour faire au moins apparaître un parent. Mais je n'arrive pas à le faire apparaître.

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
Option Compare Database
 
Public Sub ActualiseTV()
 
Dim db As Database, rs As Recordset
Dim tv As MSComctlLib.TreeView
Dim x As Node
 
On Error Resume Next
    Set db = CurrentDb
 
    'Effacer tous les noeuds
    TreeView1.Nodes.Clear
 
    'Création de la liste des noeuds
    Set rs = db.OpenRecordset("SELECT DISTINCT Code Article FROM Nomenclature;")
    If rs.RecordCount <> 0 Then
        rs.MoveFirst
        While Not rs.EOF
            Set x = TreeView1.Nodes.Add(, , , "TDF150870") 'Ajouter un noeud de niveau "racine"
            rs.MoveNext
        Wend
    End If
    rs.Close
    Set rs = Nothing
 
 
End Sub

je devrais avoir sur chaque parent "TDF150870"

Merci pour votre aide

04/08/2016, 13h49
Jean-Philippe André

Salut,

tu trouveras de la lecture sur la partie sources et un tuto parmi d'autres

http://access.developpez.com/sources/?page=Treeview

http://jacma.developpez.com/treeview/
04/08/2016, 14h14
grimgrim

justement j'ai lu les deux et beaucoup d'autres

mais je bloque !

Bonjour,

Il manque une clé sur chaque noeud:

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
Option Compare Database
 
Public Sub ActualiseTV()
 
Dim db As Database, rs As Recordset
Dim tv As MSComctlLib.TreeView
Dim x As Node
 
On Error Resume Next
    Set db = CurrentDb
 
    'Effacer tous les noeuds
    TreeView1.Nodes.Clear
 
    'Création de la liste des noeuds
    Set rs = db.OpenRecordset("SELECT DISTINCT Code Article FROM Nomenclature;")
    If rs.RecordCount <> 0 Then
        rs.MoveFirst
        While Not rs.EOF
            Set x = TreeView1.Nodes.Add(, ,rs![Code Article] , "TDF150870") 'Ajouter un noeud de niveau "racine"
            rs.MoveNext
        Wend
    End If
    rs.Close
    Set rs = Nothing
 
 
End Sub

Il est conseillé de ne pas mettre d'espace dans les noms de table, de champs de table, ........

Gddal

01/10/2016, 19h01
grimgrim

Bonsoir

merci pour les infos
Par contre, je ne vois rien s'afficher ?
01/10/2016, 21h29
grimgrim

1 pièce(s) jointe(s)

comme je n'y arrive pas, j'ai mis la base de données en pièce jointe

et dans le module 3, j'ai réduit au strict minimum le code pour faire apparaître le parent, mais toujours rien

Pouvez vous m'aider ?
01/10/2016, 22h58
micniv

1 pièce(s) jointe(s)

Bonsoir,

voici en piece jointe ton fichier qui fonctionne

Pièce jointe 221688

Cordialement
02/10/2016, 22h03
grimgrim

super

je vais étudier ton code

merci
02/10/2016, 23h19
grimgrim

Code:

Me.TV1.Nodes.Add Key:="Nomen. fils: " & sKey, Text:=sLib

le mot key je ne comprends pas !!
03/10/2016, 09h28
micniv

Code:

Me.TV1.Nodes.Add Key:="Nomen. fils: " & sKey, Text:=sLib

Key = clé , en anglais

sinon la syntaxe Key:= ... est une syntaxe qui permet de ne passer à une fonction que des arguments sélectionnés : ici la methode .Nodes.ADD() (souvent utilisée pour dans l'appel de fonction Excel). Ceci évite d'avoir à saisir tous les arguments (facultatifs)

Ici pour le noeud à la racine, seuls la clé et le libellé affiché sont nécessaires.

Crdt
03/10/2016, 10h24
grimgrim

Merci

Existe il la même fonction Treeview sous excel ?
03/10/2016, 14h04
micniv

La quasi totalité des fonctions et activeX qui fonctionnent en VBA sous ACCESS, fonctionnent aussi sous EXCEL.
Pourquoi cette question ?
Cdlt
03/10/2016, 14h43
grimgrim

j'ai application sous excel et je me demandais si je ne pouvais pas utilisé cette fonction sous excel !
03/10/2016, 17h32
grimgrim

bonjour

encore une question ?

Code:

Nz(rs![Code Article])

je n'ai pas encore trouvé l'explication du Nz

Avez vous cette explication ?

Merci d'avance
03/10/2016, 17h38
Jean-Philippe André

Salut

un peu de recherche reste dans les capacites de chacun, non ?

Citation:

Pour ceux qui ne connaissent pas la fonction Access Nz, son rôle est de remplacer la valeur Null par une expression de son choix.
On peut ainsi, éviter l'erreur utilisation incorrecte de Null, et la propagation de la valeur Null dans une expression.
La conséquence d'une propagation de Null dans une expression, est que le résultat de cette dernière est lui-même Null.

http://ledzeppii.developpez.com/instrsqlvb/#LV-A
03/10/2016, 18h05
grimgrim

merci je ne connaissais pas