Здравствуйте.
Помогите отредактировать код. Как дописать еще одно условие для проверки на заполнение полей. Сейчас проверка происходит ссылаясь на UserForm и на MultiPage1..
Хотелось бы добавить еще одно условие, жесткую привязку к конкретному Frame, у меня на них расположены поля на заполнения.
Например у меня их несколько Frame1,Frame2,Frame3 надо чтобы проверка происходила только Frame1,Frame2.
Помогите отредактировать код. Как дописать еще одно условие для проверки на заполнение полей. Сейчас проверка происходит ссылаясь на UserForm и на MultiPage1..
Хотелось бы добавить еще одно условие, жесткую привязку к конкретному Frame, у меня на них расположены поля на заполнения.
Например у меня их несколько Frame1,Frame2,Frame3 надо чтобы проверка происходила только Frame1,Frame2.
Код |
---|
'проверка на заполнение полей Dim i i = встройка.MultiPage1.Value For Each x In встройка.MultiPage1.Pages(i).Controls If TypeOf x Is MSForms.TextBox Or TypeOf x Is MSForms.ComboBox Then If x.Visible = True Then If x.Value = "" Then MsgBox "Все пустые поля должны быть заполнены.", 48, "Ошибка!" x.SetFocus Exit Sub End If End If End If Next |