VPF::Как прибавить ? - Форум программистов

SAVA

Дата 21.11.2005, 13:03 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Есть таблицатоваров. как сделать так, чтоб когда происходит сделка закупки товара и в форме связаной с таблицей сделок из поля поличество товара значения прибавлялись к значению в таблице товаров к нужному полю.
Например на склада 100 паратруперов я ввожу покупку еще 100 и когда просматриваю склад вижу что паратруперов 200
Заранее благодарен.

Papirus

Дата 23.11.2005, 09:22 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 298
Регистрация: 19.4.2005
Где: Санкт-Петербург

Репутация: 2
Всего: 1

Если надо чтобы прибавка сохранялась в таблице товаров, а не просто отображалась, то есть смысл на AfterUpdate таблицы сделок редактировать запись в таблице товаров:

Код


Dim rs As DAO.Recordset
Set rs  = Forms!ТаблицаТоваров.Recordset
rs.Find "КодТовара = " & Forms!ТаблицаСделок.КодТовара

If Not rs.NoMatch Then
   rs.Edit
   rs.Fields("Количество") = rs.Fields("Количество") + Forms!ТаблицаСделок.Количество
   rs.Update
End If

Или

Код


CurrentDB.Execute "Update ТаблицаТоваров Set Количество = Количество + " & Forms!ТаблицаСделок.Количество
Forms!ТаблицаТоваров.Requery

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| MS Access \| Следующая тема »