hatena
hatena
2022/02/19 (土) 17:52:41
「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
通報 ...