如何做到及时更新库存数据,高手请进...

fnsmydyang

动态更新库存信息是每一个仓库管理者所希望的,现有一简单实例和大家一起讨论吧!

Henry D. Sy

库存直接通过查询得到，不就动态更新了。

huangqinyong

[:30] 6d版主，你太直接了吧。

fnsmydyang

6d版主通过查询是可以,但当数据量多时,查询速度慢,我的意思希望是通过DAO或ADO的方式,输完一笔记录后就更新,这样查询就快多了.[:50]

Henry D. Sy

1. Private Sub Form_BeforeUpdate(Cancel As Integer)
   
2.     Dim strCriteria As String
   
3.     Dim strSQL As String
   
4.     Dim lngWeight As Long
   
5.     strCriteria = "材料编号='" & Me.材料编号 & "'"
   
6.     lngWeight = Me.重量 - Nz(Me.重量.OldValue)
   
7.     strSQL = "Update 库存信息 Set 库存重量=库存重量-" & lngWeight & " Where " & strCriteria
   
8.     CurrentDb.Execute strSQL
   
9. End Sub

复制代码

fnsmydyang

问题得到解决,感谢6d老师,还有一个疑问，如果是删除一笔记录,如何恢复重量,事件应写在删除前,还是删除后呢,还望指教,谢谢[:24]
库存量不足时该如何提示?

[ 本帖最后由 fnsmydyang 于 2008-12-25 19:53 编辑 ]

fnsmydyang

如果修改的不是重量数据,而是材料编号,哪就会出现一此些问题,有待改进噢[:45]

Henry D. Sy

原帖由 fnsmydyang 于 2008-12-25 19:45 发表
问题得到解决,感谢6d老师,还有一个疑问，如果是删除一笔记录,如何恢复重量,事件应写在删除前,还是删除后呢,还望指教,谢谢[:24]
库存量不足时该如何提示?

Dim lngWet As Long
Dim strBH As String

Private Sub Form_AfterDelConfirm(Status As Integer)
    Dim strCriteria As String
    Dim strSQL As String
    If Status = acDeleteOK Then
        strCriteria = "材料编号='" & strBH & "'"
        strSQL = "Update 库存信息 Set 库存重量=库存重量+" & lngWet & " Where " & strCriteria
        CurrentDb.Execute strSQL
    End If
    lngWet = 0
End Sub

Private Sub Form_Delete(Cancel As Integer)
    strBH = Me.材料编号
    lngWet = lngWet + Me.重量
End Sub

库存量不足时该如何提示
重量更新前用dlookup对比判断

Henry D. Sy

原帖由 fnsmydyang 于 2008-12-25 20:30 发表
如果修改的不是重量数据,而是材料编号,哪就会出现一此些问题,有待改进噢[:45]

这就是以这种方式计算库存的弊端。

fnsmydyang

我想了很久,修改材料编号的问题还是得不到解决,不知6D能否赐教一二?[:44]