Err Function

āĻāĻ•āϟāĻŋ āĻ¤ā§āϰ⧁āϟāĻŋ āϕ⧋āĻĄ āĻĒā§āϰāĻĻāĻžāύ āĻ•āϰ⧇ āĻĨāĻžāϕ⧇ āϝāĻž āĻĒā§āϰ⧋āĻ—ā§āϰāĻžāĻŽ āϚāĻžāϞāύāĻžāϰ āϏāĻŽā§Ÿ āϏāĻ‚āϘāϟāĻŋāϤ āĻ¤ā§āϰ⧁āϟāĻŋ āĻļāύāĻžāĻ•ā§āϤ āĻ•āϰ⧇ āĻĨāĻžāϕ⧇āĨ¤

āϏāĻŋāύāĻŸā§āϝāĻžāĻ•ā§āϏ:


Err

āĻĒā§āϰāĻĻāĻžāύ āĻŽāĻžāύ:

Integer

āĻĒā§āϝāĻžāϰāĻžāĻŽāĻŋāϟāĻžāϰ:

Err āĻĢāĻžāĻ‚āĻļāύāϟāĻŋ āĻ¤ā§āϰ⧁āϟāĻŋ āύāĻŋāĻ°ā§āϧāĻžāϰāĻŖ āĻāĻŦāĻ‚ āϏāĻ‚āĻļā§‹āϧāύ āĻ•ā§āϰāĻŋ⧟āĻžāϰ āϜāĻ¨ā§āϝ āĻ¤ā§āϰ⧁āϟāĻŋ āĻšā§āϝāĻžāĻ¨ā§āĻĄāϞāĻŋāĻ‚ āĻ āĻŦā§āϝāĻŦāĻšā§ƒāϤ āĻšā§Ÿā§‡ āĻĨāĻžāϕ⧇āĨ¤

āωāĻĻāĻžāĻšāϰāĻŖ:


Sub ExampleError
on error goto ErrorHandler REM āĻ¤ā§āϰ⧁āϟāĻŋ āĻšā§āϝāĻžāĻ¨ā§āĻĄāϞāĻžāϰ āϏ⧇āϟ āφāĻĒ āĻ•āϰ⧇ āĻĨāĻžāϕ⧇
Dim iVar as Integer
Dim sVar As String
āĻŦāĻŋāĻĻā§āϝāĻŽāĻžāύ āύ⧟ āĻāĻŽāύ āĻāĻ•āϟāĻŋ āĻĢāĻžāχāϞ⧇āϰ āĻ•āĻžāϰāύ⧇ REM Error āĻšā§Ÿ
    iVar = Freefile
    Open "\file9879.txt" for Input as #iVar
    Line Input #iVar, sVar
    Close #iVar
Exit Sub
ErrorHandler:
    MsgBox "Error " & Err & ": " & Error$ + chr(13) + "At line : " + Erl + chr(13) + Now , 16 ,"an error occurred"
End Sub

Please support us!