Office中国论坛/Access中国论坛

标题: 库存量低于安全库存,跳出提示框 [打印本页]

作者: yanwei82123300 时间: 2018-8-22 14:58
标题: 库存量低于安全库存,跳出提示框
请老师看看我的写的代码为什么不能及时提示,库存量低于安全库存,跳出提示框为什么不能每次查找原料号码时候跳出提示,而是在更换了其他原料号码时候才跳出呢?
Private Sub Combo2_AfterUpdate()

if me.onhand_qty<= me.safty_qty then
msgbox"库存量已经低于安全库存,请及时采购"
end if
If DCount("*", "tblProduct_Stock_Remote", "Item='" & Combo2 & "'") = 0 Then
MsgBox strName & " 物料号不存在！"
Me.Combo2.SetFocus

End If
Me.ITEM.Value = DLookup("[ITEM]", "[tblProduct_Stock_Remote]", "[ITEM]='" & Me.Combo2 & "'") '1
Me.item_desc.Value = DLookup("[ITEM_DESC]", "[tblProduct_Stock_Remote]", "[ITEM]='" & Me.Combo2 & "'") '1
Me.Real_Qty.Value = DLookup("[Real_Qty]", "[tblProduct_Stock_Remote]", "[ITEM]='" & Me.Combo2 & "'") '1
Me.Available_Qty.Value = DLookup("[Available_Qty]", "[tblProduct_Stock_Remote]", "[ITEM]='" & Me.Combo2 & "'") '1
Me.Safe_qty.Value = DLookup("[Saft_Qty]", "[tblProduct_Stock_Remote]", "[ITEM]='" & Me.Combo2 & "'") '1
Me.Unit.Value = DLookup("[Unit]", "[tblProduct_Stock_Remote]", "[ITEM]='" & Me.Combo2 & "'") '1
Me.Unit_Price.Value = DLookup("[Unit_Price]", "[tblProduct_Stock_Remote]", "[ITEM]='" & Me.Combo2 & "'") '1
' Me.Combo4.RowSource = DLookup("[ITEM_DESC]", "[tblProduct_Stock_Remote]", "[ITEM]='" & Me.Combo2 & "'") '1
Me.Total_Values.Value = Me.Unit_Price * Me.Real_Qty
Me.Requery
Me.Recalc

我把这个代码放到了

作者: roych 时间: 2018-8-22 15:30
额滴神。这肯定是先执行这部分啊：if me.onhand_qty<= me.safty_qty。。。这部分来自于窗体控件的值。如果需要在更改时立马提示，可以试试控件的text属性。请参考这个例子的写法：http://www.office-cn.net/thread-121123-1-1.html

作者: yanwei82123300 时间: 2018-8-24 07:41
但是就是不能够及时显示提示,晕

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