treeview et sous formulaire

Version imprimable

25/12/2008, 08h58
santacrus

treeview et sous formulaire

Bonjour a tous,

Je sollicite votre aide car je n'arrive pas a solutionner mon probleme.
J'aimerais mettre au point une sorte " d'annuaire".
Le formulaire possede un treeview qui liste differentes categories:
clients,
fournisseurs,
etc....
Le treeview n'est pas dynamique donc pas de probleme de ce coté la.
A coté, un sous formulaire me donnant
nom,
adresse,
etc....
pour chaque categorie selectionnée.(enfin c'est ce que j'aimerais:lol:)
J'ai essayé ca sur l'evenement nodeclick

Code:

Me.RecordSource = "SELECT * FROM [tbl_Tiers] WHERE ([tier catégorie]like'" & Node.Key & "')"

sans succes.
1-lorsque je selectionne une categorie il ne se passe rien
2-si j'essaie d'en selectionner une autre, message d'erreur:key is not unique

Merci d'avance pour votre aide
25/12/2008, 09h07
loufab

Bonjour,

Il y a une grosse erreur dans ta chaine SQL. L'opérateur Like doit avoir un espace avant et après. Je suis même étonné que la treeview se peuple.

Cordialement,
25/12/2008, 09h15
santacrus

Merci du coup de main loufab

La syntaxe est corrigée mais le probleme reste le meme.Il ne se passe rien, aucun filtre n'est appliqué.
25/12/2008, 09h23
Pierre Fauconnier

Salut

Si j'ai bien compris, ton treeview est statique et lorsque tu cliques sur un noeud, tu souhaites alimenter un sous-formulaire avec les tiers dont la catégorie est renseignée dans le key du noeud.

Il faudrait donc voir comment tu détermines la catégorie [Tier Categorie] de la table tbl_Tiers. Est-ce du numérique? du texte?

Sauf à catégoriser plusieurs fois dans le même champ (avec un séparateur entre les catégories), je ne vois pas l'opportunité d'utiliser l'opérateur Like.

Donc, pour résumer:
Que contient Node.Key? Du texte, une valeur numérique? Que contient Tiers Categorie? Du texte, une valeur numérique, plusieurs catégories séparées par un séparateur?

Pour solutionner ton problème, essaie de voir ce que contient ton Node.key avec, par exemple, un msgbox sur le clic.
25/12/2008, 09h41
santacrus

Oui c'est exactement ce que je cherche a faire.

Msgbox(node.key) me renvoie: Clients, Fournisseurs......., en fait l'intitulé du noeud.
Le champ [tier catégorie] est une liste de choix alimentée manuellement dans la case contenu.
Une petite chose bizzare:
Je viens d'essayé:

Code:

Me.RecordSource = "SELECT * FROM [tbl_Tiers] WHERE [tier catégorie]=" & 1

Ca ne fonctionne tjs pas mais je ne recoit plus de message d'erreur lors d'une deuxieme tentative.
Je continue de chercher.
Merci
25/12/2008, 10h03
Domi2

Bonjour,

Et que te renvoie :

Code:

msgbox objTree.SelectedItem.Key

en remplaçant objTree par le nom de ton objet Treeview ?

Domi2
25/12/2008, 10h13
Pierre Fauconnier

Tu dois avoir une correspondance entre la valeur de node.key et la valeur du champ [tiers categorie], sinon, indépendamment de tout problème de syntaxe dans ta chaine sql, tu n'y arriveras pas.

Si, dans le champ [tiers catégorie], tu as comme valeur une chaine de caractères (Client, Fournisseur, ...), alors, tu dois retrouver ces valeurs dans les node.key.

Si, dans le champ [tiers catégorie], tu as comme valeur numérique (1, 2, ...), alors, tu dois retrouver ces valeurs dans les node.key

Si, dans le champ [tiers catégorie], tu as plusieurs valeurs parce que tu peux "multicatégoriser" un contact, alors, tu devras utiliser l'opérateur Like, en n'oubliant pas les * devant et derrière.

A ce stade, peux-tu préciser la nature du champ [tiers catégorie] (texte, numérique long, ...) et ce qu'il contient (une seule catégorie, plusieurs, ...) avec des exemples?

AAAARRRRRRRR!!!!!
J'aurais preferé de repondre autre chose mais c'est pareil que msgbox node.key
Je commence a m'enerver!!!!!!

Bon alors:

[tier catégorie] est de type texte, et ne peut prendre qu'une seule des valeurs suivantes:
Clients,Fournisseurs,Géometres,Huissiers,Architectes,Bureaux d'études,Propriétaires,Commercialisation,Banques,Divers.

