空白チェック~Accessはもう忘れた~

電脳備忘録

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

広告

ブログの維持費に充てるでございます・・・。