进销存三表联合查询问题求助

siliconxu

第一个问题，因为你的新料这个控件不是绑定的，所以你这样子写应该没有问题。更简单的写法是Me.新料=Nz(Me.新料,0)。另外，最好把代码放在LostFocus事件中。
第二个问题，你的语句逻辑有问题。请参考我下面的：（我把代码放在控件的LostFocus事件中了）
Private Sub 数量_GotFocus()
    If IsNull(Me.数量) Then
        Me.数量 = Null
    Else
        If Me.状态 = 新 Then
            If Val(Me.数量) > Me.新料 Then
                MsgBox "此物料库存不足。请重新输入数量！"
            End If
        Else    '我这里只考虑状态只有“新”或者“植”的情况；如果是多个情况，你可以考虑使用ElseIf或者Select Case
            If Val(Me.数量) > Me.植球 Then
                MsgBox "此物料库存不足。请重新输入数量！"
            End If
        End If
    End If
End Sub

先生，别跑

siliconxu 发表于 2018-6-20 15:30
第一个问题，因为你的新料这个控件不是绑定的，所以你这样子写应该没有问题。更简单的写法是Me.新料=Nz(Me. ...

您好。感谢您的耐心指导。
第2个问题按照您的方法写入代码，不管状态栏选 新 还是 植，出库数只比对植球库存。不比对新料库存。图1
换一种方法写，不管状态栏选 新 还是 植，出库数只比对新料库存。不比对植球库存。图3
用Elseif试了也是不行。能帮忙处理下吗。谢谢！

ly

先生，别跑 发表于 2018-6-21 23:45
您好。感谢您的耐心指导。
第2个问题按照您的方法写入代码，不管状态栏选 新 还是 植，出库数只比对植球 ...

1. If Me.状态 = "新" Then
   
2.              If Val(Me.数量) > Me.新料 Then MsgBox "此物料库存不足。请重新输入数量！"
   
3.          Else
   
4.              If Val(Me.数量) > Me.植球 Then MsgBox "此物料库存不足。请重新输入数量！"
   
5.         End If

复制代码

先生，别跑

ly 发表于 2018-6-24 09:38

感谢您的解答，请假了，今天才上班。谢谢！