Dim basa As Database, nabor As Recordset

Set basa = CurrentDb

Set nabor = basa.OpenRecordset("Товары", dbOpenTable)

With nabor

MoveLast ' Устанавливает указатель файла на последнюю запись

Edit ' Вызывает метод редактирования

.Fields!Товар = Товар.Value

.Fields!Цена = Цена.Value

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

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

Update

Close

End With

Понравилась статья? Добавь ее в закладку (CTRL+D) и не забудь поделиться с друзьями:

Самое популярное на сайте:

Виды толкования норм права Существует несколько видов толкования. В юридической литературе различают толкование по объему и толкование по субъекту. Толкование...
Аварийно химически опасные вещества (АХОВ) Общая характеристика, взрыво – и пожароопасность, перечень АХОВ...
Обратная связь в усилителях Общие сведения и классификация Обратной связью (ОС) называется явление передачи части энергии усиленных колебаний из выходной...
СТИЛИ И НАПРАВЛЕНИЯ В ИСКУССТВЕ Стиль (греч. stilos – стержень, палочка для письма) – устоявшаяся форма художественного самоопределения эпохи, региона,...
Правила и приёмы переводов значений физических величин в единицы «СИ» В точных науках используются дольные и кратные десятичные приставки к названиям единиц измерения...