Не работает goto при ошибке 3021

[Slavicos]

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

Private Sub ShowData()
Dim intI As Integer
On Error GoTo ERROR
For intI = 1 To intColls Step 1
Me.Text(intI).Text = T.Fields(Me.Label(intI).Caption)
Next intI
ERROR:
If Err.Number = 3021 Then
MsgBox ("ошибка обработана") '
End If
End Sub

то есть не бежит по goto

Эту ошибку нельзя отловить?

[alibek]

Скорее всего ошибки 3021 просто не возникает.

[Slavicos]

Да нет, ошибка возникает, а по goto не бежит

[Andrey Fedorov]

Да нет, ошибка возникает, а по goto не бежит

Бывает на некоторых ошибках.
Обычно помогает обработка данной операции по On Error Resume Next.
В конкретном случае должно сработать, к примеру, так:

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

Private Sub ShowData()
    Dim intI As Integer
    On Error Resume Next
    For intI = 1 To intColls Step 1
         Me.Text(intI).Text = T.Fields(Me.Label(intI).Caption)
         IF Err.Number then Exit For
     Next intI
     If Err.Number = 3021 Then
          MsgBox ("ошибка обработана") '
     End If
End Sub

[Slavicos]

Что-ж это красиво, попробую.
Пока сделал так:

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


Private Sub ShowData()
Dim intI As Integer
If (T.BOF = True) Then
T.MoveFirst
ElseIf (T.EOF = True) Then
T.MoveLast
End If
For intI = 1 To intColls Step 1
Me.Text(intI).Text = T.Fields(Me.Label(intI).Caption)
Next intI
End Sub


[SeT]

попробуй задать условие для конкретной оибки (if err = 3021 then ...), хотя лучше и вправду ON ERROR RESUME NEXT. Я всегда так делаю.

[Бяка]

а непробовал зайти в options\Generat и в Error Trapping настройками побаловаться?

а ошибка 3021 ето чё - "Восстановлено питание для %1. Работа сервера возобновлена." интерестоно гЫде она у та так возникла

[Бяка]

хотя лучше и вправду ON ERROR RESUME NEXT. Я всегда так делаю.

Бывают случаи когда ета Фишка (On Error Resume Next) используется перед циклом For, то прога при компиляции в естественный код может войти в бесконечный цикл! Желаеш попробовать? На:

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

Public Sub Form_Load()
On Error Resume Next
Dim x As Integer, mArray as Variant
   For x = 0 To UBound(mArray)
        MsgBox "Test"
    Next x
End Sub

Эта программа в среде VB выдаст один MsgBox, а при компиляции в естественный код - войдет в бесконечный цикл!

[Andrey Fedorov]

Бывают случаи когда ета Фишка (On Error Resume Next) используется перед циклом For, то прога при компиляции в естественный код может войти в бесконечный цикл!

Вообще-то эту фишку, как и все другие, нужно применять в нужное время, в нужном месте и должным образом...

[Бяка]

от и я протоже

[SeT]

Хм, прикольно. Про такой баг не знал!