RE:abortar programa ante error critico
Hola
'aquí tengo un ejemplo para el error de división entre cero
'consiste en un botón que divide el valor de una caja de texto (Text1) entre el valor de otra caja de texto (Text2)
Private Sub Command1_Click()
On Error GoTo MenudoError 'si encuentra algún error ejecuta el código que hay debajo de "MedudoError:"
MsgBox (Val(Text1.Text) / Val(Text2.Text))
'si no ha encontrado ningún error hacemos que salga de la subrutina
Exit Sub
'si ha encontrado algún error viene directamente a esta línea
MenudoError:
'si en Text2 hay un cero o una letra el número de error es 11
'y si el error es el Nº 11 lo ignora y continúa con el código que hay después de la línea de código que ha generado el error gracias al siguiente código
If Err.Number = 11 Then Resume Next 'En este caso sería "Exit Sub"
End Sub
'en el ejemplo el número de error es el 11.
'si en Text1 y Text2 no hubiera un número o los dos fueran cero, el error sería el Nº 6 "Desbordamiento". En tal caso en vez de 11 habría que poner 6 o los dos.
'los errores hay que controlarlos individualmente
'espero que te haya servido de algo
Salu2