2017-05-24 46 views
0

我有用戶窗體,有1個組合框和幾個文本框。 組合框1 =類型的應用程序(7個不同的結果),如名字,姓氏,城鎮,郵編等 文本字段vba,outlook,用戶表單,如果comebox和文本字段

按下確定按鈕後,我想提示用戶如果強制字段丟失。

1個選擇必填字段爲字段1,字段2和字段3 只有3場只申請1和2選擇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 
+0

啊,我知道你錯過了什麼。你錯過了[this](https://meta.stackexchange.com/questions/5234/how-does-accepting-an-answer-work/5235#5235),因爲那些花費寶貴時間回答你的問題的人。 – Tehscript

+0

我的錯誤,全部排序。我剛開始用stackoverflow,並不知道如何一切正常。 – folkstorm

回答

0

找到解決辦法。

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 
相關問題