function - 按钮单击时出现空错误

Question

我有一个访问数据库，其中包含许多计算。我遇到的一个问题是我有多个文本框并且访问希望我在计算公式之前将数据输入所有文本框。当我将文本框留空时，我不断收到错误消息

运行时错误“94”：无效使用 Null

如何将其设置为忽略所有空值。这是我的代码

Public Function calculate() as double 
calculate = cdbl(textbox1.value) * cdbl(textbox2.value) * cdbl(textbox3.value) * cdbl(textbox4.value) / 144
End Function

Private Sub btn1_click()
Dim x as double 
x = calculate
textbox5.value = x
End Sub 

任何帮助将不胜感激。谢谢！

Answer 1

在你的情况下，我会使用NZ 方法。

calculate = cdbl(nz(textbox1.value,1)) * cdbl(nz(textbox2.value,1))  * cdbl(nz(textbox3.value,1))  * cdbl(nz(textbox4.value,1))  / 144