Заполнение обязательных строк

[Вадим12091965]

Привет. Задача такая: на форме есть комбобоксы и текстбокс, если хотя-бы в одном комбобоксе и TextBox22 нет текста, то для каждого есть подсказка, если все заполнено, то UserForm1.Width = 778.5
Написал код, но не работает по задуманным условиям.

Private Sub CommandButton3_Click()
If ComboBox7.Text = "" Then
 MsgBox ("Выбери цвет ЛДСП.")
Else
UserForm1.Width = 778.5
End If
If ComboBox8.Text = "" Then
 MsgBox ("Выбери тип пленки ПВХ.")
Else
UserForm1.Width = 778.5
End If
If ComboBox9.Text = "" Then
 MsgBox ("Выбери категорию фрезеровки.")
Else
UserForm1.Width = 778.5
End If
If ComboBox10.Text = "" Then
 MsgBox ("Выбери наличие или тип стекла.")
Else
UserForm1.Width = 778.5
End Sub

В код нужно добавить условие:
If TextBox22.Visible = True и у него нет текста Then
MsgBox ("Впиши цвет ЛДСП заказчика.")
Else
UserForm1.Width = 778.5
Спасибо.

[Hugo121]

Попробуйте так (естественно не проверял):

Private Sub CommandButton3_Click()
    Dim s$
    If ComboBox7.Text = "" Then s = s & vbNewLine & "Выбери цвет ЛДСП."
    If ComboBox8.Text = "" Then s = s & vbNewLine & "Выбери тип пленки ПВХ."
    If ComboBox9.Text = "" Then s = s & vbNewLine & "Выбери категорию фрезеровки."
    If ComboBox10.Text = "" Then s = s & vbNewLine & "Выбери наличие или тип стекла."
    If TextBox22.Visible = True And TextBox22.Text = "" Then s = s & vbNewLine & "Впиши цвет ЛДСП заказчика."
    If Len(s) > 0 Then
        MsgBox Mid(s, 2), vbExclamation
    Else
        UserForm1.Width = 778.5
    End If
End Sub

[Вадим12091965]

С комбобоксами полный порядок. Посмотрите во вложении текстбокс22.
Задумка такая: когда в сомбобоксе7 текст "заказчика", лейбл56 и текстбокс22 видимые, и в текстбокс22 нужно обязательно ввести данные. Спасибо.

[Hugo121]

Я уже выше успел всё сделать, ещё 17 минут назад

[Вадим12091965]

Извините. Пока я готовил "Тест" вы поменяли код, не обратил внимания. Проверил - все как по маслу. Спасибо.

[Hugo121]

Да, это условие по текстбоксу логично передвинуть выше, по физической позиции.