Treeview not populating right

[lithium]

Okay, I am implementing a treeview and have it added to the form but can't seem to get it to populate the parents properly. Right now, it populates just the first row of the table (tblCorp).

Public Sub loadTreeview()

    Dim tv As MSComctlLib.TreeView
    Set tv = Forms("Main1").treeReqs.Object
    

    tv.Nodes.Clear
    Dim rsReqs As DAO.Recordset
    Set rsReqs = CurrentDb.OpenRecordset("SELECT * FROM tblCorp", dbOpenDynaset)
    
    Dim strFind As String
    strFind = "ID=1"
    rsReqs.FindFirst strFind
    Dim nodx As MSComctlLib.Node
    
    
    Do While Not rsReqs.NoMatch
    Set nodx = tv.Nodes.Add(, , , rsReqs!Policy_Name)
    
    rsReqs.FindNext strFind
    Loop
    
End Sub

The "ID" field is my primary key and is set to autoincrement in the table as new records are added. Whenever I attempt to just change strFind = "ID=1" to "ID=2" it gives me a type mismatch error....

[June7]

That code doesn't increment the ID value to search. How does "ID=1" become "ID=2"?

[lithium]

Doesnt the .FindNext increment to the next one? Maybe that was my issue

[June7]

strFind variable is still "ID=1"

I've never used FindNext. All it does is find the next record that has that same criteria. If the ID value is unique then there isn't another record to find.

I've never use treeview so not sure how this should be built. Maybe:

Dim nodx As MSComctlLib.Node
rsReqs.FindFirst "ID=1"
If not rsRegs.NoMatch
Do While Not rsReqs.EOF
Set nodx = tv.Nodes.Add(, , , rsReqs!Policy_Name)
rsReqs.MoveNext
Loop
End If

Should the recordset have ORDER BY clause?

[lithium]

Yes, but strangely it started throwing errors left and right when I added the ORDER BY

[lithium]

Well, I got the parent to populate correctly by changing some things within my database tables (added Tree_ID and gave each of the four tables a primary identifier to illustrate what node they would be under) but now it gets stuck in children nodes by just looping the same parent node as if they were the children nodes (loops until no stack is available anymore)...man this is confusing since it is my first time with tree view.

Option Compare Database
Public Sub loadTreeview()

    Dim tv As MSComctlLib.TreeView
    Set tv = Forms("Main1").treeReqs.Object
    
    tv.Nodes.Clear
    Dim rsReqs As DAO.Recordset
    Set rsReqs = CurrentDb.OpenRecordset("SELECT * FROM tblCorp", dbOpenDynaset)
    
    Dim strFind As String
    strFind = "Tree_ID=1"
    rsReqs.FindFirst strFind
    Dim nodX As MSComctlLib.Node
    
    Dim strBook As String
    Do While Not rsReqs.NoMatch
    Set nodX = tv.Nodes.Add(, , , rsReqs!Name)
    strBook = rsReqs.Bookmark
    addChildren tv, nodX, rsReqs, rsReqs!Policy_ID
    rsReqs.Bookmark = strBook
    rsReqs.FindNext strFind
    Loop

    
End Sub
Private Sub addChildren(tv As TreeView, nodParent As Node, rsReqs As DAO.Recordset, lngParentID As Long)
    Dim strFind As String
    strFind = "Tree_ID=" & lngParentID
    rsReqs.FindFirst strFind
    Dim nodX As Node
    Dim strBook As String
    Do While Not rsReqs.NoMatch
        Set nodX = tv.Nodes.Add(nodParent, tvwChild, , rsReqs!Name)
        strBook = rsReqs.Bookmark
        addChildren tv, nodX, rsReqs, rsReqs!Policy_ID
        rsReqs.Bookmark = strBook
        rsReqs.FindNext strFind
    Loop
End Sub

Table structures is this:


Essentially, each Corp Policy can have many InfoSec ones (they would be child nodes to the Corp Policy) and that goes down hill for the infoSec policies having many features (child node to that infosec)

My guess is I linked back to the wrong PK and I honestly have no idea where to go from this point forward.

[June7]

I know zero about building/using treeview in Access. Most of what I find is Visual Basic related. However, this thread has example databases http://www.access-programmers.co.uk/...d.php?t=222000