Office中国论坛/Access中国论坛

标题: 请教UPDATE语句中用变量的问题? [打印本页]

作者: ztb888 时间: 2005-5-7 04:01
标题: 请教UPDATE语句中用变量的问题?
我本来是希望直接将数据更新商品目录表的库存数量字段值(用的是下面红色的语句)但在运行时,却弹出要求输入参数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

[attach]10280[/attach]

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

作者: mhaibo 时间: 2005-5-7 04:54
DoCmd.RunSQL "UPDATE [商品目录] SET [库存数量] = [库存数量] +" & n & " WHERE [商品编号] = Combo16"

作者: ztb888 时间: 2005-5-7 05:15
谢谢!

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)