MyTetra Share
Делитесь знаниями!
Как насчет использования "Erl", он будет отображать последнюю метку перед ошибкой (например, 10, 20 или 30)?
04.10.2018
16:20
Текстовые метки: VBA, Erl, обработка ошибок
Раздел: VBA - VBA / Excel / Access / Word


Как насчет использования "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.52
Яндекс индекс цитирования