Voici pour info le code du treeview:

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
29
With Me.tvw
Set nod1 = .Nodes.Add(, , "Clients", "Clients")
Set nod2 = .Nodes.Add(, , "Fournisseurs", "Fournisseurs")
Set nod3 = .Nodes.Add(, , "Géometres", "Géometres")
Set nod4 = .Nodes.Add(, , "Notaires", "Notaires")
Set nod5 = .Nodes.Add(, , "Huissiers", "Huissiers")
Set nod6 = .Nodes.Add(, , "Architectes", "Architectes")
Set nod7 = .Nodes.Add(, , "Bureaux d'études", "Bureaux d'études")
Set nod8 = .Nodes.Add(, , "Propriétaires", "Propriétaires")
Set nod9 = .Nodes.Add(, , "Commercialisation", "Commercialisation")
Set nod10 = .Nodes.Add(, , "Banques", "Banques")
Set nod11 = .Nodes.Add(, , "Divers", "Divers")
 
.Nodes.Add "Fournisseurs", tvwChild, "Four_Pub", "Publicité"
.Nodes.Add "Fournisseurs", tvwChild, "Four_VRD", "VRD-Branchement"
.Nodes.Add "Fournisseurs", tvwChild, "Four_GO", "G.O - Terassement"
.Nodes.Add "Fournisseurs", tvwChild, "Four_CCZ", "Charpente - Couverture - Zinguerie"
.Nodes.Add "Fournisseurs", tvwChild, "Four_FME", "Fermeture - Menuiserie exterierue"
.Nodes.Add "Fournisseurs", tvwChild, "Four_Ser", "Serrurerie"
.Nodes.Add "Fournisseurs", tvwChild, "Four_ISO", "Isolation - Plâtre"
.Nodes.Add "Fournisseurs", tvwChild, "Four_CCF", "Chape - Carrelage - Faïence"
.Nodes.Add "Fournisseurs", tvwChild, "Four_PRM", "Peinture - Revêtements muraux"
.Nodes.Add "Fournisseurs", tvwChild, "Four_ELEC", "Electricité"
.Nodes.Add "Fournisseurs", tvwChild, "Four_PSVC", "Plomberie - Sanitaire - VMC - Chaufage"
.Nodes.Add "Fournisseurs", tvwChild, "Four_EE", "Enduits exterieurs"
.Nodes.Add "Fournisseurs", tvwChild, "Four_PG", "Portes garages"
.Nodes.Add "Fournisseurs", tvwChild, "Four_MO", "Maitrise d'oeuvre"
 
End With

Evidemment pour l'instant je ne me concentre que sur les noeuds parents.
C'est deja assez compliqué comme ca.

Merci

25/12/2008, 10h42
Pierre Fauconnier

Alors, je serais tenté de dire

Code:

Me.RecordSource = "SELECT * FROM [tbl_Tiers] WHERE [tier catégorie]='" & node.key & "'"

En vérifiant évidemment l'orthographe de [tier catégorie] (avec ou sans s dans la structure de ta table?

D'une façon générale, il faut éviter les noms de champs avec espaces et caractères accentués... Cela complique la syntaxe et les caractères accentués risquent d'être mal interprétés sur des versions étrangères d'Access
25/12/2008, 10h51
santacrus

Désolé Pierre mais ca ne fonctionne pas.:cry:
Je pense que je vais faire une pause, il ne faut pas oublié que c'est noel!
(j'aurais bien aimé que le pere noel me ramene ce bout de code;))
Je reprendrai ca demain et vous tiendrai au courant de mes déboires!

Merci a vous et Joyeux Noel!

un .Nodes.Clear serait bienvenue en début de création du treeview

"Bureau d'études" contient une apostrophe, préférer les 3 guillemets

donc pour la requete

Code:

1
2
3
4
 
Private Sub tvw_NodeClick(ByVal Node As Object)
 Me.RecordSource = "SELECT tbl_Tiers.* FROM tbl_Tiers WHERE [tier categorie] like """ & Node.Text & """"
End Sub

Node.Text ou Node.Key suivant ce qui est fournit dans la table tbl_Tiers

et pour la creation du treeview

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Private Sub Form_Load()
 With Me.tvw
   .Nodes.Clear
   .Nodes.Add , , "Clients", "Clients"
   .Nodes.Add , , "Fournisseurs", "Fournisseurs"
   .Nodes.Add , , "Géometres", "Géometres"
   .........................   
   .Nodes.Add "Fournisseurs", tvwChild, "Four_Pub", "Publicité"
   .Nodes.Add "Fournisseurs", tvwChild, "Four_VRD", "VRD-Branchement"
   .Nodes.Add "Fournisseurs", tvwChild, "Four_GO", "G.O - Terassement"
   .Nodes.Add "Fournisseurs", tvwChild, "Four_CCZ", "Charpente - Couverture - Zinguerie"
   ........................ 
 End With
End Sub

et pour moi ça fonctionne ainsi

27/12/2008, 11h45
LedZeppII

bonjour,

Citation:

Le formulaire possede un treeview qui liste differentes categories.
...
A coté, un sous formulaire me donnant nom,adresse,etc....

Pour un sous-formulaire c'est

Code:

Me.NomControleSFM.Form.RecordSource = ....

Code:

Me.RecordSource = ...

Affecte le formulaire principal.
Ça expliquerai qu'il ne se passe rien au niveau du sous-formulaire.

A+