ник: Гоблин
Интересный пример. Но при удалении записи в таблице ругается.
Private Sub SF_Current()
SF_ID = SF.Recordset.Fields(0)
If Not SF.NewRecord Then TV.Nodes("b" & SF_ID).Selected = True
End Sub
Выделяет желтым SF_ID = SF.Recordset.Fields(0), ошибку пишет.
Может при выборе в форме записи, учитывать ее ID и на событие в форме "После подтверждения Del" удалять соотетствующий узел в дереве. Точно так же и менять на что-то другое, по событию ..... после обновления. Наверно.