Введите значение параметра

Question

Я использую MS Access 2007. У меня есть запрос под названием qryUPDATESTOCKS, который уменьшает запасы от продуктов таблицы на основе количества из таблицы.

Запрос: UPDATE tblPRODUCTS SET tblPRODUCTS.Stock = tblPRODUCTS.Stock-tblORDER.Quantity WHERE tblORDER.ProductID=tblPRODUCTS.ProductID;

Чтобы выполнить этот запрос, когда заказ будет сохранен, я добавил действие OpenQuery в мою кнопку сохранения, которая запускает запрос.

Но когда я нажимаю кнопку сохранения, появляется диалоговое окно с надписью «Введите значение параметра». Как я могу предотвратить его появление?

Answer 1

Вам необходимо выполнить запрос действий в VBA, что-то вроде

Private Sub orderSaveButtonName_Click() 
    Dim totAvailable As Long 

    totAvailable = Nz(DSum("Stock", "tblPRODUCTS", "tblPRODUCTS.ProductID = '" & _ 
          Me.ProductID & "'"), 0) 

    CurrentDB.Execute "UPDATE tblProducts SET Stock = " & totAvailable - Me.Quantity & _ 
         " WHERE tblPRODUCTS.ProductID = '" & Me.ProductID & "'" 
End Sub 

Или, если вы хотите сделать это в запросе, вы должны передать номер заказа и использовать подзапрос, чтобы получить номер предметов, которые нужно убрать. Это может быть сложно, используя VBA - прямое решение.