在Microsoft Access中使用Nz()解决VBA表单按钮空值报错问题

你当前的Nz函数用法有误，只是调用函数但未将处理后的结果赋值，导致空值无法被正确处理，进而引发计算错误。以下是修正后的代码：

修正按钮点击事件代码 #

Private Sub AddBtn_Click()
    ' 将空值转为0，避免空值参与计算时出错
    Dim inputQty As Integer
    inputQty = Nz(Me.quantityEntered, 0)
    
    Me.QuantityOnHand = Me.QuantityOnHand + inputQty
    Me.AddBtn.Enabled = False
    ' 可选：清空输入框，方便后续操作
    Me.quantityEntered = ""
End Sub

优化输入验证事件（可选） #

在输入框的BeforeUpdate事件中添加验证，提前拦截无效输入，给用户明确提示：

Private Sub quantityEntered_BeforeUpdate(Cancel As Integer)
    ' 验证输入是否为有效数字，空值或非数字则取消更新
    If IsNull(Me.quantityEntered) Or Not IsNumeric(Me.quantityEntered) Then
        Cancel = True
        MsgBox "请输入有效的数字数量！", vbExclamation
        Me.quantityEntered.SetFocus
    End If
End Sub

关键说明 #

• Nz(Me.quantityEntered, 0)会将空值（Null）直接转换为0，这样即使未输入内容，计算时也不会触发错误，相当于给库存加0，不影响原有数值。
• 输入验证可以在用户输入阶段就阻止无效值，避免后续操作出现异常。

内容的提问来源于stack exchange，提问作者Landon.C