Menu

  • slider04-vb6sqlhd
  • slider01-vb6sqlhd
  • slider01-vb6sqlhd
  • slider01-vb6sqlhd
  • slider01
  • slider01
  • slider01
  • slider01

Suscríbete a Aprende-Viendo 5.0

Content

Como hago para que no me cierre el aplicativo en caso de error?

0
Tengo un aplicativo y me gustaria de saber como hago para que en caso de aparecer un estos mensajes de error no me cierre el aplicativo cuando picho en Aceptar o en Ok.
       
  • Respuesta de Hortencio Jose el Jueves, Enero 24 2013, 11:34 PM · Ocultar · #1
    Haber si entendi. Seria asi?

    Private Sub ListaDatos_Click()

    On Error GoTo Continuar
    With RsLibros
    If .BOF Or .EOF Then Exit Sub
    .Find "Numero_adquisicion='" & Val(GrillaLibros.Columns(1).Text) & "'"
    LbCodigo.Caption = !Id 'muestra el numero del codigo

    txtAdiqui.Text = !Numero_adquisicion
    txtISBN.Text = !Isbn
    txtTitulo.Text = !Titulo
    txtAutor.Text = !Autor
    txtEdicion.Text = !Edicion
    txtEditora.Text = !Editora
    txtAno.Text = !Ano
    txtPaginas.Text = !Paginas
    CboIdioma.Text = !Idioma
    CboCategoria.Text = !Categoria
    txtUbicacion.Text = !Ubicacion
    txtContenido.Text = !Contenido
    txtObservacion.Text = !Observacion
    End With
    End Sub

    If text1.text="" Then (ESTE COMO SERIA?)
    ' aqui seguiria mas codigo que exista en nuestro programa (EL CODIGO QUE SEGUIRIA AQUI SERIA EL DE ARRIBA?)
    End If

    MUÉSTRAME COMO SERIA POR EJEMPLO CON ESE CODIGO?
  •  
  •  
    Respuesta de Ronald López - Kalizron el Jueves, Enero 24 2013, 09:20 PM · Ocultar · #2
    Hola Hortencio.. una forma de utilizar los errores inesperados es aprovechando On Error GoTo
    se usa asi:


    On Error GoTo Continuar
    '''Aqui seguiria nuestro codigo del programa que estemos haciendo
    Continuar:
    If text1.text="" Then
    ' aqui seguiria mas codigo que exista en nuestro programa
    End If


    NOTA sobre el USO:

    En poner
    On Error GoTo Continuar
    quiere decir que al aparecer el error el programa buscara la linea CONTINUAR (puedes poner cualquier nombre) y continuara desde ahi evitando todo el codigo antes que este.

    NOTA 2:
    Continuar:
    If text1.text="" Then
    ' aqui seguiria mas codigo que exista en nuestro programa
    End If


    en esta parte.. es importante especificar donde empieza el codigo CONTINUAR

    Saludos espero te sirva.
Agregar Tu Respuesta
Por favor registrese o ingrese para poder publicar su respuesta.

Agradesco tu Paciencia. Muchas Gracias por la espera! Somos Aprende Viendo 5.0

Grupo AprendeViendo & Ronald López agradecen a todos sus fieles seguidores por la larga espera. Basados en nuestro nuevo concepto, Grupo Aprendeviendo les ofrece un sin fin de posibilidades en sus largas horas de adiestramiento y soluciones de problemas tanto empresariales como cotidianos. Sigamos siendo un portal de enseñanza de virtual gratuito y más que eso!

Copyright © 2006 - 2014 - Grupo AprendeViendo & Ronald López. Todos los Derechos Reservados

Grupo AprendeViendo a sido desarrollado por Ronald López - Kalizron. Esta prohibida su reproducción total o parcial sin previa autorización de parte de sus autores. Ronald López Bahamonde - Resolución: 1024-768 - Aviso Legal - Términos de Uso

Log In or Register

fb iconLog in with Facebook