On Error GoTo

[emiliomx]

Hola

Quisiera saber la forma de controlar dos errores de esta forma
para una conexion

Private Sub cmdConectar_Click()
On Error GoTo error1

.......rutina1 de conexión...............
conectado = True
Exit Sub

error1:
MsgBox "¡No se pudo conectar!", vbExclamation, "Info"
Exit Sub

End Sub


Entoncen intentar una segunda rutina de conexion en error1
si no se puede entonces definitivamente poner un mensaje de
que no se pudo.


Espero su respuesta..

[tatayayan]

Private Sub cmdConectar_Click()
On Error GoTo error1

.......rutina1 de conexión...............
conectado = True
Exit Sub

error1:
MsgBox "¡No se pudo conectar!", vbExclamation, "Info"
call segunda
Exit Sub 'no seria necesario si es lo ultimo

End Sub

Segun mi poco entender puedes llamar a otro modulo que haga esa rutina.
Espero sea util,
saludos, Tatayayan

[emiliomx]

Así me quedo.
hay otra mejor forma?

Private Sub Command1_Click()
On Error GoTo fallo:
.......rutina1 de conexión...............
Exit Sub

fallo:
Command2_Click

End Sub


Private Sub Command2_Click()
On Error Resume Next
On Error GoTo fallo:
.......rutina2 de conexión...............
Exit Sub

fallo:
MsgBox "Se ha producido el siguiente error:" & vbCrLf & _
Err.Number & ", " & Err.Description &"
End Sub


Gracias

Adios..