Отлов ошибки отсутствия св-ва у контрола

[Space]

мне нужно перейти на строку 10, если у контрола нет св-ва Locked. Иначе надо проверить значение св-ва Locked и выполнить переход либо на 20, либо на 10. Если св-во у контрола отсутствует, переход выполняется на 20, почему?

Код: Выделить всё

      On Error Resume Next 'если у контрола нет св-ва Locked
      If frm.ActiveControl.Locked Then GoTo 20
10


[Antonariy]

При отсутствии свойства переход на 20 выполнится при такой записи:

Код: Выделить всё

If frm.ActiveControl.Locked Then
    GoTo 20
End If

А при записи в одну строку не должен выполняться.

[Space]

нет, переход на 10 мне нужен. Надо так:

Код: Выделить всё

'если у контрола нет св-ва Locked, будет выполняться ?
      If frm.ActiveControl.Locked = False Then 'блокированным не подсвечиваем фокус
10
     End If


Меня интересует, что происходит при отсутствии свойства. Ошибки Run-Time нет, On Error не нужен. Но по какому принципу выполняется код?

[SSecurity]

мне нужно перейти на строку 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ой строке"