单击按钮时出现空错误

Question

我有一个访问数据库，里面有很多计算。我遇到的一个问题是我有多个文本框，访问希望我在计算公式之前将数据输入到所有文本框中。将文本框留空时不断收到错误

运行时错误"94"： 无效使用空

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

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

在你的情况下，我会使用新西兰的方法。

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