Office中国论坛/Access中国论坛

标题: 如何修改表中已存在的数据? [打印本页]

作者: petrelai 时间: 2004-4-3 20:34
标题: 如何修改表中已存在的数据?
请教!

作者: sea.er 时间: 2004-4-3 20:37
问的这么不明白。
更新查询。

作者: xurui 时间: 2004-4-3 20:41
不是吧！我怎么不是很明白你的意思啊！你说明白点你的更改是什么意思啊！！！

作者: petrelai 时间: 2004-4-3 20:45
呵,如果我先要查询合符一定的条件的话,再修改,好像要用到OpenRecordset?

作者: petrelai 时间: 2004-4-3 20:49
标题: 下面是陈述,不是代码
[em03]

[此贴子已经被作者于2004-4-3 13:50:40编辑过]

作者: sea.er 时间: 2004-4-3 20:49
在更新查询中加入where不就行了？

作者: petrelai 时间: 2004-4-3 21:53
Dim bian, ku, wan, wei, qi
Dim qian
Dim ri As Date
Dim db As DAO.Database
Dim rec As DAO.Recordset

bian = " [商品编号] ='" & Forms![销售出库]![销售出库子窗体]![商品编号] & "'"
qian = " [商品进价] =" & Forms![销售出库]![销售出库子窗体]![进货价] & " "
wan = "[完结]=" & False
wei = Forms![销售出库]![销售出库子窗体]!数量
ri = DMin("[日期]", "库存表", bian & "And" & qian)
qi = "[日期]=#" & ri & "#"
ku = DLookup("库存量", "库存表", bian & "And" & qian & "And" & qi & "And" & wan) '.
   Set db = CurrentDb()
   Set rec = db.OpenRecordset("库存表", bian & "And" & qian & "And" & qi & "And" & wan)有错误,提示转换类型错误

   Do Until rec.EOF Or ku < 0
      If ku >= wei Then
      rec.Edit
      rec("库存量") = ku - wei
      rec.Update
      End If

      If ku = wei Then
      rec.Edit
      rec("库存量") = ku - wei
      rec("完结") = False
      rec.Update
      End If

   rec.MoveNext
loop

?????????

[此贴子已经被作者于2004-4-3 14:48:08编辑过]

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