Microsoft Access 掲示板

FORMの入力漏れ防止について / 3

4 コメント
views
4 フォロー
3

「Null または、空白の時、反応するコード」ということなので、Or条件になります。

    If myCtrl.Name Like "txt*" Then
        If IsNull(myCtrl.Value) Or Len(myCtrl.Value = 0) Then
            MsgBox "入力必須項目に入力漏れがあります"
            入力漏れ = True
            Exit Function
        End If
    End If

あるいは、Nz関数を使うと Null を適切に変換してくれますので、下記でもOKです。

    If myCtrl.Name Like "txt*" Then
        If Nz(myCtrl.Value) = "" Then
            MsgBox "入力必須項目に入力漏れがあります"
            入力漏れ = True
            Exit Function
        End If
    End If
通報 ...