出库数不能大于库存

lyf　发表于：2012-12-23 10:11:50 　

求解操作出库数或更改出库数时出库数如大于库存应提示并不能出库或更改的示例

凌云发表于：2012-12-23 13:33:30

根据单品的编号，用vluoop函数找出对应的库存数量，同数量做比对，在输入出库件数的文本框的更新后事件中用条件if去判断，如果输入的出库数量大于库存数量，用msgbox函数做一个提示框，并且清空文本框，并将获得焦点。

Private Sub 出库数量_AfterUpdate()

me![库存数量]=dlookup（"库存数量"，"库存表"，"产品id" = '" _
& Forms!frm！出库明细!产品id! & "'")

If me.库存数量<me.出库数量 Then

msgbox”库存数量不足，不能出货！"

me.出库数量=null

me.出库数量.SetFocus

End If

End Sub

蒋群发表于：2012-12-23 19:08:09

请教能不能提示中加选择确定与取消确定就按输入数量出库如果按取消就清空已录入的数量

lyf 发表于：2012-12-23 20:19:57

谢谢指教但我对 me![库存数量]=dlookup（"库存数量"，"库存表"，"产品id" = '" _
& Forms!frm！出库明细!产品id! & "'")

还是不明白 “库存数量”在查询里生成，不在表里，我这里表名称是“库”、查询名称是“库查询”，窗体名称是“库”请再指教

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

Access交流中心