You need a data source for each level (typically a query), and you have to decide which fields to use for linking, and which for the visible text.

Sorry I'm just getting back to you guys on this one.. I'm going to dig into this now and I'll get back as soon as I get hung up.

Thanks

Thanks all for yout input.. I'm still struggling with this however..  

fyed; I went through the episodes.. I focused on the actually structure of creating the tree. I managed to get two tiers setup.. The first is my Job Number which comes from a query, qryJobNums where I have the criteria set to Eval("[Forms]![frmFAI]![cboJobNum]"). (I only want one Job listed in the top tier of the tree.)

Then I added a second node under Job which I can get working if I specify the connection to Eval("[Forms]![frmFAI]![cboJobNum]") in the query qryJobAssemblies. If I remove the criteria from the query then I get a "Run-Time error '35601': Element not found"

Here is my code as of right now, when I'm getting the Element not found error. It highlights the part in bold;


Private Sub CreateJobNodes()
  Dim rst As DAO.Recordset ' recordset for category data

  ' open the recordset for categories
  Set rst = CurrentDb.QueryDefs!qryJobNums.OpenRecordset

  ' loop through the rows in the recordset
  rst.MoveFirst
  Do Until rst.EOF
    Me.TreeJobTracker.Nodes.Add Text:=rst!jpJobNum, _
      Key:=CStr(rst!jpJobNum)
    rst.MoveNext
  Loop
  rst.Close
  Set rst = Nothing
End Sub

Private Sub CreateAssemblyNodes()
  Dim rst As DAO.Recordset ' recordset for product data

  ' open the recordset for products
  Set rst = CurrentDb.QueryDefs!qryJobAssemblies.OpenRecordset

  ' loop through the rows in the recordset
  rst.MoveFirst
  Do Until rst.EOF
   Me.TreeJobTracker.Nodes.Add Relationship:=tvwChild, _
        Relative:=CStr(rst!jpJobNum), _
        Text:="ASM: " & rst!jaAssemblySeq & " " & rst!ParentPartNum ', _
        'Key:="ASM=" & "Cstr(rst!jaAssemblySeq)"
       
    rst.MoveNext
  Loop
  rst.Close
  Set rst = Nothing
End Sub


Private Sub Form_Open(Cancel As Integer)
  CreateJobNodes
  CreateAssemblyNodes

End Sub


Right now the Key for my second Assembly node is commented out because I was getting an error on that as well. First if we can eliminate this element error though that would be good...

Thanks

Just figured out it was trying to find the next job number in the list which was not there because I filtered it out at my qryJobNums.. Now when I run it I'm getting a complete list of Jobs and then I can expand them to get to the assemblies within the jobs.

So I guess my question is, How can i filter the tree to only show me one job?

You cannot filter a tree.

The only thing I could think of would be hiding a node (which I have never attempted).

Or you set up the first part of the process (CreateJobNodes) so that it only builds the Job node for the job you are interested in.

fyed.. I think I just made some headway with filtering.. I just need to filter the JobNum at every query for each node. That way only information pertaining to that specific job appears at any given query/node when the tree cycles through the data.

Now I'm trying to add a split in my tree though.. I'm thinking this might be simple and I just can't figure it out but I could be wrong:)

Basically I want to add different information under my assemblies; e.g.;

JobNum
      Assembly1
               Operations
               Materials
      Assembly2
               Operations
               Materials

I managed to add Operations in by itself no problem.. but I guess I need to add a node in between Assemblies and Operation that will create a split where I can add my operations under a node called operations and add materials under a node called materials..

It can get very confusing as you go down.  Another way to handle the differences between operations and materials, as items under each assembly would be to give them images that identify them as such.  There is an example of that in episode #6 on the treeview blog.

.. Hmm.. For some reason I thought it stopped at Episode 5 :)  Sweet. Let me thumb through that and I'll get right back

What I usually do is build each node and its subnodes sequentially, sort of like:

set RsOuter = currentdb.openrecordset(strRootNodes, , dbfailonerror
while not rsOuter.Eof

    Me.myTree.Nodes.Add ....

    Call FirstLevel(rsOuter.SomeValue)

    rsOuter.movenext
Wend
rsOuter.Close

Then, in FirstLevel, I use the value that was passed to create another recordset based upon that value, and loop through all of the records in that recordset.  And if I have another level, I call that from inside subroutine FirstLevel, and pass it whatever parameter I need to.

I'm having trouble following your last post.. Probably because I'm still not fully onboard with how this is working:)

I can tell you what I have so far, the CreateCategoryNodes was my attempt at creating the operation subcategory.. Didn't work though.. Although I did get it to show up at the bottom of my tree as another primary tier..?

Option Compare Database

Select allOpen in new window

Private Sub CreateJobNodes()
  Dim rst As DAO.Recordset ' recordset for category data

  ' open the recordset for categories
  Set rst = CurrentDb.QueryDefs!qryJobNums.OpenRecordset

  ' loop through the rows in the recordset
  rst.MoveFirst
  Do Until rst.EOF
    Me.TreeJobTracker.Nodes.Add Text:=rst!jpJobNum, _
      Key:=CStr(rst!jpJobNum)
    rst.MoveNext
  Loop
  rst.Close
  Set rst = Nothing
End Sub

Select allOpen in new window

Private Sub CreateAssemblyNodes()
  Dim rst As DAO.Recordset ' recordset for product data

  ' open the recordset for products
  Set rst = CurrentDb.QueryDefs!qryJobAssemblies.OpenRecordset

  ' loop through the rows in the recordset
  rst.MoveFirst
  Do Until rst.EOF
    Me.TreeJobTracker.Nodes.Add Relationship:=tvwChild, _
        Relative:=CStr(rst!jpJobNum), _
        Text:="ASM: " & rst!jaAssemblySeq & " " & rst!ParentPartNum, _
        Key:=CStr(rst!jpJobNum) & CStr(rst!jaAssemblySeq)
        
    rst.MoveNext
  Loop
  rst.Close
  Set rst = Nothing
End Sub

Select allOpen in new window

Private Sub CreateOperationNodes()
  Dim rst As DAO.Recordset ' recordset for product data

  ' open the recordset for products
  Set rst = CurrentDb.QueryDefs!qryJobOperations.OpenRecordset

  ' loop through the rows in the recordset
  rst.MoveFirst
  Do Until rst.EOF
    Me.TreeJobTracker.Nodes.Add Relationship:=tvwChild, _
        Relative:=CStr(rst!jpJobNum) & CStr(rst!jaAssemblySeq), _
        Text:="Opr: " & rst!joOprSeq & " " & rst!jmDescription ', _
        Key:=CStr(rst!jpJobNum) & CStr(rst!jaAssemblySeq)
        
    rst.MoveNext
  Loop
  rst.Close
  Set rst = Nothing
End Sub

Select allOpen in new window

Private Sub CreateCategoryNodes()

Me.TreeJobTracker.Nodes.Add _
        Relationship:=tvwChild, _
        Relative:=CStr(rst!jpJobNum) & CStr(rst!jaAssemblySeq), _
        Text:="Operations", _
        Key:="Operations"

End Sub

Select allOpen in new window

Private Sub Form_Open(Cancel As Integer)
  CreateJobNodes
  CreateAssemblyNodes
  CreateOperationNodes
  CreateCategoryNodes
  
End Sub

Select allOpen in new window

glad we could help.

Personally, I like the tree-view, but it can be annoying and time consuming to build, and they tend to take up a lot of screen realestate. Thank God for tabs.

Between the different answers on here I was able to piece this together very well! The episodes you provided fyed helped me better understand how the thing was working.

Thank you all for your help!