怎么判断库存数量和库存的多少

天涯　发表于：2014-09-14 13:51:42 　

当移库的时候如果在库位号中的物料大于库位讲提示“不能移库，请重新输入”。否则已过去了。

这段代码写的有点问题怎么修改，这段代码不能判断在库位号下面物料库存多少。请帮忙修改一下

Private Sub 数量_AfterUpdate()
If Val(Me.数量) > Val(Me.移库物料.Column(2)) Then
MsgBox "转库数量不能大于库存数量,请重新输入!", vbCritical, ""
Me.数量 = ""
Me.数量.SetFocus
End If
End Sub

Top

天涯发表于：2014-09-14 18:35:34

当移库的时候判断在物料在仓库和库位号下面是大于移的数量
如果大于就能移库，
不大于就提示不能移库，请检查

Top

朱先生发表于：2014-09-14 18:45:07

>VAL(FORMS.移库01.FORM.数量）试试看

Top

天涯发表于：2014-09-14 19:02:56

不行，还有方法吗

Top

朱先生发表于：2014-09-14 21:23:07

>VAL(FORMS.FRMSTOREMOVE.FORM.数量）试试看上面将窗体名写错了

Top

天涯发表于：2014-09-14 21:52:24

还是没有没有变化，没有判断。

Top

朱先生发表于：2014-09-14 22:56:51

VAL(FRMSTOREMOVE.CHILD.FORM.数量）有判断了

Top

朱先生发表于：2014-09-14 23:06:49

还是你的数据库

点击下载此附件

Top

天涯发表于：2014-09-14 23:07:56

提示出错

Private Sub 数量_AfterUpdate()
If Val(Me.数量) > Val(FRMSTOREMOVE.CHILD.Form.数量) Then
MsgBox "转库数量不能大于库存数量,请重新输入!", vbCritical, ""
Me.数量 = ""
Me.数量.SetFocus
End If
End Sub

Top

天涯发表于：2014-09-14 23:27:14

当移库的时候判断在物料从仓库和库位号下面是移库小于移的数量
那就移不过去，这个判断的怎么不能超过库存足够的就提供过不去了。还是不行，请老师帮忙在看看。

点击下载此附件

Top

朱先生发表于：2014-09-14 23:34:45

如果行告诉回答一下，不行再共同想办法

Top

天涯发表于：2014-09-15 21:15:35

老师这个方法还是不行，我是想当选择来源仓库来源库位号后在填入零件号，当天下数量的时候，是判断在仓库ID 库位号下的零件的数量是否大于填写的数量，如果大于可以提交成功，如果不小于填写的数量，将提示数量不正确。我试了你的代码还是不行。

点击下载此附件，请老师帮忙看看，我实在写不出来了。

Top