その昔空白チェックは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