Discussion :

[benjaNC]

Bonjour,

A l'aide de la nombreuse documentation du site (tuto et forum) j'ai écrit une petite appli en VBA sous Access (Windows 7 pro / Access 2013 / VBA 7.1) pour visualiser et parcourir un gros volume de données. Il n'y a qu'un seul formulaire avec des boutons et un TreeView .
- un bouton permet de récupérer des données ODBC dans une table Access (plusieurs milliers de lignes),
- un bouton permet de charger le TreeView avec les données de la table (plusieurs milliers de nœuds),
- un bouton permet de rechercher un élément dans le TreeView et l'affiche,
- un bouton permet de vider le TreeView et de supprimer la table.

Tout marche bien sauf que le TreeView semble se charger au lancement d'Access.
Je m'explique, au lancement d'Access, le TreeView présente des données et le temps de chargement n'est pas négligeable en raison de la taille des données.
Et cela, même si je vide le TreeView avant de fermer et de sauver l'application.
Pour vider le TreeView, je balaye toute l'arborescence et j'utilise la méthode MonTV.Nodes.clear

Code :

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

1
2
3
For i = 1 To RO_TV.Nodes.Count
     RO_TV.Nodes.Clear
Next

Y a t il une propriété particulière qui explique ce comportement ?
ou est ce la méthode clear qui n'est pas appropriée ?

Merci de votre aide,

[Jean-Philippe André]

Salut,

sauf si erreur,

Code :

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

     RO_TV.Nodes.Clear

supprime deja toutes les nodes du treeview, inutile de le faire autant de fois qu'il y a de nodes =]

[benjaNC]

En effet, c'est bien plus rapide.
Toutefois, si je sauve et quitte l'application.
Lorsque je le réouvre, le treeview est déjà peuplé.
Je n'arrive pas a expliquer ce comportement.

Salut,

sauf si erreur,

Code :

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

     RO_TV.Nodes.Clear

supprime deja toutes les nodes du treeview, inutile de le faire autant de fois qu'il y a de nodes =]

[loufab]

Bonjour,

Vu l'avenir compromis des composants VB6, il vaut mieux penser à leur remplacement qu'à leur diffusion. (cf les nombreuses discussions sur le sujet)

Cordialement,

[benjaNC]

Loufab,
Désolé je ne suis pas trop familier avec ce domaine.
Faite vous allusion, par exemple, a porter l'application sous VB.NET ?
Merci,

Bonjour,

Vu l'avenir compromis des composants VB6, il vaut mieux penser à leur remplacement qu'à leur diffusion. (cf les nombreuses discussions sur le sujet)

Cordialement,

[loufab]

Non pas forcément.

Il y a des solutions de remplacement Full VBA.

http://arkham46.developpez.com/articles/access/libtgl/

Mais les composants VB6 ne sont plus supporté depuis de nombreuses années.
Ils commencent à poser des problèmes notamment avec ACCESS 64 bits donc avant de se retrouver au pied du mur...

Cordialement,

[Ric500]

Salut !

Concernant les treeview, je me contente de supprimer le premier noeud (au chargement, éventuellement) avec ce code:

Code :

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

    If Me!Tree.Nodes.Count >= 1 Then Me!Tree.Nodes.Remove 1

Bonne journée

[benjaNC]

Bon finalement, j'ai réglé le problème sans réellement comprendre le comportement.

1 - En supprimant le Treeview et le recréant, je retrouve le comportement attendu : au lancement, le Treeview est vide, le temps de lancement de l’application est optimisé. Le poids de l’application est faible. Je peux sauver l'application dans Access sans modifier ce comportement.

2 - Par contre, si je sauve le projet dans "Visual Basic Editor", l'état du treeView au moment de l’enregistrement devient en quelques sorte la valeur par défaut du Treeview au lancement de l'application :-( Pour retrouver la situation d'origine, je vide le Treeview et j’enregistre dans VBE.

Voila.