ник: kot_k_k
Dim flag_c As Control, flag_p As Control, flag As string
Set frm = Screen.ActiveForm - заорало про описание переменной
For Each flag_c In frm.Controls
If flag_c.ControlName = flag Then
flag_p.ControlName= flag_c.ControlName - заорало Объектная переменная или переменная блока With не задана
End If
Next flag_c
flag_p.ControlName - это про что??? flag_p=Nothing
Нужно присвоить переменной flag_p этот контрол
|
Dim flag_p As Variant
flag_p= flag_c.Value
или
flag_p= flag_c
а мы присваиваем непонятному контролу имя другого контрола, а если так
flag_p= flag_c.ControlName - то ваще смысла нет т.к. это получаем ИМЯ контрола, которое и так известно.