|
▼kanabun さん:
ご回答ありがとうございます。
色々勉強して、このように変更してみたのですが、
1.の部分は、メッセージも出て、comboxで止まってくれるのですが、
2.、3.、4.はメッセージは出るが、testboxで止まらずに、先に進んでしまいます。
どう修正したらいいのでしょうか?
If (ComboBox1.Value = "") Then
intRet = MsgBox("区分を選択してください。", vbOKOnly + vbCritical, "区分選択")
ComboBox1.SetFocus←1.
ElseIf (ComboBox1.Value = "その他") And (TextBox2.Value = "") Then
intRet = MsgBox("ユーザー名を入力してください。", vbOKOnly + vbCritical, "ユーザー名入力")
TextBox2.SetFocus←2.
ElseIf ComboBox1.Value <> "その他" And (TextBox1.Value = "" Or TextBox2.Value = "") Then
intRet = MsgBox("ユーザー名を入力してください。", vbOKOnly + vbCritical, "ユーザー名入力")
If ComboBox1.Value = "JA" Then
TextBox2.SetFocus←3.
Else
TextBox1.SetFocus←4.
End If
End If
|
|