- Код: Выделить всё
On Error Resume Next 'если у контрола нет св-ва Locked
If frm.ActiveControl.Locked Then GoTo 20
10
On Error Resume Next 'если у контрола нет св-ва Locked
If frm.ActiveControl.Locked Then GoTo 20
10
If frm.ActiveControl.Locked Then
GoTo 20
End If
'если у контрола нет св-ва Locked, будет выполняться ?
If frm.ActiveControl.Locked = False Then 'блокированным не подсвечиваем фокус
10
End If
Space писал(а):мне нужно перейти на строку 10, если у контрола нет св-ва Locked. Иначе надо проверить значение св-ва Locked и выполнить переход либо на 20, либо на 10. Если св-во у контрола отсутствует, переход выполняется на 20, почему?
- Код: Выделить всё
On Error Resume Next 'если у контрола нет св-ва Locked
If frm.ActiveControl.Locked Then GoTo 20
10
On Error Resume Next
X = Me.ActiveControl.Locked
If Err = 0 Then GoTo 10 Else GoTo 20
10 Debug.Print "Мы на 10ой строке"
20 Debug.Print "Мы на 20ой строке"
Сейчас этот форум просматривают: Google-бот, Yandex-бот и гости: 104