彷想在新记录处采用当前的预算排序号，但不对。

sunredday · 发表于 2002-5-15 02:36:00

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:00

提示: 作者被禁止或删除内容自动屏蔽

sunredday · 发表于 2002-5-15 19:12:00

DoCmd.RunSQL "INSERT INTO 单位预算0 ( 预算排序号,单位工程ID ) values('" & iNo & "','" & jNo & "')"

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

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

sunredday · 发表于 2002-5-15 20:12:00

错误所在引用的查询不能更新

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训2群 (163530137)
Access免费培训群 (833510950)
Access免费培训群2 (792054000)
Access交流总群 (5004108)

主题相关群

地区相关群[您还没设置居住地]

彷想在新记录处采用当前的预算排序号，但不对。

浏览过的版块

群介绍
主题无相 (随机显示版	同地区群块其他地区)

ganrong ganrong 当前离线技术点技术点 V币点积分 13383 IP卡狗仔卡	2^# 发表于 2002-5-15 04:25:00 \| 只看该作者提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡

主题相关群

地区相关群[您还没设置居住地]

彷 想在新记录处采用当前的预算排序号，但不对。

浏览过的版块

彷想在新记录处采用当前的预算排序号，但不对。