ник: Гоблин
Во. Пока обошелся вот таким образом. И вроде работает. Из логики. Добавляем, стало быть счетчик добавит некое число, которое будет максимальным.
Dim a As Integer
CurrentDb.Execute "INSERT INTO [Тип аппаратуры] ( Тип) Values ('" & Me.Поле9 & "');"
Me.Список19.Requery
a = DMax("КодТипа", "[Тип аппаратуры]")
Call Me.TreeView0.Nodes.Add(, , "a" & a, Me.Поле9)
Me.TreeView0.SetFocus
Me.Form.Refresh