Re: [MS_AccessPros] TreeView won't populate images

 

Art -

We're not ignoring you, it's just that TreeViews in Access are very difficult to deal with and most of us avoid them like the plague. I made one attempt for a code database and got it working but it took forever. Here is my code that works for what I needed. Maybe you'll see something that helps you fix your issue.

Bill

'********START CODE*********

Public Function FillTreeView(ctrl As Control)
'Purpose : Fill Treeview control
'DateTime : 4/8/2008 10:24
'Author : Bill Mosca
'Requires : DAO
Dim db As DAO.Database
Dim rsLibrary As DAO.Recordset
Dim rsCat As DAO.Recordset
Dim rsSubCat As DAO.Recordset
Dim rsCode As DAO.Recordset
Dim strSQL As String
Dim tree As TreeView
Dim nodLibrary As Node
Dim nodParent As Node
Dim nodSubCat As Node
Dim nodCode As Node

Set tree = ctrl.Object
Set db = CurrentDb

'Get each major library.
strSQL = "SELECT CategoryID, Category FROM tblCategory " _
& "WHERE CategoryParent IS NULL"
Set rsLibrary = db.OpenRecordset(strSQL, dbOpenForwardOnly)
Do While Not rsLibrary.EOF
Set nodLibrary = tree.Nodes.Add()
nodLibrary.Key = "L" & rsLibrary!CategoryID
nodLibrary.Expanded = True
nodLibrary.Text = rsLibrary!Category

strSQL = "SELECT CategoryID, Category FROM tblCategory " _
& "WHERE CategoryParent = 0 "
Set rsCat = db.OpenRecordset(strSQL, dbOpenForwardOnly)

Do While Not rsCat.EOF
Set nodParent = tree.Nodes.Add(nodLibrary, tvwChild)
nodParent.Key = "P" & rsCat!CategoryID
' nodParent.Expanded = True
nodParent.Text = rsCat!Category

'Get all code under parent category
strSQL = "SELECT o.CodeID, o.CodeName " _
& "FROM tblCodeCategory a INNER JOIN tblCode o ON " _
& "a.CodeID = o.CodeID " _
& "WHERE a.CategoryID=" & rsCat!CategoryID
Set rsCode = db.OpenRecordset(strSQL, dbOpenForwardOnly)
Do While Not rsCode.EOF
'Get Code Name
Set nodCode = tree.Nodes.Add(nodParent, tvwChild, _
"C" & CStr(rsCode!CodeID), rsCode!CodeName)
'Use Tag to store actual CodeID
nodCode.Tag = rsCode!CodeID
rsCode.MoveNext
Loop

'Get sub categories
strSQL = "SELECT CategoryID, Category FROM tblCategory " _
& "WHERE CategoryParent =" & rsCat!CategoryID & " " _
& "AND CategoryParent <> 0"
Set rsSubCat = db.OpenRecordset(strSQL, dbOpenForwardOnly)
Do While Not rsSubCat.EOF
Set nodSubCat = tree.Nodes.Add(nodParent, tvwChild, _
"S" & CStr(rsSubCat!CategoryID), rsSubCat!Category)

'Get all code under sub categories
strSQL = "SELECT o.CodeID, o.CodeName " _
& "FROM tblCodeCategory a INNER JOIN tblCode o ON " _
& "a.CodeID = o.CodeID " _
& "WHERE a.CategoryID=" & rsSubCat!CategoryID
Set rsCode = db.OpenRecordset(strSQL, dbOpenForwardOnly)
Do While Not rsCode.EOF
'Get Code Name
Set nodCode = tree.Nodes.Add(nodSubCat, tvwChild, _
"C" & CStr(rsCode!CodeID), rsCode!CodeName)
'Use Tag to store actual CodeID
nodCode.Tag = rsCode!CodeID
rsCode.MoveNext
Loop
rsSubCat.MoveNext
Loop
rsCat.MoveNext
Loop
rsLibrary.MoveNext
Loop

