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!