TreeView: сохранение Child в *mdb

[DmB]

Здравствуйте! Сами мы не местные - помогите, кто чем сможет!

Dim nd As Node
Sub Form Load()
................
Do While Not rs1.EOF
Set nd = TreeView1.Nodes.Add(, tvwChild, "i1" & rs1!Name, rs1!Name)
rs.MoveFirst
Do While Not rsl.EOF
If nd.Text = rs!Name Then
TreeView1.Nodes.Add nd.Index, tvwChild, "i2" & rs!Name1, rs!Name1
End If
rs.MoveNext
Loop
rs1.MoveNext
Loop
End Sub

Это работает отлично, но с сохранением Child в базу данных
ничего не выходит,подскажите, где я ошибаюсь?
Или у меня ошибка в cтруктуре базы данных?

*mdb
rs1 |Name|
rs |Name| |Name1| |Fam|


Private Sub Save_Click()
rs.AddNew
rs!Name = Text1.Text -- ROOT
rs!Name1 = Text2.Text -- Child
rs!Fam = Text3.Text
rs.Update
TreeView1.Nodes.Add "i1", tvwChild, "i2" & rs!Name1, rs!Name1 --ошибка "35601"
TreeView1.Nodes("i2" & rs!Name1).Selected = True
End Sub

[Lobo]

Но ведь нодов с ключом "i1" у тебя нет, должно быть продолжение: "i1" & rs1!Name.

[DmB]

А что же делать? rs1!Name - это другой рекордсет.
Может быть подскажете как всё это организовать?

[Lobo]

Извини, что нечётко написал. Я просто скопировал часть твоего кода. А лезть в другой рекордсет не нужно, ведь и в rs у тебя есть такое же Name. Надо просто добавить:

TreeView1.Nodes.Add "i1" & Text1.Text, tvwChild, "i2" & Text2.Text, Text2.Text

Предполагается, конечно, что пользователь ввёл в Text1 правильное имя. А лучше брать его из выбранного в дереве узла:

Text1.Text = TreeView1.SelectedItem.Text

[DmB]

Огромное спасибо за помощь!
Может быть если не трудно ещё один вопрос:

Как в TreeView1_NodeClick определить есть ли у Node дети ???
Заранее благодарен.

[alibek]

Есть свойство (не помню точно, Children или Childs), оно возвращает количество дочерних узлов для нода.

[DmB]

If Node.Children > 0 Then
MsgBox Node.Child.Text
End If

уже нашёл, но всё равно большое спасибо!