Discussion :

[frei93]

Bonjour,

Je travail actuellement sur des treeviews dans Access 2013 et j'aurais besoin de l'événement NodeClick().
Bizarrement, impossible dans le trouver dans la liste des événements.

j'ai donc fait quelques recherches sur internet mais en vain.

J'ai donc essayé de le coder manuellement, mais rien n'y fait.

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub treeReqs_NodeClick(ByVal Node As Object)
 
    Dim IngID As Long
    IngID = getID(Node)
    Me.CtrlSubChoix.Form.Recordset.Find "fk_choix_dom=" & IngID
 
End Sub

J'ai également essayé d'une autre manière comme montré ici:
http://www.developpez.net/forums/d13...lick-treeview/

Cela n'a pas fonctionné non plus.

Petite précision: je suis à mes débuts pour le codage VBA.

Merci d'avance de vos réponses

[micniv]

Bonjour,

Comme dans l'exemple que tu as mis en référence :
si le controle (ton node) est nommé TV1
alors le programme appelé correspondant au Clic doit être nommé : TV1_Click() et pas autrement

PS : Ceci suppose que tu as déjà mis la bibliothèque ' ... Commun controls ..' en référence. (MSCOMCTL.ocx)

Cordialement

[frei93]

Bonjour micniv et merci pour ta réponse.

Effectivement, j'ai bien installé la bibliothèque "MSCOMCTL.ocx".

Mon Node est nommé "treeReqs" j'ai donc fait mon appel de fonction comme cela : treeReqs_NodeClick()

J'ai essayé de changer treeReqs en TV1, mais rien ne change

merci d'avance

[frei93]

J'ai trouvé la solution

En fait j'ai carrément trouvé comment avoir toute la liste des événements.
Le problème vient de la bibliothèque "MScomctl.ocx". Celle qui se trouve dans le dossier C:\Windows\SysWOW64 n'est pas complète.
Quand on installe office, il y a également un fichier "MSComctl.ocx" qui se trouve dans le dossier C:\Program Files\Microsoft Office 15\root\vfs\SystemX86.

1) Aller dans les références de librairies dans Access et décocher la librairie qui correspond à "MSComctl.ocx"
2) Fermer complètement Access
3) Copier le "MSComctl.ocx" à partir de C:\Program Files\Microsoft Office 15\root\vfs\SystemX86 et le remplacer dans C:\Windows\SysWOW64
4) Créer un petit script en batch (dont le code se trouve ci-dessous) En tant qu'adminitrateur, (il y aura deux pop-up qui vont apparaîtres)

Code :

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

1
2
3
4
5
6
7
8
9
reg delete hkcr\typelib\{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}\2.0 /f
if exist %systemroot%\SysWOW64\cscript.exe goto 64 
%systemroot%\system32\regsvr32 /u mscomctl.ocx
%systemroot%\system32\regsvr32 mscomctl.ocx
exit
:64 
%systemroot%\sysWOW64\regsvr32 /u mscomctl.ocx
%systemroot%\sysWOW64\regsvr32 mscomctl.ocx
exit

5) Retourner dans les références de librairies dans Access, cliquer sur parcourir et sélectionner "MSComctl.ocx" qui se trouve dans C:\Windows\SysWOW64
6) Cliquer sur OK

Et voilà le travail

Merci encore du temps consacré à mon problème

Bonne fin de journée

A+