Office中国论坛/Access中国论坛

标题: 输入的数量大于库存数量时如何发出警告？ [打印本页]

作者: 蓝天8390 时间: 2013-3-17 19:29
标题: 输入的数量大于库存数量时如何发出警告？
在窗口中输入的数量大于该品种的库存数量时如何发出警告？请大侠们赐教，谢谢

作者: netguestcn 时间: 2013-3-17 20:48
Private Sub 出库数量_AfterUpdate()
If Me.出库数量 > DLookup("库存数量", "库存查询", "品种名称='" & Me.品种名称 & "'") Then
MsgBox "库存数量不够！"
Me.出库数量 = Null
Me.出库数量.Setfocus
End If
End Sub

作者: 蓝天8390 时间: 2013-3-17 21:34
多谢楼主，成功了，祝你天天开心！

作者: shslsun 时间: 2015-2-2 17:16
看看

作者: cumtclmk123 时间: 2015-3-1 09:11
不错

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