ACCESS库存，当出货数大于库存数时弹出警示

先生，别跑

刚接触ACCESS，很多地方不明白，还请高手帮忙解决。谢谢！
目前遇到的问题是当输入出货数大于现有库存数时提示不对，旧料出库窗体库存数文本框函数为：=DLookUp("库存","旧料库存","丝印='" & [丝印] & "'")
想在出库窗体出库数量文本框设置触发器，当出库数大于库存数是提示库存不足警示，现有的时间函数不对。还请大侠帮忙解决，感谢！

as42065300

用val函数转换下

1. Private Sub 数量_AfterUpdate()
   
2. 
   
3. If Val(Me.数量) >Me.库存数量 Then
   
4. 
   
5.        MsgBox "此物料出库数超过库存量,不能出库,请重新输入数量！", vbCritical, "错误"
   
6.         Exit Sub
   
7.          End If
   
8. End Sub
   

复制代码

先生，别跑

as42065300 发表于 2018-3-25 22:55
用val函数转换下

谢谢您，次问题已经解决，另外请问下Val是把库存数量文本框内容转换成数值吗。还是其他解释。因前期把库存数文本框的函数去掉直接填写数值，出库数和库存数比对时提示是正常的。谢谢！

先生，别跑

as42065300    谢谢您的解惑。