Function 单击按钮时出现空错误

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

运行时错误“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 

---

任何帮助都将受到保护。谢谢

在你的情况下，我会使用

---

工作得很有魅力！谢谢

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