请教：在access仓库管理中怎么才能实现当出库量大于库存量时提示错误信息，不能完成出库！刚学习，不是很懂，希望各位老师不吝赐教，谢谢了

刘自文　发表于：2018-03-11 01:33:17 　

复制

基本表：库存表A，包括：库存类型（出库，入库）、物品名称、数量、单价、日期等基本信息

出入库录入：通过窗体B录入

查询/报表：通过查询实现了物品的库存剩余量计算

求解：当录入出库信息的时候，怎么实现当输入的物品D的出库量大于实际库存量的时候提示错误信息，出库不能完成！

我自学，喜欢研究这个，但是遇到这个问题，怎么也弄不明白，疑惑中，希望各位老师不吝赐教能给个思路，诚心求教！谢谢

Top

伊西军发表于：2018-03-12 08:20:15

在出入库录入的窗体保存数据时判断输入的数量是否大于库存量就可以了吧

Top

麥田发表于：2018-03-15 21:48:15

【Access入门】根据条件判断是否可以录入数据,超出条件不允许录入数据,入库数量超过订单数量不允许新增[Access软件网]
http://www.accessoft.com/article-show.asp?id=9060

演示:

【Access示例】入库数量总计超过订单数量总数不允许新增,库存总和已满就不允许录入数据[Access软件网]

http://www.accessoft.com/article-show.asp?id=9063

演示:

Top

刘自文发表于：2018-03-18 21:23:17

Private Sub 数量_LostFocus()
If Me.数量 > Me.剩余库存.Form.库存 Then
MsgBox "此产品出库数超过库存量,不能出库,请联系仓管员！", vbCritical, "错误"
Me.数量.Requery
Me.数量 = ""
Exit Sub
End If
End Sub

Top

刘自文发表于：2018-03-18 21:27:09

用子窗体显示剩余库存，然后在主窗体出库数量“事件”中写入：

Private Sub 数量_LostFocus()

If Me.数量 > Me.剩余库存.Form.库存 Then
MsgBox "此产品出库数超过库存量,不能出库,请联系仓管员！", vbCritical, "错误"
Me.数量.Requery
Me.数量 = ""
Exit Sub
End If

End Sub

这样感觉更好点

Top

总记录：4篇页次：1/1 9 1 :

Access交流中心

请教：在access仓库管理中怎么才能实现当出库量大于库存量时提示错误信息，不能完成出库！刚学习，不是很懂，希望各位老师不吝赐教，谢谢了