vba、outlook、用户表单(如果comebox&;文本字段

vba、outlook、用户表单(如果comebox&;文本字段,vba,outlook,userform,Vba,Outlook,Userform,我有一个用户表单,有一个组合框字段和几个文本字段。 组合框1=应用程序类型(7种不同的结果) 名称、姓氏、城镇、邮政编码等文本字段 按下Ok按钮后,如果缺少必填字段,我希望提示用户 1选择的必填字段为字段1、字段2和字段3 选择2仅填写1,选择3仅填写2字段6 等等 奇怪的是,若我选择了一些我并没有在这个子项中定义的东西,我选择了值4或5,我仍然会收到消息。 我错过了什么 Private Sub CommandButton1_Click() If UserForm2.ComboBox1T.Va

我有一个用户表单,有一个组合框字段和几个文本字段。 组合框1=应用程序类型(7种不同的结果) 名称、姓氏、城镇、邮政编码等文本字段

按下Ok按钮后,如果缺少必填字段,我希望提示用户

1选择的必填字段为字段1、字段2和字段3 选择2仅填写1,选择3仅填写2字段6 等等

奇怪的是,若我选择了一些我并没有在这个子项中定义的东西,我选择了值4或5,我仍然会收到消息。 我错过了什么

Private Sub CommandButton1_Click()

If UserForm2.ComboBox1T.Value = "1.New Application" _
And TextBox1.Text = "" _
Or TextBox2.Text = "" _
Or TextBox3.Text = "" _
Then
MsgBox ("Fill in all mandatory Fields")


Exit Sub
End If


If UserForm2.ComboBox1T.Value = "2.Old Application" _
And TextBox1.Text = "" _
Or TextBox2.Text = "" _
Then
MsgBox ("Fill in all mandatory Fields")

Exit Sub
End If

If UserForm2.ComboBox1T.Value = "3.Somethingelse" _
And TextBox1.Text = "" _
Or TextBox2.Text = "" _
Then
MsgBox ("Fill in all mandatory Fields")


Exit Sub
End If
找到了解决办法

 With Me 
   Select Case .ComboBox1T 
  Case "1.New Application" 
    If .TB1 = "" Or .TB2 = "" Or .TB3 = ""  Then MsgBox ("Something")

  Case "2.old Application" 
    If .TB1 = "" Or .TB2 = "" Then MsgBox ("Something")

Case "3.Other Application" 
    If ........

Case "4." 
Case "5." 
Case "6." 
Case "7." 


End Select 
End With 

啊,我知道你错过了什么。你错过了那些抽出宝贵时间回答你问题的人。我的错误,都解决了。我刚从stackoverflow开始,不确定一切是如何运作的。