VB6 -sistema de errores no me funciona
Debo haber desactivado algo en el entorno de desarrollo, porque cuando tengo un error de prog. Pasa de la etiqueta del error.
Ejemplo:
Private Sub cmdSalir_Click()
On Error GoTo Error_Salir
If rstAlbaranes.State = 1 Then
rstAlbaranes.Close
End If
Exit Sub
Error_Salir:
Unload Me
End Sub
Ejemplo:
Private Sub cmdSalir_Click()
On Error GoTo Error_Salir
If rstAlbaranes.State = 1 Then
rstAlbaranes.Close
End If
Exit Sub
Error_Salir:
Unload Me
End Sub
1 Respuesta
Respuesta de denciso
1
Utilizas algún break point para debugear el código o simplemente lo dejas que se ejecute.
Si, casi siempre pongo un break point.
Lo que te he mandado es solo un ejemplo.
¿Qué puede haber ocurrido?. ¿He desactivado la librería que errores de VB6?. ¿Cómo?.
Saludos
Jalmendro
Lo que te he mandado es solo un ejemplo.
¿Qué puede haber ocurrido?. ¿He desactivado la librería que errores de VB6?. ¿Cómo?.
Saludos
Jalmendro
Checa en el menú de opciones de tu visual basic, en la pestaña de general, que tipo de error traping tiene, prueba cambiando y viendo como se comporta tu visual basic.
