Iterating through nodes in a treeview in Ms Access 2003

[Garudzo]

Hi

I am trying to use the Windows treeview in a MS Access application. I want to iterate through child nodes of a particular node but i am failing to figure out how to do it. I have even tried the entire nodes using the following code but am getting an error

For Each objNode In Me.TreeView0.Nodes()

objTree.Nodes.Add objNode.Key, tvwChild, "a" & Genkey, "Define Parameters"
Genkey = Genkey + 1
Next objNode

the error I am getting is runtime error '35606' description control's collection has been modified

[FishVal]

Hi

I am trying to use the Windows treeview in a MS Access application. I want to iterate through child nodes of a particular node but i am failing to figure out how to do it. I have even tried the entire nodes using the following code but am getting an error

For Each objNode In Me.TreeView0.Nodes()

objTree.Nodes.Add objNode.Key, tvwChild, "a" & Genkey, "Define Parameters"
Genkey = Genkey + 1
Next objNode

the error I am getting is runtime error '35606' description control's collection has been modified

Hi, there.

Use Node.Child property to get first child, use Node.Next property to get next siebling. The following code will show all children of selected node.

    Dim trvTree As MSComctlLib.TreeView, nodCurrent As MSComctlLib.Node
    Dim i As Integer
 
    Set trvTree = Me.trvGroupsTree.Object
    Set nodCurrent = trvTree.SelectedItem.Child
 
    For i = 1 To trvTree.SelectedItem.Children
        Debug.Print nodCurrent.Text
        Set nodCurrent = nodCurrent.Next
    Next i