|
▼kanabun さん:
ご回答ありがとうございました。
kanabunさんのテスト用を試してみたところ、
思ったとおりのことが出来ましたので、
それを参考に、2、3、4の後にExit Subを入れてみたところ、
やりたかったことができるようになりました。
本当にありがとうございました。
If (ComboBox1.Value = "") Then
intRet = MsgBox("区分を選択してください。", vbOKOnly + vbCritical, "区分選択")
ComboBox1.SetFocus←1.
Exit Sub
ElseIf (ComboBox1.Value = "その他") And (TextBox2.Value = "") Then
intRet = MsgBox("ユーザー名を入力してください。", vbOKOnly + vbCritical, "ユーザー名入力")
TextBox2.SetFocus←2.
Exit Sub
ElseIf ComboBox1.Value <> "その他" And (TextBox1.Value = "" Or TextBox2.Value = "") Then
intRet = MsgBox("ユーザー名を入力してください。", vbOKOnly + vbCritical, "ユーザー名入力")
If ComboBox1.Value = "JA" Then
TextBox2.SetFocus←3.
Exit Sub
Else
TextBox1.SetFocus←4.
Exit Sub
End If
End If
|
|