Set nodCode = Nothing
Set nodSubCat = Nothing
Set nodParent = Nothing
Set nodLibrary = Nothing
Set rsCode = Nothing
Set rsSubCat = Nothing
Set rsCat = Nothing
Set rsLibrary = Nothing
Set db = Nothing

End Function

'********END CODE************

--- In MS_Access_Professionals@yahoogroups.com, Art Lorenzini <dbalorenzini@...> wrote:
>
> Any ideas? This has me way stomped!!!
>
>
>
>
> With warm regards,
>
> Arthur Lorenzini
> Sioux Falls, South Dakota
>
>
>
>
>
>
> ________________________________
> From: Art <dbalorenzini@...>
> To: MS_Access_Professionals@yahoogroups.com
> Sent: Tuesday, April 3, 2012 4:47 PM
> Subject: [MS_AccessPros] TreeView won't populate images
>
>
>
>  
>
> I have a treeview called TreeView1 on a form called frmTreeView.
>
> It was populating correctly and all off a sudden it starts error with "Key is not unique in collection". When I see this it usually means my Icons folder is not in the correction location. I moved it to where it belongs and its still doing it.
>
> IT chokes on the following code:
>
> objImage.ListImages.Add , "crha", LoadPicture(myPath & "CRHALogo.bmp")
>
> I have checked the location in myPath and it is correct.
>
> This is the AddNode event:
>
> ' First links the Treeview to the Imagelist object and then adds
> ' an image to the Imagelist. Nodes are then added to Treeview
> ' along with node tags.
>
> Dim objTree As TreeView
> Dim objImage As ImageList
> Dim myPath As String
> Dim db As DAO.Database
>
> Set db = CurrentDb
>
> Set objTree = Me.TreeView1.Object
> Set objImage = Me.ImageList1.Object
>
> 'link TreeView object to Imagelist object
> objTree.ImageList = objImage
>
> myPath = Left(db.Name, Len(db.Name) - Len(Dir(db.Name))) & "Icons\"
>
> 'add 3 more images to Imagelist
> objImage.ListImages.Add , "crha", LoadPicture(myPath & "CRHALogo.bmp")
> objImage.ListImages.Add , "edit", LoadPicture(myPath & "edit.bmp")
> objImage.ListImages.Add , "3tables", LoadPicture(myPath & "3tables.bmp")
>
> objTree.Nodes.Add , , "A", "CRHA Project Menu", "crha"
> objTree.Nodes.Add "A", tvwChild, "A1", "Projects", "frame"
> objTree.Nodes.Add "A", tvwChild, "B1", "Units", "frame"
> objTree.Nodes.Add "A", tvwChild, "C1", "Administration", "frame"
> objTree.Nodes.Add "A1", tvwChild, "A11", "Project - View\Edit", "form"
> objTree.Nodes("A11").Tag = "frmProjectsEdit"
>
> objTree.Nodes.Add "A1", tvwChild, "A13", "Project Report List", "form"
> objTree.Nodes.Add "A13", tvwChild, "A13A", "Preview Project Unit Summary Report", "report"
> objTree.Nodes("A13A").Tag = "rptProjectUnitReport"
> objTree.Nodes.Add "A13", tvwChild, "A13B", "Preview Project Unit Rental vs Mutual Help Report", "report"
> objTree.Nodes("A13B").Tag = "rptProjectUnitReportRentalsVsMH"
> objTree.Nodes.Add "A13", tvwChild, "A13C", "Preview Project Rental Unit by Project Report", "report"
> objTree.Nodes("A13C").Tag = "rptProjectRentalUnitReportOnly"
> objTree.Nodes.Add "A13", tvwChild, "A13D", "Preview Project Mutual Help Unit By Project Report", "report"
> objTree.Nodes("A13D").Tag = "rptProjectMutualHelpUnitReportOnly"
>
> objTree.Nodes.Add "B1", tvwChild, "B11", "Unit - View\Edit", "form"
> objTree.Nodes("B11").Tag = "edtUnitList"
> objTree.Nodes.Add "B1", tvwChild, "B12", "Unit - Add", "form"
> objTree.Nodes("B12").Tag = "addfrmUnits"
> objTree.Nodes.Add "B1", tvwChild, "B12A", "Unit - Detail Report", "form"
> objTree.Nodes("B12A").Tag = "rptUnitDetailReport"
>
> objTree.Nodes.Add "B1", tvwChild, "B13", "Unit Report List", "form"
>
> objTree.Nodes.Add "B13", tvwChild, "D13", "Unit By Community\Neighborhood Report List", "form"
> objTree.Nodes.Add "D13", tvwChild, "D13A", "Preview Units by Community Summary Report", "report"
> objTree.Nodes("D13A").Tag = "rptUnitByCommunityReport"
> objTree.Nodes.Add "D13", tvwChild, "D13B", "Preview Units by Community Rental vs Mutual Help Report", "report"
> objTree.Nodes("D13B").Tag = "rptCommunityUnitReportRentalsVsMH"
> objTree.Nodes.Add "D13", tvwChild, "D13C", "Preview Rental Units by Community Only Report", "report"
> objTree.Nodes("D13C").Tag = "rptCommunityUnitReportRentalsOnly"
> objTree.Nodes.Add "D13", tvwChild, "D13D", "Preview Mutual Help Units by Community Only Report", "report"
> objTree.Nodes("D13D").Tag = "rptCommunityUnitReportMutualHelpOnly"
> objTree.Nodes.Add "D13", tvwChild, "D13E", "Preview Units by Neighborhood Summary Report", "report"
> objTree.Nodes("D13E").Tag = "rptUnitByNeighborhoodReport"
> objTree.Nodes.Add "D13", tvwChild, "D13F", "Preview Units by Neighborhood Rental vs Mutual Help Report", "report"
> objTree.Nodes("D13F").Tag = "rptNeighborhoodUnitReportRentalsVsMH"
> objTree.Nodes.Add "D13", tvwChild, "D13G", "Preview Rental Units by Neighborhood Only Report", "report"
> objTree.Nodes("D13G").Tag = "rptNeighborhoodUnitReportRentalsOnly"
> objTree.Nodes.Add "D13", tvwChild, "D13H", "Preview Mutual Help Units by Neighborhood Only Report", "report"
> objTree.Nodes("D13H").Tag = "rptNeighborhoodUnitReportMutualHelpOnly"
>
>
> objTree.Nodes.Add "B13", tvwChild, "D14", "Unit By Foundation Report List", "form"
> objTree.Nodes.Add "D14", tvwChild, "D14A", "Preview Units by Foundation Type Summary Report", "report"
> objTree.Nodes("D14A").Tag = "rptUnitByFoundationTypeReport"
> objTree.Nodes.Add "D14", tvwChild, "D14B", "Preview Units by Foundation Type Rental vs Mutual Help Report", "report"
> objTree.Nodes("D14B").Tag = "rptFoundationUnitReportRentalsVsMH"
> objTree.Nodes.Add "D14", tvwChild, "D14C", "Preview Rental Units by Foundation Only Report", "report"
> objTree.Nodes("D14C").Tag = "rptFoundationUnitReportRentalsOnly"
> objTree.Nodes.Add "D14", tvwChild, "D14D", "Preview Mutual Help Units by Foundation Only Report", "report"
> objTree.Nodes("D14D").Tag = "rptFoundationUnitReportMutualHelpOnly"
>
>
> objTree.Nodes.Add "B13", tvwChild, "D15", "Unit By Type Report List", "form"
> objTree.Nodes.Add "D15", tvwChild, "D15A", "Preview Units by Unit Type Summary Report", "report"
> objTree.Nodes("D15A").Tag = "rptUnitByUnitTypeReport"
> objTree.Nodes.Add "D15", tvwChild, "D15B", "Preview Units by Unit Type Rental vs Mutual Help Report", "report"
> objTree.Nodes("D15B").Tag = "rptUnitTypeUnitReportRentalsVsMH"
> objTree.Nodes.Add "D15", tvwChild, "D15C", "Preview Rental Units by Unit Type Only Report", "report"
> objTree.Nodes("D15C").Tag = "rptUnitTypeRentalUnitReportOnly"
> objTree.Nodes.Add "D15", tvwChild, "D15D", "Preview Mutual Help Units by Unit Type Only Report", "report"
> objTree.Nodes("D15D").Tag = "rptUnitTypeMutualHelpReportOnly"
>
> objTree.Nodes.Add "B13", tvwChild, "D16", "Unit By Heating Type Report List", "form"
> objTree.Nodes.Add "D16", tvwChild, "D16A", "Preview Units by Heating Type Summary Report", "report"
> objTree.Nodes("D16A").Tag = "rptUnitByHeatTypeReport"
> objTree.Nodes.Add "D16", tvwChild, "D16B", "Preview Units by Heating Type Rental vs Mutual Help Report", "report"
> objTree.Nodes("D16B").Tag = "rptHeatingTypeUnitReportRentalsVsMH"
> objTree.Nodes.Add "D16", tvwChild, "D16C", "Preview Rental Units by Heating Type Only Report", "report"
> objTree.Nodes("D16C").Tag = "rptHeatingTypeRentalUnitReportOnly"
> objTree.Nodes.Add "D16", tvwChild, "D16D", "Preview Mutual Help Units by Heating Type Only Report", "report"
> objTree.Nodes("D16D").Tag = "rptHeatingTypeMutualHelpUnitReportOnly"
>
> objTree.Nodes.Add "B13", tvwChild, "D17", "Unit By Unit Status Report List", "form"
> objTree.Nodes.Add "D17", tvwChild, "D17A", "Preview Units by Unit Status Type Summary Report", "report"
> objTree.Nodes("D17A").Tag = "rptUnitByUnitStatusTypeReport"
> objTree.Nodes.Add "D17", tvwChild, "D17B", "Preview Units by Unit Status Type Rental vs Mutual Help Report", "report"
> objTree.Nodes("D17B").Tag = "rptUnitStatusUnitReportRentalsVsMH"
> objTree.Nodes.Add "D17", tvwChild, "D17C", "Preview Rental Units by Unit Status Only Report", "report"
> objTree.Nodes("D17C").Tag = "rptUnitStatusRentalUnitReportOnly"
> objTree.Nodes.Add "D17", tvwChild, "D17D", "Preview Mutual Help Units by Unit Status Only Report", "report"
> objTree.Nodes("D17D").Tag = "rptUnitStatusmutualHelpUnitReportOnly"
>
> objTree.Nodes.Add "B13", tvwChild, "D18", "Unit By Exterior Status Report List", "form"
> objTree.Nodes.Add "D18", tvwChild, "D18A", "Preview Units by Exterior Status Summary Report", "report"
> objTree.Nodes("D18A").Tag = "rptUnitByExteriorStatusReport"
> objTree.Nodes.Add "D18", tvwChild, "D18B", "Preview Units by Exterior Status Rental vs Mutual Help Report", "report"
> objTree.Nodes("D18B").Tag = "rptExteriorUnitReportRentalsVsMH"
> objTree.Nodes.Add "D18", tvwChild, "D18C", "Preview Rental Units by Exterior Status Only Report", "report"
> objTree.Nodes("D18C").Tag = "rptExteriorRentalUnitReportOnly"
> objTree.Nodes.Add "D18", tvwChild, "D18D", "Preview Mutual Help Units by Exterior Status Only Report", "report"
> objTree.Nodes("D18D").Tag = "rptExteriorMutualHelpUnitReportOnly"
>
> objTree.Nodes.Add "B13", tvwChild, "D19", "Unit By Interior Status Report List", "form"
> objTree.Nodes.Add "D19", tvwChild, "D19A", "Preview Units by Interior Status Summary Report", "report"
> objTree.Nodes("D19A").Tag = "rptUnitByInteriorStatusReport"
> objTree.Nodes.Add "D19", tvwChild, "D19B", "Preview Units by Interior Status Rental vs Mutual Help Report", "report"
> objTree.Nodes("D19B").Tag = "rptInteriorUnitReportRentalsVsMH"
> objTree.Nodes.Add "D19", tvwChild, "D19C", "Preview Rental Units by Interior Status Only Report", "report"
> objTree.Nodes("D19C").Tag = "rptInteriorRentalUnitReportOnly"
> objTree.Nodes.Add "D19", tvwChild, "D19D", "Preview Mutual Help Units by Interior Status Only Report", "report"
> objTree.Nodes("D19D").Tag = "rptInteriorMutualHelpUnitReportOnly"
>
> objTree.Nodes.Add "B13", tvwChild, "D20", "Unit By Tenant Compliance Report List", "form"
> objTree.Nodes.Add "D20", tvwChild, "D20A", "Preview Units by Tenant Compliance Summary Report", "report"
> objTree.Nodes("D20A").Tag = "rptUnitByTenantComplianceReport"
> objTree.Nodes.Add "D20", tvwChild, "D20B", "Preview Units by Tenant Compliance Rental vs Mutual Help Report", "report"
> objTree.Nodes("D20B").Tag = "rptTenantComplianceUnitReportRentalsVsMH"
> objTree.Nodes.Add "D20", tvwChild, "D20C", "Preview Rental Units by Tenant Compliance Only Report", "report"
> objTree.Nodes("D20C").Tag = "rptTenantComplianceRentalUnitReportOnly"
> objTree.Nodes.Add "D20", tvwChild, "D20D", "Preview Mutual Help Units by Tenant Compliance Only Report", "report"
> objTree.Nodes("D20D").Tag = "rptTenantComplianceMutalHelpUnitReportOnly"
>
> objTree.Nodes.Add "B13", tvwChild, "D21", "Unit By Siding Type Report List", "form"
> objTree.Nodes.Add "D21", tvwChild, "D21A", "Preview Units by Siding Status Summary Report", "report"
> objTree.Nodes("D21A").Tag = "rptUnitBySidingStatusReport"
> objTree.Nodes.Add "D21", tvwChild, "D21B", "Preview Units by Siding Status Rental vs Mutual Help Report", "report"
> objTree.Nodes("D21B").Tag = "rptSidingTypeUnitReportRentalsVsMH"
> objTree.Nodes.Add "D21", tvwChild, "D21C", "Preview Rental Units by Siding Type Only Report", "report"
> objTree.Nodes("D21C").Tag = "rptSidingTypeRentalUnitReportOnly"
> objTree.Nodes.Add "D21", tvwChild, "D21D", "Preview Mutual Help Units by Siding Type Only Report", "report"
> objTree.Nodes("D21D").Tag = "rptSidingTypeMutualHelpUnitReportOnly"
>
> objTree.Nodes.Add "B13", tvwChild, "D22", "Unit By Roofing Type Report List", "form"
> objTree.Nodes.Add "D22", tvwChild, "D22A", "Preview Units by Roofing Type Summary Report", "report"
> objTree.Nodes("D22A").Tag = "rptUnitByUnitRoofTypeReport"
> objTree.Nodes.Add "D22", tvwChild, "D22B", "Preview Units by Roofing Type Rental vs Mutual Help Report", "report"
> objTree.Nodes("D22B").Tag = "rptRoofingTypeUnitReportRentalsVsMH"
> objTree.Nodes.Add "D22", tvwChild, "D22C", "Preview Rental Units by Roofing Type Only Report", "report"
> objTree.Nodes("D22C").Tag = "rptRoofingTypeRentalUnitReportOnly"
> objTree.Nodes.Add "D22", tvwChild, "D22D", "Preview Mutual Help Units by Roofing Type Only Report", "report"
> objTree.Nodes("D22D").Tag = "rptRoofingTypeMutualHelpUnitReportOnly"
>
> objTree.Nodes.Add "B13", tvwChild, "D23", "Unit By Garage Type Report List", "form"
> objTree.Nodes.Add "D23", tvwChild, "D23A", "Preview Units by Garage Type Summary Report", "report"
> objTree.Nodes("D23A").Tag = "rptUnitByGarageTypeReport"
> objTree.Nodes.Add "D23", tvwChild, "D23B", "Preview Units by Garage Type Rental vs Mutual Help Report", "report"
> objTree.Nodes("D23B").Tag = "rptGarageTypeUnitReportRentalsVsMH"
> objTree.Nodes.Add "D23", tvwChild, "D23C", "Preview Rental Units by Garage Type Only Report", "report"
> objTree.Nodes("D23C").Tag = "rptGarageTypeRentalUnitReportOnly"
> objTree.Nodes.Add "D23", tvwChild, "D23D", "Preview Mutual Help Units by Garage Type Only Report", "report"
> objTree.Nodes("D23D").Tag = "rptGarageTypemutualHelpUnitReportOnly"
>
> objTree.Nodes.Add "B13", tvwChild, "D24", "Unit By Driveway Type Report List", "form"
> objTree.Nodes.Add "D24", tvwChild, "D24A", "Preview Units by Driveway Type Summary Report", "report"
> objTree.Nodes("D24A").Tag = "rptUnitByDrivewayTypeReport"
> objTree.Nodes.Add "D24", tvwChild, "D24B", "Preview Units by Driveway Type Rental vs Mutual Help Report Report", "report"
> objTree.Nodes("D24B").Tag = "rptDrivewayTypeUnitReportRentalsVsMH"
> objTree.Nodes.Add "D24", tvwChild, "D24C", "Preview Rental Units by Driveway Type Only Report", "report"
> objTree.Nodes("D24C").Tag = "rptDrivewayTypeRentalUnitReportOnly"
> objTree.Nodes.Add "D24", tvwChild, "D24D", "Preview Mutual Help Units by Driveway Type Only Report", "report"
> objTree.Nodes("D24D").Tag = "rptDrivewayTypemutualHelpUnitReportOnly"
>
> objTree.Nodes.Add "B13", tvwChild, "D25", "Unit By Renovation Type Report List", "form"
> objTree.Nodes.Add "D25", tvwChild, "D25A", "Preview Units by Renovation Type Summary Report", "report"
> objTree.Nodes("D25A").Tag = "rptUnitByRenovationTypeReport"
> objTree.Nodes.Add "D25", tvwChild, "D25B", "Preview Units by Renovation Type Rental vs Mutual Help Report", "report"
> objTree.Nodes("D25B").Tag = "rptRenovationTypeUnitReportRentalsVsMH"
> objTree.Nodes.Add "D25", tvwChild, "D25C", "Preview Rental Units by Renovation Type Only Report", "report"
> objTree.Nodes("D25C").Tag = "rptRenovationTypeRentalUnitReportOnly"
> objTree.Nodes.Add "D25", tvwChild, "D25D", "Preview Mutual Help Units by Renovation Type Only Report", "report"
> objTree.Nodes("D25D").Tag = "rptRenovationTypeMutualHelpUnitReportOnly"
>
> objTree.Nodes.Add "B13", tvwChild, "D26", "Unit By Recommendation Type Report List", "form"
> objTree.Nodes.Add "D26", tvwChild, "D26A", "Preview Units by Recommendation Type Summary Report", "report"
> objTree.Nodes("D26A").Tag = "rptUnitByRecommendationTypeReport"
> objTree.Nodes.Add "D26", tvwChild, "D26B", "Preview Units by Recommendation Type Rental vs Mutual Help Report", "report"
> objTree.Nodes("D26B").Tag = "rptRecommendationUnitReportRentalsVsMH"
> objTree.Nodes.Add "D26", tvwChild, "D26C", "Preview Rental Units by Recommendation Type Only Report", "report"
> objTree.Nodes("D26C").Tag = "rptRecommendationRentalUnitReportOnly"
> objTree.Nodes.Add "D26", tvwChild, "D26D", "Preview Mutual Help Units by Recommendation Type Only Report", "report"
> objTree.Nodes("D26D").Tag = "rptRecommendationMutualHelpUnitReportOnly"
>
> objTree.Nodes.Add "B13", tvwChild, "D27", "Unit By Assigned Maintenance Worker Report List", "form"
> objTree.Nodes.Add "D27", tvwChild, "D27A", "Preview Units by Assigned Maintenance Worker Summary Report", "report"
> objTree.Nodes("D27A").Tag = "rptUnitByAssignedMaintenanceWorkerReport"
> objTree.Nodes.Add "D27", tvwChild, "D27B", "Preview Units by Assigned Maintenance Worker Rental vs Mutual Report", "report"
> objTree.Nodes("D27B").Tag = "rptAssignedMaintenanceMenUnitReportRentalsVsMH"
> objTree.Nodes.Add "D27", tvwChild, "D27C", "Preview Rental Units by Assigned Maintenance Worker Only Report", "report"
> objTree.Nodes("D27C").Tag = "rptAssignedMaintenanceMenRentalUnitReportonly"
> objTree.Nodes.Add "D27", tvwChild, "D27D", "Preview Mutual Help Units by Assigned Maintenance Worker Only Report", "report"
> objTree.Nodes("D27D").Tag = "rptAssignedMaintenanceMenMutualHelpUnitReportOnly"
>
>
> objTree.Nodes.Add "C1", tvwChild, "C11", "About CRHA Database", "form"
> objTree.Nodes("C11").Tag = "edtSplashScreen"
> If CurrentAccessLevel = 1 Or CurrentAccessLevel = 3 Then
>
> objTree.Nodes.Add "C1", tvwChild, "C12", "Edit Communities", "form"
> objTree.Nodes("C12").Tag = "frmEdtCommunities"
> objTree.Nodes.Add "C1", tvwChild, "C12A", "Edit Neighborhood", "form"
> objTree.Nodes("C12A").Tag = "frmEdtNeighborhood"
> objTree.Nodes.Add "C1", tvwChild, "C13", "Edit Foundation Type", "form"
> objTree.Nodes("C13").Tag = "frmEdtFoundation"
> objTree.Nodes.Add "C1", tvwChild, "C14", "Edit Driveway Type", "form"
> objTree.Nodes("C14").Tag = "frmEdtDriveway"
> objTree.Nodes.Add "C1", tvwChild, "C15", "Edit Roof Types", "form"
> objTree.Nodes("C15").Tag = "frmEdtRoof"
> objTree.Nodes.Add "C1", tvwChild, "C16", "Edit Assigned Maintenance Worker", "form"
> objTree.Nodes("C16").Tag = "frmedtAssignedMaintenanceWorker"
> objTree.Nodes.Add "C1", tvwChild, "C17", "Edit Recommendation Type", "form"
> objTree.Nodes("C17").Tag = "frmEdtRecommendation"
> objTree.Nodes.Add "C1", tvwChild, "C18", "Edit Renovation Type", "form"
> objTree.Nodes("C18").Tag = "frmEdtRenovation"
> objTree.Nodes.Add "C1", tvwChild, "C19", "Edit Siding Type", "form"
> objTree.Nodes("C19").Tag = "frmEdtSiding"
> objTree.Nodes.Add "C1", tvwChild, "C20", "Edit Unit Status", "form"
> objTree.Nodes("C20").Tag = "frmEdtUnitStatus"
> objTree.Nodes.Add "C1", tvwChild, "C21", "Edit Unit Type", "form"
> objTree.Nodes("C21").Tag = "frmEdtUnitType"
> objTree.Nodes.Add "C1", tvwChild, "C22", "Edit Heating Type", "form"
> objTree.Nodes("C22").Tag = "frmEdtHeatingType"
> objTree.Nodes.Add "C1", tvwChild, "C22A", "Edit Interior Status Type", "form"
> objTree.Nodes("C22A").Tag = "frmEdtInteriorStatus"
> objTree.Nodes.Add "C1", tvwChild, "C22B", "Edit Exterior Status Type", "form"
> objTree.Nodes("C22B").Tag = "frmEdtExteriorStatus"
> End If
> If CurrentAccessLevel = 1 Then
> objTree.Nodes.Add "C1", tvwChild, "C22C", "User Administration", "form"
> objTree.Nodes.Add "C22C", tvwChild, "C22C1", "Manage User Access Views", "form"
> objTree.Nodes("C22C1").Tag = "edtfrmSecurityAccessViews"
> objTree.Nodes.Add "C22C", tvwChild, "C22C2", "Manage User Access Levels", "form"
> objTree.Nodes("C22C2").Tag = "edtfrmSecurityAccess"
> objTree.Nodes.Add "C22C", tvwChild, "C22C3", "Add New Employee", "form"
> objTree.Nodes("C22C3").Tag = "edtfrmNewUser"
> objTree.Nodes.Add "C22C", tvwChild, "C22C4", "Add New User", "form"
> objTree.Nodes("C22C4").Tag = "edtfrmAddNewUser"
> objTree.Nodes.Add "C22C", tvwChild, "C22C5", "User Manager", "form"
> objTree.Nodes("C22C5").Tag = "fmnuUsers"
> objTree.Nodes.Add "C1", tvwChild, "C23", "Missing Data Reports", "form"
> objTree.Nodes.Add "C23", tvwChild, "C24A", "Preview Missing Data Report # 1", "report"
> objTree.Nodes("C24A").Tag = "rptMissingDataNo1Report"
> objTree.Nodes.Add "C23", tvwChild, "C25A", "Preview Missing Data Report # 2", "report"
> objTree.Nodes("C25A").Tag = "rptMissingDataNo2Report"
> objTree.Nodes.Add "C23", tvwChild, "C26A", "Preview Missing Data Report # 3", "report"
> objTree.Nodes("C26A").Tag = "rptMissingDataNo3Report"
> objTree.Nodes.Add "C23", tvwChild, "C27A", "Preview Missing Data Report # 4", "report"
> objTree.Nodes("C27A").Tag = "rptMissingDataNo4Report"
> objTree.Nodes.Add "C23", tvwChild, "C28A", "Preview Missing Data Report # 5", "report"
> objTree.Nodes("C28A").Tag = "rptMissingDataNo5Report"
> objTree.Nodes.Add "C23", tvwChild, "C29A", "Preview Missing Data Report # 6", "report"
> objTree.Nodes("C29A").Tag = "rptMissingDataNo6Report"
> End If
>
> Any ideas?
>
> Thank you,
>
> Art Lorenzini
>
>
>
>
> [Non-text portions of this message have been removed]
>

__._,_.___

Reply to sender | Reply to group | Reply via web post | Start a New Topic

Messages in this topic (3)

Recent Activity:

• New Members 8
• New Links 1
• New Files 3

Visit Your Group

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use

.

__,_._,___