Обновить таблицу при вставке в другую таблицу

Question

Итак, у меня есть две таблицы: продукт и инвентарь.

Таблица продуктов имеет следующие столбцы: ProdId - ProdName - Price - StockLevel.

В таблице инвентаризации имеет следующее: Invid - PRODID - RestockDate - RestockQty

я использовал OpenArgs на кнопку (Добавить в наличии) помещается на форму ввода продукта, который передает значение PRODID описи запись.

Теперь мне нужно увеличить значение StockLevel в таблице продуктов на значение, указанное в форме инвентаря.

У меня есть следующий код VBA размещенный на oncurrent случае таблицы инвентаризации:

 IF Me.NewRecord = True Then 
     Dim db as database 
     Dim MySQL as string 

     Set db = CurrentDb 
     Mysql = "Update Product Set StockLevel = RestockQty+StockLevel where ProdId =" & Me.ProdId & "" 

Db.Execute Mysql, dbfailOnError 
End If 

Но я получаю следующее сообщение об ошибке: Ошибка выполнения «3061:» Слишком мало параметров. Ожидаемый 1.

Что я делаю неправильно?

Answer 1

Попробуйте с:

Mysql = "Update Product Set StockLevel = StockLevel + " & Nz(RestockQty, 0) & " where ProdId =" & Me.ProdId & ""