Private Sub Кнопка4_Click(). Dim basa As Database, nabor As Recordset ‘ Объявление переменных basa, nabor типа

Dim basa As Database, nabor As Recordset ‘ Объявление переменных basa, nabor типа

‘ Database,Recordset

Set basa = CurrentDb ‘ Работаем в текущей базе данных

Set nabor = basa.OpenRecordset("Товары", dbOpenTable) ‘ Открываем набор в режиме

‘ таблицы

With nabor

.AddNew ‘ Добавляет в таблицу пустую запись

.Fields!Товар = Товар.Value ‘ Значению полю в таблице присваивается

.Fields!Цена = Цена.Value ‘ значение текстового поля в форме

.Fields!Поставщик = Поставщик.Value ‘ тоже

.Fields!Дата_поставки = Дата_поставки.Value ‘ тоже

.Update ‘ Обновляет таблицу

.Close ‘ Закрывает набор

End With