Treeview avec listview et navigation - mdb et vba

Soyez le premier à donner votre avis sur cette source.

Vue 19 116 fois - Téléchargée 4 600 fois

Description

Bin oui, c'est sous Access 2000 et ça marche :

C'est un formulaire avec un Treeview, une Listview et on peut naviguer entre les éléments.
On peut aussi créer des éléments en direct.
Le code vba fait référence à DAO 3.6

Conclusion :


J'ai essayé de faire le plus simple possible, aussi le rafraichissement est "limité" quand on crée un élément.

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

PVSCDSRC
Messages postés
1
Date d'inscription
vendredi 28 juillet 2006
Statut
Membre
Dernière intervention
4 juin 2010
-
Super et un grand merci pour mettre votre travail à la portée de tout le monde
moghrikadda
Messages postés
8
Date d'inscription
jeudi 22 novembre 2007
Statut
Membre
Dernière intervention
14 février 2008
-
Bonjour Monsieur
Votre projet TREEVIEW AVEC LISTVIEW ET NAVIGATION - MDB ET VBA je le trouve formidable ,si possible de m'aider à concevoir un projet de l'affichage d'une base de donnée ACCESS2000 dans une treeview et list view (2tables+requête)dans un projet vb6(et non dans un formulaireVBA)
MERCI
megr_kado@yahoo.fr
cs_Filou07
Messages postés
43
Date d'inscription
mercredi 16 janvier 2002
Statut
Membre
Dernière intervention
29 février 2008
-
Salut,

Si l'affichage de l'erreur te le permet, clique sur débogage, sinon met un point d'arrêt sur la ligne 192 et affiche ton formulaire : quand le code va s'arrêter dessus, passe ta souris sur la ligne et regarde les différentes valeurs qui s'affichent dans l'infobulle pour RSEntites![N°entiteS], RSEntites![N°Entite], et RSEntites![Entite] ; elles ne doivent pas être vides. appuie sur F5 pour passer au suivant.

L'erreur que tu as concerne une entité de niveau 4 et doit provenir d'un problème avec le contenu d'un de ces trois champs :

RSEntites![N°entiteS] : ce champ indique l'entité parente pour celles qui ont un type 2, 3 ou 4 - vérifie que la valeur de RSEntites![N°entiteS] existe dans RSEntites![N°entite] d'une entité de type 1, 2 ou 3

RSEntites![N°Entite] : Dans la table des entités, il ne doit pas y avoir de doublon sur le champ N°Entite

RSEntites![Entite] : le nom de l'entité ne doit pas être vide
nyambala
Messages postés
3
Date d'inscription
jeudi 28 septembre 2006
Statut
Membre
Dernière intervention
30 juillet 2007
-
Merci filou7, pour tes réponses claires;

J'ai essayé d'appliquer test conseils mais malheureusement, je n'ai pu résoudre le problème; c'est à dire:
1. Dans la requête R_Entite_triee, tous les éléments de la table y sont.
2. j'ai sélectionné Microsoft DAO 3.6 Object Library dans mes références.
3. j'ai augmenté le nombre de recherche à 1500, toujours rien.

Mais une bonne nouvelles, lorsque j'ouvre le formulaire, frmTreeview, le bug suivant apparait: "Run-time error '13': type mismatch" et la ligne 192 du code VBA est surlignée: " trwArbo.Nodes.Add "O" & RSEntites![N°entiteS], tvwChild, "O" & RSEntites![N°Entite], RSEntites![Entite], "IMG_PICK""

Comprends-tu ce problème ? J'ai cherché sur le net tout ce weekend mais je n'ai rien trouvé alors je me tourne de nouveau vers vous pour solliciter votre aide.

PS; j'ai inséreré mes noeuds sur la table ENTITES en important des données à partir d'un fichier EXCEL.

Merci d'avance
NY
cs_Filou07
Messages postés
43
Date d'inscription
mercredi 16 janvier 2002
Statut
Membre
Dernière intervention
29 février 2008
-
Salut NYAMBALA

Regarde si la requête R_Entite_triee affiche déjà correctement les 1300 enregistrements. Le but de la requête est d'afficher les entités (futurs noeuds pour le formulaire) par ordre croissant de TypeEntité. en effet, pour créer les noeuds enfants, les parents doivent déjà exister. Regarde aussi dans l'éditeur vba (ALT+F11) dans le menu Outils/Références si "Microsoft DAO 3.6 Object Library" n'est pas marqué comme "manquant", sinon il te faudra télécharger le mdac chez microsoft. Autre piste : dans les options d'Access (Outils/Options/Modifier-rechercher) on peut limiter un nombre de ligne dans les listes (1000 par défaut).
Pour supprimer les données de mon exemple, il te faut d'abord vider la table Objets et ensuite la table ENTITES (à cause des relations avec intégrité référentielle).

Voilà, j'espère t'avoir "éclairé"
Filou

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.