Не подскажите, где ошибка возникает и как ее нужно обрабатывать?
Цель: ввести понятные пользователю пояснения.
Ситуация: при импорте файл пользователь выбрал не тот. Как результат: разбор первой строки происходит, а вставка полученного значения в таблицу не происходит, так как целевое поле имеет тип дата.
Несмотря на вставленный обработчик, ошибка (13 - не соответствие типов)
не пререхватывается.
Помогите понять.
Public Function ImportRstSAP()
Dim path As String
path = WH_GetFileName
Dim dtDate_1 As Date
'Очистим результирующую таблицу
CurrentDb.Execute ("Delete * from Unloading")
Dim TextLine As String
Dim rst As DAO.Recordset, D, s, f
Set rst = CurrentDb.OpenRecordset("Select * from Unloading")
f = FreeFile: Open path For Input As f
'Do While Not EOF(1)
Do Until EOF(f)
Line Input #f, TextLine
'Debug.Print TextLine
s = Split(TextLine, ";")
D = s(0)
On Error GoTo Err_fileFormat
dtDate_1 = CDate(DateSerial(Mid(D, 1, 4), Mid(D, 5, 2), Mid(D, 7, 2)))
rst.AddNew
rst.Fields(1) = dtDate_1
rst.Fields(2) = s(1)
rst.Fields(3) = s(2)
rst.Fields(4) = s(3)
rst.Fields(5) = s(4)
rst.Fields(6) = s(5)
rst.Fields(7) = s(6)
rst.Fields(8) = s(7)
rst.Fields(9) = s(8)
rst.Fields(10) = CInt(s(9))
rst.Fields(11) = CCur(s(10))
rst.Fields(12) = CInt(s(11))
rst.Fields(13) = CInt(s(12))
rst.Fields(14) = CInt(s(13))
rst.Fields(15) = CInt(s(14))
rst.Fields(16) = CInt(s(15))
rst.Fields(17) = CInt(s(16))
rst.Fields(18) = CInt(s(17))
rst.Fields(19) = CInt(s(18))
rst.Fields(20) = CInt(s(19))
rst.Fields(21) = CInt(s(20))
rst.Fields(22) = CInt(s(21))
rst.Update
Loop
rst.Close
Set rst = Nothing
Close f
MsgBox "Импорт произведен"
Exit_fileFormat:
Exit Function
Err_fileFormat:
Select Case Err.namber
Case 13
Call Form_Error(13, 0)
MsgBox "Error " & Err.Number & ": " & Err.Description & "[color=red]пояснение хочу ввести[/color]", _
vbOKOnly + vbCritical, "adhGetNextAutoNumber"
Resume Exit_fileFormat
End Select
End Function