Access: построение дерева разделов - TreeView и VBA

Дано: База данных Access 2016 с таблицей, где перечислены разделы (подразделения или другие данные, которые можно представить в виде иерархии).
Задача: на Access-форме построить иерархическое дерево на базе указанной выше таблице.


Скачать пример базы в формате Access

Допустим имеется таблица подразделений вуза (tblDepartment) в формате:
intID - strDepartmentName - intParentID
Где,
intID - идентификатор подразделения,
strDepartmentName  - наименование подразделения,
intParentID - идентификатор родительского подразделения.

Корневой элемент будет ссылаться в качестве "родителя" на самого себя.
Также для удобства в конструкторе таблицы в поле родителя можно задать подстановку, ссылаясь на эту же таблицу:

Текст запроса для подстановки:

SELECT tblDepartment.strDepartmentName AS Подразделение,

tblDepartment_1.strDepartmentName AS Родитель,

tblDepartment.intID

FROM tblDepartment LEFT JOIN tblDepartment AS tblDepartment_1

ON tblDepartment.intParentID = tblDepartment_1.intID

ORDER BY tblDepartment.strDepartmentName;

После этого в колонке родителя мы сможем выбирать не идентификатору, а по имени подразделения (но в колонке будет по-прежнему храниться идентификатор).

В итоге мы сможем заполнять таблицу следующим образом:

Теперь построим дерево. Для этого создаем пустую форму в режиме конструктора и выберем пункт "Элементы ActiveX":

В списке выбираем элемент "Microsoft TreeView Control (6.0)"

Выбранный элемент добавляем на форму в нужном месте нужного размера:

Далее переходим в режим кода Visual Basic и добавляем следующий код:

Option Compare Database

Private Sub Form_Load()

Dim strRoot

strRoot = ""

Dim rsCommon As ADODB.Recordset

Set rsCommon = New ADODB.Recordset

rsCommon.Open "SELECT DP.intID, DP.intParentID, DP.strDepartmentName FROM tblDepartment DP WHERE DP.intID = DP.intParentID ORDER BY DP.strDepartmentName", CurrentProject.Connection, adOpenKeyset, adLockOptimistic

If Not rsCommon.EOF Then TreeViewDep.Nodes.Add , , Str(rsCommon("intID")) & "$KEY", rsCommon("strDepartmentName")

strRoot = Str(rsCommon("intID"))

rsCommon.Close

Set rsCommon = Nothing

TreeViewDep.Nodes.Item(strRoot & "$KEY").Expanded = True

AddNode (strRoot)

End Sub

Private Sub AddNode(ByVal ParentID As String)

Set rsCommon = New ADODB.Recordset

rsCommon.Open "SELECT DP.intID, DP.intParentID, DP.strDepartmentName FROM tblDepartment DP WHERE DP.intID <> DP.intParentID AND DP.intParentID = " & ParentID & " ORDER BY DP.strDepartmentName", CurrentProject.Connection, adOpenKeyset, adLockOptimistic

Do While Not rsCommon.EOF

    TreeViewDep.Nodes.Add ParentID & "$KEY", tvwChild, Str(rsCommon("intID")) & "$KEY", rsCommon("strDepartmentName")

    TreeViewDep.Nodes.Item(Str(rsCommon("intID")) & "$KEY").Expanded = True

    AddNode (Str(rsCommon("intID")))

    rsCommon.MoveNext

Loop

rsCommon.Close

Set rsCommon = Nothing

End Sub

Сохраняем код и форму. Теперь можно запускать форму в режиме просмотра. Должно отобразиться дерево:

Если возникает ошибка: User-defined type not defined (на строке кода ADODB.Recordset), то в VBA в меню Tools - References нужно добавить компонент Microsoft ActiveX Data Objects:

И после этого сделать компиляцию - Debug - Compile.

Как вариант можно использовать таблицу, расположенную в базе на MS SQL Server. Для этого достаточно создать связь с таблицами. Все остальные действия по построению дерева будет аналогичны. В этом случае также возможен обход дерева на стороне MS SQL Server.

(с) Ella S.

Если Вам понравилась статья, пожалуйста, поставьте лайк, сделайте репост или оставьте комментарий. Если у Вас есть какие-либо замечания, также пишите комментарии.