| |
返事が遅くなり申し訳ありませんでした。
説明に言葉が足りませんでした。
登録ボタンを押すと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
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
