如果不再需要第一个条件,如何让VBA继续通过If Statement?

时间:2018-02-05 14:06:46

标签: vba ms-access access-vba

我正在使用AfterUpdate事件来更新其条件取决于多个条件的文本框。我的代码的第一部分工作正常,但第二部分没有做任何事情。我认为它是因为VBA退出Sub很快就满足了第一部分条件。有办法解决它吗?我还是VBA的新手,我正在努力解决这个问题。任何建议都非常感谢

Private Sub QuantityUsed_AfterUpdate()
If IsNull(QuantityUsed) Then
QuantityUsed = 0
Else: QuantityUsed = QuantityUsed.Value
End If

 'First part__________________

If Used1.Value > Total1.Value Then
Exit Sub
End If
If Used1.Value = 0 Then
Exit Sub
End If
QuantityUsed = QuantityUsed.Value + Used1

'Second part__________________

If Used2.Value > Total2.Value Then
Exit Sub
End If

If Used2.Value = 0 Then
Exit Sub
End If
QuantityUsed = QuantityUsed.Value + Used2

End Sub

1 个答案:

答案 0 :(得分:3)

如何稍微更改IF语句?

'...

If Not Used1.Value > Total1.Value And Used1.Value <> 0 Then 
    QuantityUsed = QuantityUsed.Value + Used1
End If

'...