Форумы HiProg.com - MS ACCESS, VBA, VB

ник: Гоблин
ЕС!
Сам бы не допер до такого.
В данном случае сразу добавляет и отображает.
Функцию пишу так:
Dim s As String
Dim i As Integer

s = InputBox("Введи тип средства", "Ввод типа")
If s <> "" Then
CurrentDb.Execute "INSERT INTO [Тип основного] (Тип) values ('" & s & "')"
i = DMax("КодТипа", "Тип основного")
Call Forms("инвентарные подразделений").TV6.nodes.Add("a", 4, "t" & i, s)
Else
MsgBox ("Ввод отменен пользователем")
End If

И ОКюшики!!!