0

多数の計算が含まれるアクセス データベースがあります。私が抱えている問題の 1 つは、複数のテキスト ボックスがあり、数式を計算する前にすべてのテキスト ボックスにデータを入力する必要があることです。テキストボックスを空白のままにするとエラーが発生し続ける

実行時エラー '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

どんな助けでも感謝します。ありがとう！

4

1 に答える 1

0

あなたの状況では、私は NZ メソッドを使用します。

calculate = cdbl(nz(textbox1.value,1)) * cdbl(nz(textbox2.value,1))  * cdbl(nz(textbox3.value,1))  * cdbl(nz(textbox4.value,1))  / 144
于 2012-12-04T15:03:09.170 に答える