Tree Code (Element not found error)

[sandrewskid]

Hi, I used your sample to get my TreeView Control to work with a parent child table (Modules/Devices). If fills in the parents just find but tells me an element is not found when adding the children, Do I need to set a property or something? My code is below. I am setting the tree on Form Open

Private Sub Form_Open(Cancel As Integer)
Dim MyRS As DAO.Recordset
Dim MyRSChild As DAO.Recordset
Dim strSQL As String
 
Me![TreeView1].LineStyle = 1    'Root lines
Me![TreeView1].Style = 7        'TreelinesPlusMinusPictureText
 
Set MyDB = CurrentDb()
Set MyRS = MyDB.OpenRecordset("tblModulHeader", dbOpenDynaset)
 
'1-Relative, tvwChild-Relationship, "g"-Key, "George"-Text "ROOT Node"
Set nodX = TreeView1.Nodes.Add(, , , "MODULES AND RELATED DEVICES")
'Populate Customer Nodes
Do While Not MyRS.EOF
Set nodX = TreeView1.Nodes.Add(1, tvwChild, "MODULE" & MyRS![Module_ID], MyRS![Module_DESC])
    nodX.EnsureVisible
    MyRS.MoveNext
Loop
 
strSQL = "Select * From tblModuleDetail"
Set MyRSChild = MyDB.OpenRecordset(strSQL, dbOpenSnapshot)
 
'Populate Module details
Do While Not MyRSChild.EOF
   Set nodX = TreeView1.Nodes.Add("MOD ID" & MyRSChild![Module_ID], tvwChild, "Mat_ID" & MyRSChild![Mat_ID], "Material Description" & CStr(MyRSChild![Material_Desc]))
    MyRSChild.MoveNext
Loop
 
'Accentuate the Root by making Text Bold
TreeView1.Nodes(1).ForeColor = QBColor(4)
 
'Select the Root
 TreeView1.Nodes(1).Selected = True
 Me!TreeView1.SetFocus
 SendKeys "^{HOME}"
 MyRSChild.Close
 MyRS.Close
 Set MyRSChild = Nothing
 Set MyRS = Nothing
 
End Sub

[zmbd]

Before get too deep here, have you taken a look at:
TheSmileyCoder Treeview Article(s)

You might want to visit his Youtube channel for the entire series.

[jforbes]

I've used TheSmileyCoder's examples and they are great. You might want to just start with his code as your base.


From Add Method (Nodes Collection) the First parameter is defined as:

Relative Optional. The index number or key of a pre-existing Node object.

Based on that, I think what you are running into is that your first parameter needs to resolve to a valid index of an existing node or an actual Parent node passed along to the method:

Set nodX = TreeView1.Nodes.Add("MOD ID" & MyRSChild![Module_ID], tvwChild, "Mat_ID" & MyRSChild![Mat_ID], "Material Description" & CStr(MyRSChild![Material_Desc]))

Lastly, this is a quick and dirty example of adding some Child nodes:

Private Sub Command1_Click()
    Dim iCount As Integer
    Dim oBinderNode As MSComctlLib.Node
    Dim oAttachmentsNode As MSComctlLib.Node
 
    Me.TreeView0.Nodes.Clear
    ' Create Parent
    Set oBinderNode = Me.TreeView0.Nodes.Add(, , "Binder:Root", "Root")
    'Create Children
    For iCount = 1 To 10
       Set oAttachmentsNode = Me.TreeView0.Nodes.Add(oBinderNode, MSComctlLib.TreeRelationshipConstants.tvwChild, "Attachment:" & iCount, "Attachment #" & iCount)
    Next iCount
End Sub