Mostrar Mensajes
Código:
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
tambien podes hacer esto q es algo mas ordenado:
Código:
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
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
.
.