Discussion :

[hboisteau]

bonsoir,

je suis entrain de faire un treeview et je suis deja confronte a un petit probleme d'erreur.

je vous le code, pour que vous puissiez regarder, s'il manque quelques choses.

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
Option Compare Database
Option Explicit

Public Sub LoadTreeview()

    Dim tv As MSComctlLib.treeview
    Set tv = Forms!treeview.CtrlTreeview.Object
    Dim nodX As MSComctlLib.Node
    Dim rs As DAO.Recordset
    Set rs = CurrentDb.OpenRecordset("SELECT * FROM tblTypeGame ORDER BY SortValue", dbOpenDynaset)
    
    
    Do While Not rs.EOF
        Set nodX = tv.Nodes.Add(, , "<ID>" & rs!IDTypeGame & "</ID>", rs!TypeGame)
        rs.MoveNext
    Loop
End Sub

la ligne en rouge pose probleme.

Je vous remercie par avance.
HB

[loufab]

Bonjour,

Il faut absolument sortir des activeX VB6. Ils ne sont plus maintenus et postent problèmes avec le 64 bits.

Il n'y a aucune garantie qu'une prochaine mise à jour empêche leur utilisation.

Il existe un équivalent VBA sous forme de Classe (cf les tutos).

Cordialement

[hboisteau]

Bonjour,

Merci beaucoup pour votre reponse, mais je ne comprends pas. Malheureusement je suis un debutant en VBA et j'essaye de comprendre comment ca fonctionne. Existe t'il un tuto qui montre la creation d'un treeview pas a pas? Quelle est la difference entre les ActiveX VB6 et les equivalent sous forme de classe?
Je vous remercie par avance
HB

[loufab]

L'activeX VB6 est issu de VB6, qui a été abandonné il y a plusieurs année et pour lequel il n'y aura plus de mise à jour. Ce sont des boites noires (on ne peut pas contrôler vérifier certifié l'exécution).
Donc dans un futur proche, on commence en avoir un avant gout aujourd'hui avec des problèmes d'installation et de compatibilité avec Windows 10, ils cesseront de fonctionner ou fonctionneront de manière aléatoire.

L'équivalent sous forme de Classe et écrit en VBA, le code est ouvert et donc totalement contrôlable. Le revers de la médaille c'est qu'il est un peu plus complexe à mettre en œuvre.