Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

8728 / 9994

←次へ　｜　前へ→


	【4431】Re:必須項目に対する入力チェックの仕組み

クロ - 05/2/18(金) 14:40 -


	引用なし

	パスワード

If IsNull(Me.項目1) Then
　MsgBox "項目1が未入力です。"
　Me.項目1.SetFocus
ElseIf IsNull(Me.項目2) Then
　MsgBox "項目2が未入力です。"
　Me.項目2.SetFocus
ElseIf IsNull(Me.項目3) Then
　MsgBox "項目3が未入力です。"
　Me.項目3.SetFocus
ElseIf IsNull(Me.項目4) Then
　MsgBox "項目4が未入力です。"
　Me.項目4.SetFocus
ElseIf IsNull(Me.項目5) Then
　MsgBox "項目5が未入力です。"
　Me.項目5.SetFocus
Else
　登録の処理
End If
こんな感じでしょうか？

545 hits

▼

【4430】必須項目に対する入力チェックの仕組み 牛乳 05/2/18(金) 13:36