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

sunredday

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

sunredday

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

sunredday

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

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

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