Discussion :

[grimgrim]

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 :

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

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

[grimgrim]

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

mais je bloque !

[Gdal]

Bonjour,

Il manque une clé sur chaque noeud:

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

[grimgrim]

Bonsoir

merci pour les infos
Par contre, je ne vois rien s'afficher ?

[grimgrim]

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 ?

[micniv]

Bonsoir,

voici en piece jointe ton fichier qui fonctionne

Test_Nomenclature.zip

Cordialement

[grimgrim]

super

je vais étudier ton code

merci

[grimgrim]

Code :

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

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

le mot key je ne comprends pas !!

[micniv]

Code :

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

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

[grimgrim]

Merci

Existe il la même fonction Treeview sous excel ?

[micniv]

La quasi totalité des fonctions et activeX qui fonctionnent en VBA sous ACCESS, fonctionnent aussi sous EXCEL.
Pourquoi cette question ?
Cdlt

[grimgrim]

j'ai application sous excel et je me demandais si je ne pouvais pas utilisé cette fonction sous excel !

[grimgrim]

bonjour

encore une question ?

Code :

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

Nz(rs![Code Article])

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

Avez vous cette explication ?

Merci d'avance

[Jean-Philippe André]

Salut

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

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

[grimgrim]

merci je ne connaissais pas