Err Function

рдХрд╛рд░реНрдпрдХреНрд░рдо рдХрд╛рд░реНрдпрд╛рдиреНрд╡рдпрди рдЧрд░реЗрдХреЛ рдмреЗрд▓рд╛рдорд╛ рддреНрд░реБрдЯрд┐ рдкрд░рд┐рднрд╛рд╖рд┐рдд рдЧрд░реНрдиреЗ рддреНрд░реБрдЯрд┐ рд╕рдЩреНрдХреЗрдд рдлрд░реНрдХрд╛рдЙрдБрджрдЫ ред

рд╡рд╛рдХреНрдп рд╕рдВрд░рдЪрдирд╛:


Err

рдорд╛рди рдлрд░реНрдХрд╛рдЙрдиреБрд╣реЛрд╕реН:

рдЗрдиреНрдЯрд┐рдЬрд░

рдкрд░рд╛рдорд┐рддрд┐рд╣рд░реВ:

рддреНрд░реБрдЯрд┐ рд░ рджреЛрд╖ рдирд┐рд╡рд╛рд░рдХ рдХрд╛рд░реНрдп рдЧрдгрдирд╛ рдЧрд░реНрдирд▓рд╛рдИ рддреНрд░реБрдЯрд┐-рд╣реНрдпрд╛рдиреНрдбреЗрд▓рд┐рдЩ рдХрд╛рд░реНрдпрддрд╛рд▓рд┐рдХрд╛рд╣рд░реВрдорд╛ Err рдкреНрд░рдХрд╛рд░реНрдпрдХреЛ рдкреНрд░рдпреЛрдЧ рд╣реБрдиреНрдЫ ред

рдЙрджрд╛рд╣рд░рдг:


Sub ExampleError
рддреНрд░реБрдЯрд┐ рд╣реБрджрд╛рдБ рддреНрд░реБрдЯрд┐ рд╣реНрдпрд╛рдиреНрдбрд▓рд░ REM рдорд╛ рдЬрд╛рдиреБрд╣реЛрд╕реН, рддреНрд░реБрдЯрд┐ рд╣реНрдпрд╛рдиреНрдбрд▓рд░ рд╕реЗрдЯрдЕрдк рдЧрд░реНрдиреБрд╣реЛрд╕реН
Dim iVar as Integer
Dim sVar As String
рдлрд╛рдЗрд▓ рдЕрд╡рд╕реНрдерд┐рдд рдирдорднрдПрдХреЛ рдХрд╛рд░рдг REM рдорд╛ рддреНрд░реБрдЯрд┐
    iVar = Freefile
    Open "\file9879.txt" for Input as #iVar
    Line Input #iVar, sVar
    Close #iVar
Exit Sub
ErrorHandler:
    рд╕рдиреНрджреЗрд╢ рдмрд╛рдХрд╕ "рддреНрд░реБрдЯрд┐ " & Err & ": " & Error$ + chr(13) + " рд▓рд╛рдЗрдирдорд╛ : " + Erl + chr(13) + рдЕрд╣рд┐рд▓реЗ , 16 ,"рдПрдЙрдЯрд╛ рддреНрд░реБрдЯрд┐ рд░рд╣рди рдЧрдпреЛ"
End Sub

Please support us!