Bonjour à tous,
je me suis fait un treeview sur un formulaire Access au boulot
J'arrive à :
- le remplir avec des requêtes
- le formater un peu
- quand je cliques sur un noeud ça fait apparaitre un formulaire sur le bon enregistrement.
Je rentre à la maison pour continuer un peu et voir si je peux pas faire du drag and drop, MAIS
quand je le test sur mon ordi, impossible de faire marcher les formulaire, en fait il ne se passe rien quand je clique sur un noeud. Donc il y a bien l'arbre, je peux l'expand et le collapse, mais je ne peux pas transmettre de paramètres à autre chose..
Pas de message d'erreur rien,
avez vous des idées, des références que je devrais activer ?
voici le code qui marche pas
je ne comprends pas,
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 Private Sub xUniversTreeView_Click() Dim nodSelected As MSComctlLib.Node Set nodSelected = Me.xProductTreeview.SelectedItem If nodSelected.Key Like "SLDAF=*" Then ' Me.txt_id_SLDAF = Mid(nodSelected.Key, 6) Me.sF_LDAF_treeview.Visible = True Me.txt_id_LDAF = Null Me.sF_SLDAF_treeview.Visible = False ElseIf nodSelected.Key Like "LDAF=*" Then Me.txt_id_LDAF = Mid(nodSelected.Key, 5) Me.sF_LDAF_treeview.Visible = True Me.txt_id_SLDAF = Null Me.sF_SLDAF_treeview.Visible = False Else Me.txt_id_LDAF = Null Me.sF_LDAF_treeview.Visible = False Me.txt_id_SLDAF = Null Me.sF_SLDAF_treeview.Visible = False End If End Sub
j'ai rééssayé de faire d'autre treeview, d'en télécharger, et en fait c'est vraiment la fonction qui ne marche pas
merci
Partager