Gesti贸n de Errores: l铆nea de error
¿Sabe alguien si, al producirse un error, se puede indicar la l铆nea de c贸digo en la que ha dado el error? Me suena de haber visto algo as铆 en C. Y, la verdad, para depurar el c贸digo una vez compilado ser铆a algo muy 煤til.
Tenes que numerar las lineas y utilizar la funci贸n Erl() Te mando un ejemplo y espero que sea de utilidad
Private Sub Form_Load()
1 On Error GoTo errores
2 Dim A As Integer
3 A = A + 1
4 A = A + 10 / 0
Exit Sub
errores:
MsgBox Err.Description & " " & Err.Number & " Linea de error" & Erl()
End Sub
Private Sub Form_Load()
1 On Error GoTo errores
2 Dim A As Integer
3 A = A + 1
4 A = A + 10 / 0
Exit Sub
errores:
MsgBox Err.Description & " " & Err.Number & " Linea de error" & Erl()
End Sub
