Office中国论坛/Access中国论坛

标题: 请老师帮助将窗体中的本次收货数量追加到stock表中 [打印本页]

作者: yanwei82123300 时间: 2009-11-26 15:19
标题: 请老师帮助将窗体中的本次收货数量追加到stock表中
请老师帮助将窗体中的本次收货数量追加到stock表中在输入本次收货后将本次收货数量追加到自动对库存数量进行更新：库存数量+本次收货数量谢

作者: koutx 时间: 2009-11-26 17:12
Private Sub 本次收货_AfterUpdate()

On Error GoTo Err_本次收货_AfterUpdate

Dim x As Integer
Dim y As Long
If Me.本次收货 = 0 Then Exit Sub

x = Me.收货数量 + Me.本次收货

If x > Me.订单数量 Then
      MsgBox "收货数量合计已超过本单订货数量。请重新输入。", vbCritical, "提示"
      Me.本次收货 = 0
      x = 0
      Me.订单数量.SetFocus
      Me.本次收货.SetFocus
      Exit Sub
End If
If x = Me.订单数量 Then
      Me.收货数量 = x
      Me.本次收货 = 0
      Me.收货数量.SetFocus
      Me.本次收货.Enabled = False
Else
      y = MsgBox("收货数量小于本单订货数量，是否确定属于分批收货？", vbYesNo + vbQuestion, "提示")
      If y = vbNo Then
         Me.本次收货 = 0
         Me.订单数量.SetFocus
         Me.本次收货.SetFocus
         x = 0
         Exit Sub
      Else
         Me.收货数量 = x
         Me.本次收货 = 0
      End If
End If

'记入STOCK表(如果表中已有此零件号则更新,没有则追加.其实按你表间约束关系,主表不可能无此零件号记录,所以只有更新语句即可了)
If IsNull(DLookup("零件号", "STOCK", "零件号 = '" & Me.零件号 & "'")) Then
DoCmd.RunSQL "INSERT INTO STOCK(零件号,描述,库存数量) VALUES('" & Me.零件号 & "', '" & Me.描述 & "', " & Me.收货数量 & ")"
MsgBox "插入OK"
Else
DoCmd.RunSQL "UPDATE STOCK SET STOCK.库存数量 = " & Me.收货数量 & " WHERE STOCK.零件号 = '" & Me.零件号 & "'"
MsgBox "更新OK"
End If
Exit_本次收货_AfterUpdate:
Exit Sub

Err_本次收货_AfterUpdate:
Resume Exit_本次收货_AfterUpdate

End Sub

作者: yanwei82123300 时间: 2009-11-27 07:59
谢谢，我试一下

作者: yanwei82123300 时间: 2009-11-27 08:09
谢谢，没有问题，感谢无私的奉献

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