Question

所以我有两个表：产品和库存。

产品表格包含以下列：ProdId - ProdName - Price - StockLevel。

库存表具有以下内容： InvId - ProdId - RestockDate - RestockQty

我在产品条目表单上放置了一个按钮（添加到库存）上使用openargs，它将ProdId值传递给库存条目表单。

我现在需要的是按照库存表单上指定的值增加产品表中的StockLevel值。

我在库存表的oncurrent事件中放置了以下vba代码：

     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

但是我收到以下错误：运行时错误＆＃39; 3061：＆＃39; 参数太少。预计1。

我做错了什么？

Answer 1

尝试：

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

在另一个表上插入时更新表

1 个答案: