none
capturar error access RRS feed

  • Pregunta

  • Estimados:

    tengo el siguiente problema

    tengo un código que abre un formulario dependiendo del nombre de un combobox

    Private Sub bt_Consultas_Click()
    
    DoCmd.OpenForm (CB_Cartolas)
    
    End Sub

    pero al cancelar el formulario me da un error

    como puedo capturar este error y mostrarle un mensaje al usuario que "a cancelado la operacion".

    o aunque sea no mostrar nada, pero que no me de estos mensajes,

    de antemano gracias,


    Juan Mora R. - Software Developer Junior - Aiep Chile.

    lunes, 4 de junio de 2012 22:08

Respuestas

  • Prueba creando un tratamiento de error.

    Private Sub bt_Consultas_Click()

    On error goto lbl_error if len(trim(cb_cartola))>0 then DoCmd.OpenForm (CB_Cartolas)

    else

    beep

    end if lbl_salir:

    exit sub

    lbl_error:

    if err.number=2501 then

    msgbox "debe indicar un número de expediente",vbcritical,"No introdujo.."

    else

    msgbox "Se produjo el error " & err.description

    end if

    resume lbl_salir End Sub

    • Marcado como respuesta Raicerk lunes, 11 de junio de 2012 19:28
    domingo, 10 de junio de 2012 16:23

Todas las respuestas

  • prueba

    Private Sub bt_Consultas_Click() if len(trim(cb_cartola))>0 then DoCmd.OpenForm (CB_Cartolas)

    else

    beep

    end if End Sub

    martes, 5 de junio de 2012 2:45
  • estimado,

    gracias, resolví el error de cuando el combobox esta en blanco pero me sigue dando el siguiente error

    Al apretar consultar, me abre mi consulta,

    pero si yo aprieto cancelar

    me da este error

    Esto no hayo como resolverlo,

    Gracias por tu ayuda,

    Saludos,


    Juan Mora R. - Software Developer Junior - Aiep Chile.

    martes, 5 de junio de 2012 3:53
  • Prueba creando un tratamiento de error.

    Private Sub bt_Consultas_Click()

    On error goto lbl_error if len(trim(cb_cartola))>0 then DoCmd.OpenForm (CB_Cartolas)

    else

    beep

    end if lbl_salir:

    exit sub

    lbl_error:

    if err.number=2501 then

    msgbox "debe indicar un número de expediente",vbcritical,"No introdujo.."

    else

    msgbox "Se produjo el error " & err.description

    end if

    resume lbl_salir End Sub

    • Marcado como respuesta Raicerk lunes, 11 de junio de 2012 19:28
    domingo, 10 de junio de 2012 16:23