Office中国论坛/Access中国论坛

标题: ADO修改记录，提示 “至少一个参数没有指定值” [打印本页]

作者: liuwei771229 时间: 2010-9-18 14:26
标题: ADO修改记录，提示 “至少一个参数没有指定值”
Dim inte As Integer
  inte = MsgBox("货品ID已经存在,确认更新吗?", vbYesNo, "确认保存")
  If inte = vbYes Then

rst.Open "SELECT 物料表.* FROM 物料表 WHERE 物料表.货品ID = " & Me.货品ID & "", CurrentProject.Connection, adOpenDynamic, adLockOptimistic

If Not rst.EOF Then

   rst![货品ID] = Me.货品ID
   rst![货品名称] = Me.货品名称
   rst![规格型号] = Me.规格型号
   rst![单位] = Me.单位

   rst.Update
Else
      Exit Sub
      End If

请大家帮忙看一下，错在哪呢？有几天了，一直解决不了。谢谢了。

作者: t小宝 时间: 2010-9-18 15:49
出错在哪一行

作者: liuwei771229 时间: 2010-9-18 15:53
没提示错在哪行，只有一个 “至少一个参数没有被指定值” 的提示框

作者: t小宝 时间: 2010-9-18 15:57
出现错误提示后，点调试打开代码窗口，看哪一行背景色变黄了

作者: liuwei771229 时间: 2010-9-18 16:02
[attach]43518[/attach]只有这一个提示框。

作者: t小宝 时间: 2010-9-18 16:05
去掉错误捕获代码，就有调试按钮了，
或者把实例传上来

作者: liuwei771229 时间: 2010-9-18 16:07
好的。我先试一下调试，实例还得整理一下。

作者: liuwei771229 时间: 2010-9-18 16:29
[attach]43519[/attach],整理好了，但错误提示变了。麻烦版主一并看看吧。

作者: t小宝 时间: 2010-9-18 16:52
问题一：
货品ID字段是文本类型的，须要引用括起来：
rst.Open "SELECT 物料表.* FROM 物料表 WHERE 物料表.货品ID = '" & Me.货品ID & "'", ...

问题二：
以下两个字段不存在
[送货方式]
[付款方式]

作者: liuwei771229 时间: 2010-9-18 17:04
问题已经解决，非常感谢！！

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