Office中国论坛/Access中国论坛

标题: 彷想在新记录处采用当前的预算排序号，但不对。 [打印本页]

作者: sunredday 时间: 2002-5-15 02:36
标题: 彷想在新记录处采用当前的预算排序号，但不对。
Private Sub 预算排序号_DblClick(Cancel As Integer)
Dim iNo As Long

iNo = Forms![单位预算编制0]![定额与预算子窗体1].Form![预算排序号]

DoCmd.SetWarnings False

DoCmd.RunSQL "UPDATE 单位预算0 SET [预算排序号]= [预算排序号] + 1 WHERE ((([预算排序号]>=" & iNo & ")))"
'DoCmd.RunSQL "INSERT INTO 单位预算0 ( 预算排序号 ) values(" & iNo & ")"
DoCmd.GoToRecord , , acNewRec
Me.预算排序号 = iNo
Me.单价 = Null
Me.材料单位系数 = Null
Me.单位类别 = Null
Me.单位 = Null
DoCmd.SetWarnings True

Me.Requery
End Sub

作者: ganrong 时间: 2002-5-15 04:25
提示: 作者被禁止或删除内容自动屏蔽

作者: sunredday 时间: 2002-5-15 19:12
DoCmd.RunSQL "INSERT INTO 单位预算0 ( 预算排序号,单位工程ID ) values('" & iNo & "','" & jNo & "')"

计算机说
“参数不足期待为1”

[此贴子已经被作者于2002-5-15 11:11:34编辑过]

作者: sunredday 时间: 2002-5-15 20:12
错误所在引用的查询不能更新

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