Иногда необходимо проверить заполнены ли все обязательные поля форме.
Что бы не проверять все поля под одному, можно использовать код который проверяет все поля кроме не обзятельных
|
1 2 3 4 5 6 7 8 9 |
For Each X In Controls If TypeOf X Is TextBox Or TypeOf X Is ComboBox And (Not X.Name = "TextBox4" Or Not X.Name = "TextBox5" Or Not X.Name = "TextBox6") Then If X.Value = "" And X.BackColor = Color.Blue Then MsgBox("Все обязательные поля должны быть заполнены!", vbExclamation, "Заполните поле!") Exit Sub End If End If Next MsgBox("Все обязательные поля заполнены!", vbExclamation, "Сообщение") |