商品库存小于销售订单数量提示禁止出库

小鹿　发表于：2020-09-23 10:46:14 　

我做了一个超市的销售系统。假如库存还有10件，销售12件。提示数量不足，禁止出库！也或者是库存本身就成0了，只要是销售的任何数量都提示禁止出库

西出阳关无故人发表于：2020-09-23 11:34:09

出库录入保存之前,检查是否符合逻辑,如果要出库的数量大于库存数量,就提示错误或取消保存.

米糠发表于：2020-09-24 13:40:12

Dim yl As Long, ckl As Long

Openrs "select sum(库存) as ss from v31 where id like '" & ddd & "'and biao='" & biao1 & "'", rs'查出库存
'检验余量是否够出库
yl = rs("ss")
ckl = Me.数量
If ckl > yl Or Me.数量 <= 0 Then
MsgBox "出库量大于库存量(" & yl & ")或者小于0，无法出售"

Me.数量 = Null
Me.单价 = Null
Me.数量.SetFocus
End If

Top

麥田发表于：2020-09-24 15:11:26

【Access入门】根据条件判断是否可以录入数据,超出条件不允许录入数据,入库数量超过订单数量不允许新增[Access软件网]

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

应该是这个原理

演示:

Top

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

Access交流中心

商品库存小于销售订单数量提示禁止出库