Access VBA質問箱 IV

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

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


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

8704 / 9994

←次へ　｜　前へ→


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

牛乳 - 05/2/23(水) 16:43 -


	引用なし

	パスワード

返事が遅くなり申し訳ありませんでした。
説明に言葉が足りませんでした。

登録ボタンを押すと1～5の項目をチェックして、未入力分をまとめてメッセージを
出るようにしたいです。
例えば、項目1と4と5が未入力であれば、
「項目1・項目4・項目5が未入力です」というメッセージを表示。
OKボタンを押すと、未入力の項目の先頭へカーソルを移動する

下記の様な文にしているのですが、項目1～5全てを入力しないで登録ボタンを
クリックすると、メッセージは「項目1,,,,,を入力してください」
と表示されています。

Function Entrychk() As Integer

Dim CHECK1 As String
Dim CHECK2 As String
Dim CHECK3 As String
Dim CHECK4 As String
Dim CHECK5 As String
Dim msg As String

Entrychk = 0
CHECK1 = ""
CHECK2 = ""
CHECK3 = ""
CHECK4 = ""
CHECK5 = ""

If IsNull(Form_登録フォーム.項目1) = True Then
　 Entrychk = 1
　 CHECK1 = "項目1"
Else
If IsNull(Form_登録フォーム.項目2) = True Then
　 Entrychk = 1
　 CHECK2 = "項目2"
　 Else
If IsNull(Form_登録フォーム.項目3) = True Then
　 Entrychk = 1
　 CHECK3 = "項目3"
　Else
If IsNull(Form_登録フォーム.項目4) = True Then
　 Entrychk = 1
　 CHECK4 = "項目4"
　 Else
If IsNull(Form_登録フォーム.項目5) = True Then
　 Entrychk = 1
　 CHECK5 = "項目5"
　 End If
End If
End If
End If
End If

　msg = CHECK1 & "," & CHECK2 & "," & CHECK3 & "," & CHECK4 & "," & CHECK5

If Entrychk = 1 Then
　 MsgBox msg & "を入力してください｡", vbCritical, "警告"
Else
　 Entrychk = 0
End If

End Function

684 hits

▼

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