Update-Tabelle beim Einfügen in eine andere Tabelle

Question

Also habe ich zwei Tabellen: Produkt und Inventar.

Die Produkttabelle enthält die folgenden Spalten: ProdId - ProdName - Price - StockLevel.

Das Inventar Tabelle hat die folgenden: Invid - ProdID - RestockDate - RestockQty

I OpenArgs auf einer Schaltfläche verwendet habe (In den Lagern) auf dem Produkteintrag Formular platziert, dass der ProdID Wert auf das Inventar übergibt Eintragsformular.

Was ich jetzt brauche, ist, den StockLevel-Wert in der Produkttabelle um den Wert zu erhöhen, der im Inventarformular angegeben ist.

Ich habe den folgenden VBA-Code auf dem OnCurrent Ereignis des Inventars Tisch gelegt:

 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 

Aber ich bekomme die folgende Fehlermeldung: Laufzeitfehler ‚3061:‘ Zu wenige Parameter. Erwartet 1.

Was mache ich falsch?

Answer 1

Versuchen mit:

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