按鈕上的空錯誤單擊

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 

任何幫助將preprecciated。謝謝！

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