AccessVBA フィールド更新後処理（フィールドに入力された値により別フィールドに値を自動入力）

Question

食品フォームがあり、IDフィールドにA/B/Cで始まる文字を入力すると、
更新後処理により、種別フィールドにくだもの/野菜/加工品と
入力されるようになっています。（図１）

ここでIDフィールドに入力し削除してTABキーで種別フィールドに移動すると
※の行がない場合、Case ID.Value Like "A*"の部分で
「実行時エラー94 Nullの使い方が不正です」とエラーになります。
※の行を追加した場合も、※の行で「実行時エラー424 オブジェクトが必要です」
となります。フォーカス喪失時、喪失後でも同様です。
入力途中で入力をキャンセルした場合にIDフィールドがNullになる場合の処理は、
どのようにすればよいでしょうか。
よろしくお願いします。

Private Sub ID_AfterUpdate()
    If ID Is Nothing Then Exit Sub
    If ID Is Null Then Exit Sub（※）
    Select Case True
    Case ID.Value Like "A*"
        種別 = "くだもの"
    Case ID.Value Like "B*"
        種別 = "野菜"
    Case ID.Value Like "C*"
        種別 = "加工品"
    End Select
End Sub

（図１訂正）

ご回答ありがとうございます。
質問を編集（太字・赤枠部分）しました。

Answer 1

Option Compare Database
Option Explicit

Private Sub ID_AfterUpdate()
    Select Case Left(ID.Value, 1)
        Case "A"
            種別 = "くだもの"
        Case "B"
            種別 = "野菜"
        Case "C"
            種別 = "加工品"
    End Select
End Sub

これで何の問題もありませんけど。

Comments

[mnbwqz]

ありがとうございます。

Answer 2

If ID Is Nothing Then Exit Sub
If ID Is Null Then Exit Sub
から
If IsNull(ID) Then Exit Sub
に変更することで対応できました。