空白チェック～Accessはもう忘れた～ | 電脳備忘録

本記事のソースコードの利用によって生じた損害について、当方は一切の責任を負いません。ご自身の判断と責任のもとで参照・ご利用ください。

この記事は最終更新から2年以上経過しています。

その昔空白チェックはif isnull(Me!txt_管理no) then といった感じで記述していたような気がします。
すべての入力を必須にしたい場合、それぞれに設定するのは面倒です。何かいい方法はないかとgoogleで調べた結果、 Access VBA フォームのテキストボックスの空白をループでチェックで紹介されていた方法を採用させていただきました。
今までテキストごとに設定していましたが、すべての項目が必須の場合楽ですね。管理人の方に感謝です。ありがとうございます。

メモ

全くといっていいほど修正していません。自分の環境に変更したくらいです。

'空白チェック
With Forms("F入力")
For i = 0 To Me.Controls.Count - 1
If Me.Controls(i).ControlType = acTextBox Then
If IsNull(Me.Controls(i).Value) Then
MsgBox Me.Controls(i).Name & "が空白です"
End If
End If
Next
End With
Err:
If Err.Number <> 0 Then
MsgBox Err.Description
End If
Exit Sub