checa esto:
Private Sub Form_Load()
On Error GoTo ErrorPersonalizado 'si ocurre un error salta a ErrorPersonalizado
Dim a As Integer 'variable
a = 4 / 0 'a es iguala 4 sobre 0, eso da error, no se peude divivir sober cero.
MsgBox "termino el subproceso", vbInformation, "" 'terminamos
Exit Sub 'salimos de la sub (saltamos la parte de ErrorPersonalizado)
ErrorPersonalizado:
MsgBox "Hubo un error." & vbCrLf & "El error fue: " & Err.Number & " - " & Err.Description, vbCritical, "" 'damos alerta
Resume Next 'continuamos despeus de la linea que tuvo el error
End Sub
el mensaje o la accion a tomar derivada del error la puedes personalizar, y peudes usar if's apra ver q error es y en cas de ser por ej error 6 (desbordamiento) haces una cosa y sie s error 13 (no coinciden los tipos) haces otra cosa. asi:
if err.number=9 then
.....
elseif err.number=13 then
......
else
......
end if
o puedes ignorar todos los errores, aunqeu esto demuestra que no sabes prgoramar bien
.... los que usan el sigueinte metodo es porqe no saben como eliminar sus errores entonces "le dicen al prorgama que no importan los errores":
Private Sub Form_Load()
On Error Resume Next 'si ocurre un error salta a la siguiente linea sin importar
Dim a As Integer 'variable
a = 4 / 0 'a es iguala 4 sobre 0, eso da error, no se peude divivir sober cero.
MsgBox "termino el subproceso", vbInformation, "" 'terminamos
End Sub
Autor
En línea
