Function tvwBooks_Fill()
'Created by Helen Feddema 2-10-2002
'Last modified 8-28-2003

'============================================================
'Modified from a procedure generated by the Treeview Control Wizard
'
'PURPOSE: Fill the ActiveX Treeview Control 'tvwBooks'
'ACCEPTS: Nothing
'RETURNS: Nothing
'CALLED FROM: Form Load event
'============================================================

On Error GoTo ErrorHandler

   Dim strMessage As String
   Dim dbs As DAO.Database
   Dim rst As DAO.Recordset
   Dim intVBMsg As Integer
   Dim strQuery1 As String
   Dim strQuery2 As String
   Dim nod As Object
   Dim strNode1Text As String
   Dim strNode2Text As String
   Dim strVisibleText1 As String
   Dim strVisibleText2 As String
  
   Set dbs = CurrentDb()
   strQuery1 = "qryEBookAuthors"
   strQuery2 = "qryEBooksByAuthor"
  
   With Me![tvwBooks]
      'Fill Level 1
      Set rst = dbs.OpenRecordset(strQuery1, dbOpenForwardOnly)

      'Add a node object for each record in the "qryEBookAuthors" table/query.
      'For parent nodes, the Key property is based on the the level of the tree
      'in which the node exists and the Link Master field(s) you selected when
      'linking levels in the wizard.  For child nodes, the Relative property
      'is based on the level of the tree in which the Parent node exists and
      'the Link Child field(s) you selected when linking levels in the wizard.

      Do Until rst.EOF
         Debug.Print "Adding Level 1 item: " & rst![AuthorID]
         strNode1Text = StrConv("Level1 - " & rst![AuthorID], _
            vbLowerCase)
         Debug.Print "Node 1 text: " & strNode1Text
         strVisibleText1 = rst![LastNameFirst]
         Debug.Print "Level 1 visible text: " & strVisibleText1
         Set nod = .Nodes.Add(Key:=strNode1Text, _
            Text:=strVisibleText1)
         nod.Expanded = True
         rst.MoveNext
      Loop
      rst.Close
      
      'Fill Level 2
      Set rst = dbs.OpenRecordset(strQuery2, dbOpenForwardOnly)

      'Add a node object for each record in the "qryEBooksByAuthor"
      'table/query. For parent nodes, the Key property is based on the
      'level of the tree in which the node exists and the Link Master
      'field(s) you selected when linking levels in the wizard.  For child
      'nodes, the Relative property is based on the level of the tree in
      'which the Parent node exists and the Link Child field(s) you selected
      'when linking levels in the wizard.

      Do Until rst.EOF
         Debug.Print "Adding Level 2 item: " & rst![Title]
         strNode1Text = StrConv("Level1 - " & rst![AuthorID], vbLowerCase)
         Debug.Print "Node 1 text: "; strNode1Text
         strNode2Text = StrConv("Level2 - " & rst![AuthorID] & " - " _
            & rst![Title], vbLowerCase)
         Debug.Print "Node 2 text: " & strNode2Text
         strVisibleText2 = rst![Title] & rst![BeenRead]
         Debug.Print "Visible text: " & strVisibleText2
         .Nodes.Add relative:=strNode1Text, _
            relationship:=tvwChild, _
            Key:=strNode2Text, _
            Text:=strVisibleText2
         rst.MoveNext
      Loop
      rst.Close
      
   End With
   dbs.Close

ErrorHandlerExit:
   Exit Function

ErrorHandler:
   Select Case Err.Number
      Case 35601
         'Element not found
         strMessage = "Possible Causes: You selected a table/query" _
            & " for a child level which does not correspond to a value" _
            & " from its parent level."
         intVBMsg = MsgBox(Error$ & strMessage, vbOKOnly + _
            vbExclamation, "Run-time Error: " & Err.Number)
      Case 35602
         'Key is not unique in collection
         strMessage = "Possible Causes: You selected a non-unique" _
            & " field to link levels."
         intVBMsg = MsgBox(Error$ & strMessage, vbOKOnly + _
            vbExclamation, "Run-time Error: " & Err.Number)
      Case Else
         intVBMsg = MsgBox(Error$ & "@@", vbOKOnly + _
            vbExclamation, "Run-time Error: " & Err.Number)
   End Select
   Resume ErrorHandlerExit

End Function


Private Sub tvwBooks_NodeClick(ByVal Node As Object)
'Created by Helen Feddema 2-10-2002
'Last modified 8-30-2003

On Error GoTo ErrorHandler

   Dim frm As Access.Form
   Dim strNodeText As String
   Dim strTitlePlus As String
  
   Set frm = Me![subBookInformation].Form
  
   Debug.Print "Node key: " & Node.Key
   If Left(Node.Key, 6) = "level2" Then
      If Right(Node.Text, 1) = Chr$(215) Or _
         Right(Node.Text, 1) = Chr$(247) Then
         strNodeText = Left(Node.Text, Len(Node.Text) - 1)
      Else
         strNodeText = Node.Text
      End If
      
      Debug.Print "Node text: " & strNodeText
      strTitlePlus = Mid(Node.Key, 10)
      Debug.Print "Title plus: " & strTitlePlus
      Me![txtSelectedBook].Value = strTitlePlus
      frm.Requery
      frm![txtSeriesNumber].Enabled = frm![chkSeries].Value
      frm![cboSeriesName].Enabled = frm![chkSeries].Value
      frm.Visible = True
   Else
      frm.Visible = False
   End If
      
ErrorHandlerExit:
   Exit Sub

ErrorHandler:
   MsgBox "Error No: " & Err.Number & "; Description: " & Err.Description
   Resume ErrorHandlerExit

End Sub

[color="green"]'// instantiate the Custom Database Security class object[/color]

Public CDBSecurity As New cCDBSecurity



[color="green"]'// this code here assumes that you use a table to fill the treeview, and

'// that the table holds a Security Role ID field, which identifies who sees what... [/color]

Function FillTreeviewRecursively() As Boolean

For Each Record In TheTreeviewRecordSet

      If Not Field("SecurityRoleID") = AdminID Then

           AddTreeviewNodeItem

      Else

           If CDBSecurity.UserRoleID = AdminID Then

                 AddTreeviewNodeItem

           Else

                 IgnoreItemAndDoSomethingElse

           End If

      End If

Next Record

End Function





[color="green"]'// this code here assumes that you use a table to fill the explorer bar, and

'// that the table holds a Security Role ID field, which identifies who sees what... [/color]

Function FillExplorerBar() As Boolean

For Each Record In TheExplorerBarRecorSet

      If Not Field("SecurityRoleID") = AdminID Then

           AddExplorerBarItem

      Else

           If CDBSecurity.UserRoleID = AdminID Then

                 AddExplorerBarItem

           Else

                 IgnoreItemAndDoSomethingElse

           End If

      End If

Next Record

End Function