Как насчет использования "Erl", он будет отображать последнюю метку перед ошибкой (например, 10, 20 или 30)?

Делитесь знаниями!

Как насчет использования "Erl", он будет отображать последнюю метку перед ошибкой (например, 10, 20 или 30)?

Ссылка на оригинал

Время создания: 16.03.2019 23:43

Текстовые метки: vba, err, обработка ошибок

Раздел: Разные закладки - VBA - VBA / Excel / Access / Word

Запись: xintrea/mytetra_db_adgaver_new/master/base/15386592303jlkcqni5q/text.html на raw.githubusercontent.com

Как насчет использования "Erl", он будет отображать последнюю метку перед ошибкой (например, 10, 20 или 30)?

Private Sub mySUB()

On Error GoTo Err_mySUB

10:

Dim stDocName As String

Dim stLinkCriteria As String

20:

stDocName = "MyDoc"

30:

DoCmd.openform stDocName, acFormDS, , stLinkCriteria

Exit_mySUB:

Exit Sub

Err_mySUB:

MsgBox Err.Number & ": " & Err.Description & " (" & Erl & ")"

Resume Exit_mySUB

End Sub

Так же в этом разделе:

http://www.java2s.com/
Как насчет использования "Erl", он будет отображать последнюю метку перед ошибкой (например, 10, 20 или 30)?

MyTetra Share v.0.65