DSum 検索する値がないなら

質問

アクセスvbaで
Sub test()
i = DSum("[合計]", "テーブル1", "[計上日] Between #2015/02/13# And #15/02/13#")
End Sub
このようなコードを作り、
テーブル1の計上日フィールドが2015/02/13のレコードの合計の値を返したいのですが、
そもそもテーブル1の計上日フィールドに2015/02/13がない場合は、
実行時エラー94
Nullの使い方が不正です。
と表示されてしまいます。

このエラーを発生させないためにはどういうコードを作ればいいのでしょうか？

まず、テーブル1に2015/02/13のレコードがあるかどうかを取得したいのですが、
その取得はどうすればいいでしょうか？

その後、あるならIFステートメントで条件分岐したいです。

回答No.2

山田 太郎（@f_a_007） · ベストアンサー

【補足】条件分岐サンプル

Option Compare Database
Option Explicit

Private Sub コマンド0_Click()
　　Dim I As Integer

　　I = Nz(DSum("ID", "テーブル1", "ID>4"), 0)
　　If I Then
　　　　MsgBox "I=" & I
　　Else
　　　　MsgBox "該当するレコードはありません。"
　　End If
End Sub

Private Sub コマンド1_Click()
　　Dim I As Integer

　　I = Val(DSum("ID", "テーブル1", "ID>4") & "")
　　If I Then
　　　　MsgBox "I=" & I
　　Else
　　　　MsgBox "該当するレコードはありません。"
　　End If
End Sub

お礼

ご回答ありがとうございます。

回答No.1

山田 太郎（@f_a_007）

添付図を参照されたし。

対策１、Val()関数でNullを0に置換。
対策２、Nz()関数でNullを0に置換。

一般的なのは Nz()かと思います。

https://support.office.microsoft.com/ja-jp/article/Nz-%e9%96%a2%e6%95%b0-8ef85549-cc9c-438b-860a-7fd9f4c69b6c?CorrelationId=3490874d-9584-4e4c-a0d0-f52cf4aaf22f&ui=ja-JP&rs=ja-JP&ad=JP

お礼

ご回答ありがとうございます。