Access expand node of tree in datasheetview

[jaryszek]

Hi Guys,



i have found this code in web:

Private Sub cmdExpandCurrentBranch_Click()
Dim nodThis As MSComctlLib.Node, intIndex As Integer

On Error Resume Next

    For Each nodThis In Me.xTree.Nodes ' loop through all nodes
        If nodThis.Selected = True Then
            intIndex = nodThis.index
            cmdExpandBranch nodThis 'Expand branch from selected node on
            Exit For
        End If
    Next nodThis
    Me.xTree.SetFocus
    Set Me.xTree.SelectedItem = Me.xTree.Nodes.Item(intIndex)

End Sub

Private Sub cmdExpandBranch(ByVal Node As MSComctlLib.Node)
    Dim i As Integer

    For i = Node.index To Node.Next.index - 1
        Me.xTree.Nodes.Item(i).Expanded = True
'        Debug.Print Me.xTree.Nodes.Item(i).Text
    Next i

End Sub

This code expands all nodes in datasheetview tree.

I would like to expand only one node for the current row in in my table (after afterupdate event).
Did any of you have similar problem maybe ?

Thank you for help,
Jacek Antek

[jaryszek]

Anyone?

Jacek

[aytee111]

Personally, I have been working in Access for decades and have never encountered this terminology - nodes and trees. I haven't a clue what you are trying to do here but maybe someone else does (although you would have received a reply by now!).

[orange]

The recognized guru of Access Treeviews is the The Smiley Coder. He has a number of videos starting here

[jaryszek]

Thnak you Guys,

orange - if i had a little time i would deep into Smiley Coder youtube.


aytee111 - https://ibb.co/nBaTvQ

I simply want to open first node of my Access datasheetview tree form after update event (like in the picture).

Jacek

[aytee111]

Right! Post your database and we could assist you.

[jaryszek]

Okey,

this is a sample database from this topic (last post):

https://www.accessforums.net/showthr...629#post364629

Best Wishes
Jacek

[aytee111]

This has a missing reference? Compile error on MSComctlLib.Node

[jaryszek]

aytee111 you have to add MsComCtl.ocx to your library

http://MsComCtl.ocx

you can access it from here.

and this article can be helpful for your version of Access:

http://thesmileycoder.com/treeview-w...in-access2013/

Best Wishes,
Jacek