до кучи
[vba]Код
Private Sub CommandButton1_Click()
If TextBox7 <> "" Then
Select Case True
Case TextBox1 & ComboBox3 = ""
MsgBox "Заполните № заявки, либо выберите особую услугу"
Case ComboBox3 & TextBox10 = "монтаж", ComboBox3 & TextBox10 = "проектирование"
MsgBox "Заполните участок"
Case TextBox1 <> "" And ComboBox3 & TextBox2 & ComboBox5 & ComboBox1 & ComboBox4 = "", _
ComboBox3 & TextBox2 & ComboBox5 & ComboBox1 & ComboBox4 & TextBox1 = "конс."
MsgBox "Заполните все поля"
Case Else
dodav
End Select
Else
MsgBox "Не указана дата"
End If
End Sub
[/vba]