Если надо чтобы прибавка сохранялась в таблице товаров, а не просто отображалась, то есть смысл на 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
| |