>ON ERROR DO ERRHAND WITH ; > ERROR( ), MESSAGE( ), MESSAGE(1), PROGRAM( ), LINENO( ) > >DO bism1 >READ EVENTS > >PROCEDURE ERRHAND >PARAMETER MERROR, Mess, MESS1, MPROG, MLINENO >MESSAGEBOX('Error number: ' + Ltrim(Str(MERROR)) + Chr(13) + ; > 'ERROR MESSAGE: ' + Mess + Chr(13) + ; > 'LINE OF CODE WITH ERROR: ' + MESS1 + Chr(13) + ; > 'LINE NUMBER OF ERROR: ' + Ltrim(Str(MLINENO)) + Chr(13) + ; > 'PROGRAM WITH ERROR: ' + MPROG, ; > 48, 'Ginning Accounting System') >>When some error occurs it shows messagebox such as
>Error number:1924 >Error message: Forms is not an object >Line of code with: >Line number of error:0 >Program with error: Quit >>The problem is it shows following lines empty