按钮上的空错误单击

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

在您的情况下，我会使用the NZ method.

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