Microsoft Access 掲示板

nullの使い方が不正と出ます

2 コメント
60 views
4 フォロー

本年4月1日より車庫証明手数料の内
管轄署が市内ならば800円市外(その他)は2400となりますので
次の式を作成しました。
Public Function toritugi(管轄署, 申請日)

    If IsNull(管轄署) Then Exit Function  
    Select Case True
   Case 管轄署 = "市内" And 申請日 >= #4/1/2025#
     toritugi = 800
   Case 管轄署 = "その他" And 申請日 >= #4/1/2025#
     toritugi = 2400
   Case 管轄署 = "市内" And 申請日 < #4/1/2025#
     toritugi = 650
   Case 管轄署 = "その他" And 申請日 >= #4/1/2025#
     toritugi = 2200

End Select
このなかで車庫証明が書類不備等で保留となった場合申請日が入力しないため空欄
となります。
この場合 実行した場合 nullの使い方が不正とでます。どう対処したらよろしいでしょうかご教示お願いします。

tokinaito
作成: 2025/03/28 (金) 10:47:51
通報 ...
1

このなかで車庫証明が書類不備等で保留となった場合申請日が入力しないため空欄
となります。
この場合 実行した場合 nullの使い方が不正とでます。どう対処したらよろしいでしょうかご教示お願いします。

下記の部分を修正してください(赤字を緑字に)。

-   If IsNull(管轄署) Then Exit Function  
+   If IsNull(管轄署) Or IsNull(申請日) Then Exit Function  
2
tokinaito 2025/03/28 (金) 15:18:36 fbda0@184a4

hatena様ありがとうございます。とんでもないちょんぼをしました。orと書くくべきところを
andにしていました。