如何修改表中已存在的数据?

petrelai

请教!

sea.er

问的这么不明白。
更新查询。

xurui

不是吧！我怎么不是很明白你的意思啊！你说明白点你的更改是什么意思啊！！！

petrelai

呵,如果我先要查询合符一定的条件的话,再修改,好像要用到OpenRecordset?

petrelai

[em03]

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

sea.er

在更新查询中加入where不就行了？

petrelai

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编辑过]