Помогите разобраться с действиями ошибок.
Имеет ли значение сколько раз возникает ошибка:
У меня есть цикл по созданию связи с файлами. Имя файла, с которым надо связаться - переменная и меняется в зависимости от элемента в цикле.
В цикле возникает 2 подряд ошибки по поводу того что файлов с таким именем не существует.
Ставлю обработчик ошибок.
Первую ошибку обрабатывает нормально.
А вот вторую - никак не хочет.
В чем дело?

В чем глюк: должно ведьвыдавать 6 сообщей об ошибках, а Код на втором файле нагибается - ошибка 3011.

Dim i, a As Integer
Dim strNameFile As String

On Error Resume Next
For a = 0 To 5
strNameFile = "0" & a & "_2005.DBF"
DoCmd.TransferDatabase acLink, "dBase IV", "C:\01_2005\", acTable, strNameFile, "ИмяФайла"
If Err.Number <> 0 Then
Debug.Print "Ошибка!"
Err.Clear
On Error GoTo 0
Else
Debug.Print "Странно.Ошибок нет"
End If
Next a