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
