Страницы: 1
RSS
Проверка на заполнение полей
 
Здравствуйте.
Помогите отредактировать код. Как дописать еще одно условие для проверки на заполнение полей. Сейчас проверка происходит ссылаясь на 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
 
Хочется добавить - добавьте. Проблема то в чем?
 
RAN, Хочется да не получается)
Догадываюсь что вся сила в этих двух строках
Код
i = встройка.MultiPage1.Value 
For Each x In встройка.MultiPage1.Pages(i).Controls
Изменено: Лина - 07.04.2020 16:54:50
 
Цитата
Лина написал:
Догадываюсь
Вы не исключение. Думаю, догадываются многие.
 
Лина, RAN вам ненавязчиво так намекает, что без вашего файла-примера вам ни кто не поможет...
Страницы: 1
Наверх