por ejemplo:
Private Sub Form_Load()
On Error Resume Next
Open "archivo.txt" For Input As #1
if err.Number = (yo q c) then solucionar()
End Sub
lo q hace el "On Error Resume Next" es q le dice al compilador q cuando encuentre un error en este sub lo omita, cuando ocurre un error lo guarda en Err, asi podes chequear si ocurrio un error,
tambien podes hacer esto q es algo mas ordenado:
Private Sub Form_Load()
On Error GoTo solucion
Open "archivo.txt" For Input As #1
solucion:
id err.Number=(yo q c) then solucion()
End Sub
con este cuando ocurre algun error salta automaticamente a solucion y arregla el problema.
en este ejemplo por si no entendes intenta abrir un archivo, si no lo encuentra salta error, pero como le dijimos q omita los errores sigue a la proxima linea donde nos fijamos si ocurrio tal error (le tenemos q indicar el numbero de error q no lo puse por q no c
), si ocurrio lo q podriamos hacer es indicar al usuario q no existe el archivo, y lito.
saludos.
PD: tambien lo podes poner en el encabezado del codigo para q abarque todo el form
Autor
En línea
