Discussion :

[grimgrim]

Bonjour,

j'ai réussi à réaliser un treeview sur Access en vba mais je n'arrive pas à faire un clic sur une branche pour faire apparaître une nouvelle fenêtre

Pouvez vous m'aider ? j'ai mis le fichier en pièce jointe

merci d'avance

[Robert1957]

Bonjour grimgrim,

Tu peux faire cela sur l'événement "MouseDown" de l'object treeview.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub TVEquipItas_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Long, ByVal y As Long)
On Error GoTo err_tvw_MouseDown
 
    MsgBox "Voici la clé de ce noeud:  " & TVEquipItas.HitTest(x, y).Key  
 
err_tvw_MouseDown:
    If Err.Number = 91 Then
        Resume Next
    ElseIf Err.Number = 0 Then
        Exit Sub
    Else
        MsgBox Err.Number & Err.Description
    End If
End Sub

Il y a ici un bon tutoriel http://jacma.developpez.com/treeview/ qui explique les principes du Tv.

Bonne journée

[grimgrim]

bonsoir,

merci pour votre réponse

Cependant, avant quand je clique, j'avais les fils du noeud qui s'affichaient

maintenant, j'ai bien le message qui s'affiche

je souhaiterais avoir le message soit sur le noeud soit en cliquant un fils du noeud en sachant que pour ouvrir un fil noeud je double clique sur le noeud

merci d'avance

[micniv]

Bonjour,
bien que non documentés les evts Click et Dblclick existent bien pour les treeview.
Exemple : avec un treeview nommé TV1 :

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
 
Private Sub TV1_Click()
 
    Dim sMsg As String
    Dim strSql As String, strFrmName As String
    Dim pos As Integer, i As Integer
    Dim oNode As Object, strNodeKey As String, strCleUnique As String, lngNodekey As Long
 
    Set oNode = Me.TV1.SelectedItem
 
    i = oNode.Index
    strNodeKey = oNode.Key
    sMsg = "TV1_Click - index: " & i & "    Key: " & strNodeKey & "   Checked: " & oNode.Checked
    Debug.Print sMsg
    ' ...
 
Exit_0:
    Exit Sub
 
End Sub
 
Private Sub TV1_DblClick()
 
    Dim sMsg As String
    Dim strSql As String, strFrmName As String
    Dim pos As Integer, i As Integer
    Dim oNode As Object, strNodeKey As String, strCleUnique As String, lngNodekey As Long
 
    Set oNode = Me.TV1.SelectedItem
 
    i = oNode.Index
    strNodeKey = oNode.Key
    sMsg = "TV1_DblClick - index: " & i & "    Key: " & strNodeKey & "   Checked: " & oNode.Checked
    Debug.Print sMsg
    If Not oNode.Parent Is Nothing Then
        strCleUnique = Nz(DLookup("Evt_cle", "T_Ecriture", "Ecr_id=" & clng(strNodeKey )
        Debug.Print strCleUnique
        If Len(strCleUnique) > 0 Then
           ' ...
        End If
 
    Else
        ' C'est la ligne d'un lot, aucun traitement
    End If
 
Exit_0:
    Exit Sub
 
End Sub

CDLT

[grimgrim]

merci pour les informations

mais j'ai une erreur de syntaxe sur le double click sur la ligne suivante

Code :

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

strCleUnique = Nz(DLookup("Evt_cle", "T_Ecriture", "Ecr_id=" & clng(strNodeKey )

[micniv]

Code :

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

Nz(DLookup("Evt_cle", "T_Ecriture", "Ecr_id=" & clng(strNodeKey ) ...

L'exemple que je t'ai proposé plus haut est à adapter à ton programme.
Je suppose que tu n'as pas de table T_ecriture , nest-ce pas ?

Cdlt

[grimgrim]

non désolé

j'ai mis mon programme vba et mes tables au début de la conversation dont tu pourras voir les pbres

[micniv]

Voici le code du double click adapté à ton cas.
Cependant il te faut choisir si tu veux actionner le click ou le double-click mais certainement pas les 2 à la fois !

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
25
 
Private Sub TVEquipItas_DblClick()
 
    Dim sMsg As String
    Dim strSql As String, strFrmName As String
    Dim pos As Integer, i As Integer
    Dim oNode As Object, strNodeKey As String, lngNodekey As Long
 
    Set oNode = Me.TVEquipItas.SelectedItem
 
    i = oNode.Index
    strNodeKey = oNode.Key
    sMsg = "TV1_DblClick - index: " & i & "    Key: " & strNodeKey & "   Checked: " & oNode.Checked
    Debug.Print sMsg
    MsgBox sMsg
'    If Not oNode.Parent Is Nothing Then
'            ...
'    Else
'        ' C'est la ligne d'un lot, aucun traitement
'    End If
 
Exit_0:
    Exit Sub
 
End Sub

CDLT