Обработка ошибки в Lotus

2016-09-23T11:12:18Z

Бывают ситуации, когда в какой-то функции или кнопке нужно обработать одну определенную ошибку.
Public Function
On Error Goto processError
...
функция.

Exit Function    
processError:
        Print Err, Error & { в строке } & Erl

        If Err = 4091 Then
Set doclog = New NotesDocument    (dblog)
Call doclog.Save(True, False)
Print "Отработали ошибку 4091"
Resume Next
        End If

doclog.ERRMSG = Err & "// "& Error$  & " //СТРОКА " & Erl() & " //ЗАПРОС " & formula
        doclog.log_time=dateTime.LSLocalTime
        Call doclog.Save(True, False)
        Exit Function
    End Function

Форум компьютерной помощи — Обработка ошибки в Lotus

Обработка ошибки в Lotus