请教UPDATE语句中用变量的问题?

ztb888

我本来是希望直接将数据更新商品目录表的库存数量字段值(用的是下面红色的语句)但在运行时,却弹出要求输入参数n的值的对话框

Private Sub Command15_Click()
Dim n As Integer
On Error GoTo Err_Command15_Click

    n = Form_采购窗.采购数量.Value
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
      DoCmd.SetWarnings False
      DoCmd.RunSQL "UPDATE [商品目录] SET [库存数量] = [库存数量] + n WHERE [商品编号] = Combo16"

       DoCmd.SetWarnings True
    DoCmd.GoToRecord , , acNewRec
Exit_Command15_Click:
    Exit Sub

Err_Command15_Click:
    MsgBox Err.Description
    Resume Exit_Command15_Click
   
End Sub



我应该怎样做才不出现这个对话框,而直接把数据更新了

mhaibo

DoCmd.RunSQL "UPDATE [商品目录] SET [库存数量] = [库存数量] +" & n & " WHERE [商品编号] = Combo16"

ztb888

谢谢!