Saludos.

Tengo la siguiente duda: Al usar el control ValueBox puedo escribir, guardar, modificar e incluso eliminar la información almacenada en el mismo. El problema se presenta cuando tecleo algo en ese control y abandono inmediatamente el formulario sin realizar ninguna otra función ya sea incluir en alguna base de datos, cancelar x operacion, eliminar datos de la base de datos, entre muchas otras cosas. Aparece el Error Invalid Object y se aborta el programa.  

De antemano agradecere toda información al respecto que permita solucionar este problema que se me presenta y no tener que reprogramar todos estos controles con el control TextBox (con el control TextBox este problema no se presenta) porque sera necesario hacer muchas validaciones para los datos númericos

Puedes poner parte de tu código, y en que linea te da el error...

Saludos

===================
Blog personal
Web: SoloGambas seleccion de articulos dedicados a Gambas
Visita el Curso de Gambas3 ¡¡¡Gratuito!!!

Saludos

Creo necesario complementar la pregunta que realice con ciertos tips que note ayer cuando trataba de resolver lo del ValueBox. Al incluir un nuevo formulario en el programa que desarrollo para ir cuadrando todos los campos que necesito. El múltiples compilaciones que hacia decidí probar escribir un número en un valuebox e inmediatamente trataba de salir del formulario, aquí se presentaba la ventana del error “INVALID OBJECT” y abortaba el programa. En el caso de que escribiera algún valor en el valuebox y después colocara algún dato ya sea en un TextBox y abandonaba el formulario, aquí no se presentaba el error. Tengo que hacer la acotación de que en este formulario no hay ninguna linea de código (el formulario.class esta vacío). Ahora la confusión que tengo es mucho mas grande porque el programa que desarrollo es para muchos usuarios y esta validación todavía no consigo como corregirla.

De antemano gracias por la ayuda al respecto

O pones alguna captura de pantalla, o mejor video, porque sino no te puedo ayudar.

Saludos

(Tambien puedes enviar el formulario en concreto que te da el problema)

===================
Blog personal
Web: SoloGambas seleccion de articulos dedicados a Gambas
Visita el Curso de Gambas3 ¡¡¡Gratuito!!!

Saludos.

Este es uno de los tantos formularios que presentan el problema del ValueBox. Puedes notar en la imagen anexa que los campos de las coordenadas GPS son del control antes señalado. El sistema que desarollo es un paquete o prototipo para el área de salud de mas de 150 modulos, que estoy por presentar a las autoridades de salud de mi pais. Por ahora llevo unos 70 modulos. Tengo no mas de 5 meses desarrollando en gambas por su parecido a Visual y lo he podido manejar poco a poco. Utilizo programación sencilla y eso me permite pasearme de un lenguaje a otro con muy pocos inconvenientes.

Como te dije anteriormente, este formulario no tenia ningun codigo e igual aparece el error. De antemano gracias por cualquier sugerencia que me des.

He intentado reproducir tu formulario, y no me da ningun error....

Te pregunto:
¿como llamas al formulario  ( form1.show) ?

Para impedir que salga "abruptamente" el programa prueba la orden "TRY form1.show", por ejemplo:


asi por lo menos no saldas del programa de manera brusca y mostrara un mensaje de error.



¿como sales del formulario?  con un boton donde ponga me.close supongo....

Osea



Para impedir que salga "abruptamente" el programa prueba la orden "TRY me.close", por ejemplo:



asi por lo menos no saldas del programa de manera brusca y mostrara un mensaje de error.


Sino me mandas mas datos, esto es en lo que te puedo ayudar.

===================
Blog personal
Web: SoloGambas seleccion de articulos dedicados a Gambas
Visita el Curso de Gambas3 ¡¡¡Gratuito!!!

Saludos.

Este es el codigo del formulario. Pero como dije antes, sin el codigo tambien aparece el error.

Henrry, estás haciendo que sea difícil ayudarte. Por favor lee el encabezado titulado "Importante: Lee antes de postear" en la parte superior de la página que muestra esta conversación.

El mensaje de error "Invalid Object" indica que (probablemente) intentas usar un objeto que depende otro objeto que fue destruido. Por ejemplo, tal vez estés referenciando una variable, un control o llamando una función de un formulario, luego cerrarlo.

Deberías decirnos cómo se llaman: el formulario que contiene el código que muestras, el control ValueBox que mencionas y el formulario que llama a éste. También deberías mostrar el código del formulario que abre éste.

Debido a lo que mencionas respecto de que el error se produce aún sin el código que muestras y al significado del error, probablemente el problema esté en el código que se ejecuta después de cerrar el formulario.

===================
Cómo programar con Gambas

Speed Books: informática libre.

Saludos.

Antes de abrir el formulario que envie (se llama frmGeneralEmpresas) el sistema recorre 2 formulario.
El primero es un formulario de acceso que tiene el siguiente codigo (frmAcceso):

PUBLIC var AS Integer
PUBLIC NumeroTabla AS Integer
PUBLIC consulta AS String
PRIVATE Contador AS Integer
PRIVATE rs AS Result

PUBLIC FUNCTION ConectarBase() AS Boolean
   db.Type = "postgresql"
   db.Host = "localhost"
   db.Login = "postgres"
   db.Password = "1234"
   db.Name = "postgres"
   TRY db.Open()
   IF ERROR THEN
      db = NULL
      Message.Error("Error al conectar con la Base de Datos")
      RETURN TRUE
   ENDIF    
   RETURN FALSE
END

PUBLIC SUB CerrarConexion()
  IF db = NULL THEN RETURN
  db.Close
  db = NULL
END

PUBLIC SUB Form_Open()
IF ConectarBase() THEN RETURN
   ME.Center()
   login.Text = "gittens"
   clave.Password = TRUE
   Contador = 0  
   Label1.Visible = TRUE
   Cancelar.Picture = Picture["Fondos/1Cancelar.bmp"]
   Cancelar.Refresh
   Cancelar.Enabled = TRUE
   login.Visible = TRUE
   clave.visible = FALSE
   Label4.Text = "Usuario:"
   login.SetFocus
END
 
PUBLIC SUB Cancelar_Click()
   CerrarConexion()
   ME.Close()
END

PUBLIC SUB Login_Activate()
   IF (login.Text = "") THEN
      Message.Info("Debe Introducir Nombre de Usuario")
      clave.Text = ""
      clave.Visible = FALSE
      Label1.Visible = TRUE
      Label4.Text = "Usuario:"
   ELSE
      Label1.Visible = FALSE
      login.Visible = FALSE
      clave.Text = "7"
      clave.Visible = TRUE
      clave.SetFocus
      Label4.Text = "Contraseña:"
   ENDIF
END

PUBLIC SUB clave_Activate()
   IF clave.Text = "" THEN
      Message.Info("Debe Introducir Contraseña")
   ELSE
      consulta = "Select * from Usuario where ((Usuario.password1='" & clave.Text & "') and (Usuario.login1='" & login.Text & "'))"
      rs = db.Exec(consulta)
      IF rs.Count > 0 THEN
         IF NOT IsNull(rs!codigonivelacceso) THEN
            var = rs!codigonivelacceso
            CedulaUsuario1 = rs!CodigoCedula
            NumeroTabla = rs!Numero
            Contador = 0
            IF var = 1 THEN
               frmMenuPrincipal.ShowModal()
            ELSE
               IF var = 2 THEN
                  Message.Info("No tendrá acceso a los formularios: Parametros, Mantenimientos")
                  frmMenuPrincipal.ShowModal()
               ELSE
                  Message.Info("No tendra acceso a los formularios: Parametros, Mantenimiento ni Consultas")
                  frmMenuPrincipal.ShowModal()
               ENDIF
            ENDIF
         ELSE
            Contador = Contador + 1
            Message.Error("Nivel de Acceso Nulo")
            clave.Text = ""
            login.Text = ""
            login.Visible = TRUE
            clave.visible = FALSE
            Label4.Text = "Usuario:"
            login.SetFocus
            Label1.Visible = TRUE
            IF Contador > 3 THEN
               Message.Info("Finalizaron sus Opciones")
               ME.Close()
            ENDIF    
         ENDIF
      ELSE
         Contador = Contador + 1
         Message.Error("Contraseña Incorrecta")
         clave.Text = ""
         login.Text = ""
         login.Visible = TRUE
         clave.visible = FALSE
         Label4.Text = "Usuario:"
         login.SetFocus
         Label1.Visible = TRUE
         IF (Contador >= 3) THEN
            Message.Info("Finalizaron sus Opciones")
            ME.Close()
         ENDIF
      ENDIF
   ENDIF
END
 

Una vez que confirmas que puedes entrar al sistema, aparece el otro formulario que es el menu del sistema (frmMenuPrincipal), cuyo codigo es el siguiente:

PUBLIC FechaCalendario AS String
PUBLIC VaHacia AS String
PUBLIC ControlRedes AS String
PUBLIC ControlRedes1 AS String
PUBLIC ControlFrm AS String
PUBLIC Nivel AS String
PUBLIC Nivel0 AS String
PUBLIC ServicioEquipo AS String

PUBLIC SUB ControlIndicadores_Click()
 '     frmControlIndicadores.ShowModal()
END
 
PUBLIC SUB CamasHospitalizacion_Click()
     VaHacia = "1"
 '     frmInventarioDeCamas.ShowModal()
END
 
PUBLIC SUB CierreMes_Click()
 '     frmCierreMes.ShowModal()
END
 
PUBLIC SUB ControlVivienda_Click()
      frmControlViviendaAdjudicatario.ShowModal()
END
 
PUBLIC SUB EmisionCartas_Click()
 '     frmCartas.ShowModal()
END
 
PUBLIC SUB EmpresaTrabajo_Click()
 '     frmEmpresasTrabajador.ShowModal()
END
 
PUBLIC SUB EquiposPorServicios_Click()
      frmEquiposPorServicios.ShowModal()
END
 
PUBLIC SUB Estados_Click()
      frmEstados.ShowModal()
END
 
PUBLIC SUB Ficha_Click()
      frmFichaUnica.ShowModal()
END  
 
PUBLIC SUB FormularioTerapeutico_Click()
 '   frmMedicamentosEsenciales.ShowModal()
END  
 
PUBLIC SUB Formulas_Click()
 '   frmGenerarFormula.ShowModal()
END  
 
PUBLIC SUB GradosPasos_Click()
 '    frmGradosxPasos.ShowModal()
END  
 
PUBLIC SUB IndicadoresMedicos_Click()
     frmIndicadores.ShowModal()
END  

PUBLIC SUB Informeentrefechas_Click()
 '     frmInformeEntreFechas.ShowModal()
END  
 
PUBLIC SUB InventarioEquipos_Click()
    VaHacia = "1"
 '     frmInventarioDeEquipos.ShowModal()
END
 
PUBLIC SUB MegaCompras_Click()
 '     frmMegaCompra.ShowModal()
END
 
PUBLIC SUB NuevoInteres_Click()
 '     frmCambioDeInteres.ShowModal()
END
 
PUBLIC SUB Patologias_Click()
       frmPatologiasDeSalud.ShowModal()
END  
 
PUBLIC SUB busqueda_Click()
 '     frmBusquedaEstablecimiento.ShowModal()
END  
 
PUBLIC SUB PLanOperativo_Click()
     frmPlanOperativo.ShowModal()
END  
 
PUBLIC SUB Precios_Click()
 '     frmPreciosRequisicion.ShowModal()
END
 
PUBLIC SUB PreciosPromedios_Click()
 '     frmPreciosPorEmpresas.ShowModal()
END
 
PUBLIC SUB Quirofanos_Click()
    VaHacia = "1"
 '     frmInventarioDeQuirofanos.ShowModal()
END  
 
PUBLIC SUB RedesHorizontales_Click()
   'Aqui van los 2 VaHacia = "2" y VaHacia = "1"
      ControlRedes = ""
      ControlRedes1 = ""
      ControlFrm = ""
      ServicioEquipo = "3"
      frmContinuoVertical.ShowModal()
END  
 
PUBLIC SUB RedesIgualServicio_Click()
   'Aqui van los 2 VaHacia = "2" y VaHacia = "1"
      ControlRedes = ""
      ControlRedes1 = ""
      ControlFrm = ""
      ServicioEquipo = "2"
      frmContinuoVertical.ShowModal()
END  
 
PUBLIC SUB RedesVerticalesServicios_Click()
   'Aqui van los 2 VaHacia = "2" y VaHacia = "1"
      ControlRedes = ""
      ControlRedes1 = ""
      ControlFrm = ""
      ServicioEquipo = "1"
      frmContinuoVertical.ShowModal()
END  
 
PUBLIC SUB SeleccionarPrecios_Click()
 '    frmSeleccionarPrecios.ShowModal()
END  
 
PUBLIC SUB SeleccionAutomatica_Click()
 '     frmSeleccionarPreciosAutomaticos.Show 1
END  
 
PUBLIC SUB ServiciosDeApoyo_Click()
      VaHacia = "1"
      frmServiciosDeApoyo.ShowModal()
END  
 
PUBLIC SUB ServiciosHospitalarios_Click()
     VaHacia = "1"
 '     frmServiciosHospitalarios.ShowModal()
END  
 
PUBLIC SUB OtrosServicios_Click()
      VaHacia = "1"
 '     frmServiciosAyuda.ShowModal()
END  
 
PUBLIC SUB Funciones_Click()
      frmFunciones.ShowModal()
END  
 
PUBLIC SUB Sector_Click()
 '     frmSector.ShowModal()
END  
 
PUBLIC SUB tablaamortizacion_Click()
 '    frmTablaAmortizacion.ShowModal()
END
 
PUBLIC SUB TipoEstablecimiento_Click()
 '     frmTiposEstablecimientos.ShowModal()
END  
 
PUBLIC SUB Acopios_Click()
 '     frmCentrosDeAcopios.ShowModal()
END  
 
PUBLIC SUB Comites_Click()
 '     frmComites.ShowModal()
END  

PUBLIC SUB EnteEjecutor_Click()
 '     frmEnteEjecutor.ShowModal()
END  
 
PUBLIC SUB Servicios_Click()
      frmServiciosDeSalud.ShowModal()
END
 
PUBLIC SUB Clinicas_Click()
     VaHacia = "1"
 '     frmClinica.ShowModal()
END  
 
PUBLIC SUB ConsumoPromedio_Click()
     VaHacia = "1"
 '     frmConsumoPromedio.ShowModal()
END  
 
PUBLIC SUB IVA_Click()
'      frmIVA.ShowModal()
END
 
PUBLIC SUB Bancos_Click()
       frmBancos.ShowModal()
END  
 
PUBLIC SUB MegaCompra_Click()
'      frmMegaCompra.ShowModal()
END  

PUBLIC SUB Salir_Click()
    ME.Close()
    QUIT  
END
 
PUBLIC SUB Form_Open()
'Image1.Picture = LoadPicture("C:\Henrry\Fondos\globe.wmf")
'Image1.Stretch = True
   IF frmAcceso.var = 1 THEN
      Archivos.Enabled = TRUE
      ModuloControl.Enabled = TRUE
    '  DatosGenerales.Enabled = True
    '  ControlInventario.Enabled = True
    '  ProcesoRequisicion.Enabled = True
    '  Reportes.Enabled = True
      Accesos.Enabled = TRUE
      AcercaAutoria.Enabled = TRUE
   ELSE
      IF frmAcceso.var = 2 THEN
         Archivos.Enabled = TRUE
         ModuloControl.Enabled = TRUE
       '  DatosGenerales.Enabled = True
       '  ControlInventario.Enabled = True
       '  ProcesoRequisicion.Enabled = True
       '  Reportes.Enabled = True
         Accesos.Enabled = FALSE
         AcercaAutoria.Enabled = TRUE
      ELSE
         Archivos.Enabled = FALSE
         ModuloControl.Enabled = TRUE
        ' DatosGenerales.Enabled = True
        ' ControlInventario.Enabled = True
        ' ProcesoRequisicion.Enabled = False
        ' Reportes.Enabled = True
         Accesos.Enabled = FALSE
         AcercaAutoria.Enabled = TRUE
      ENDIF
   ENDIF
END
 
PUBLIC SUB Entregaproveedor_Click()
 '     frmEntregaProveedor.ShowModal()
END
 
PUBLIC SUB InventarioInicial_Click()
    VaHacia = "1"
 '     frmInventarioInicial.ShowModal()
END
 
PUBLIC SUB Partidas_Click()
 '     frmPartidas.ShowModal()
END
 
PUBLIC SUB Empresas_Click()
 '     frmEmpresas.ShowModal()
END
 
PUBLIC SUB Renglones_Click()
 '     frmRenglones.ShowModal()
END
 
PUBLIC SUB PreciosPorEmpresas_Click()
 '     frmPreciosPorEmpresas.ShowModal()
END
 
PUBLIC SUB SeleccionarRenglonesDesiertos_Click()
   '   frmSeleccionarPreciosDesiertos.ShowModal()
END

PUBLIC SUB CartasCompromisos_Click()
 '    frmGenerarCartaCompromiso.ShowModal()
END
 
PUBLIC SUB SeleccionarOfertante_Click()
 '     frmSeleccionarPrecios.ShowModal()
END
 
PUBLIC SUB CargarPrecios_Click()
 '     frmPreciosRequisicion.ShowModal()
END
 
PUBLIC SUB DatosSistema_Click()
'      frmDatosSistema.ShowModal()
END
 
PUBLIC SUB TotalEmpresas_Click()
   frmGeneralEmpresas.ShowModal()
END
 
PUBLIC SUB Requisiciones_Click()
 '     frmRequisiciones.ShowModal()
END
 
PUBLIC SUB SubRequisiciones_Click()
  '    frmCargarPreciosDesiertos1.ShowModal()
END  
 
PUBLIC SUB PagosDeFacturas_Click()
   '   frmCancelacionFacturas.ShowModal()
END
 
PUBLIC SUB Accesos_Click()
 '     frmUsuarios.ShowModal()
END
 
PUBLIC SUB archivos_Click()
   IF frmAcceso.var = 1 THEN
      Partidas.Enabled = TRUE
      Bancos.Enabled = TRUE
      DatosSistema.Enabled = TRUE
      IVA.Enabled = TRUE
      Renglones.Enabled = TRUE
      Empresas.Enabled = TRUE
   ELSE
      IF frmAcceso.var = 2 THEN
         Partidas.Enabled = TRUE
         Bancos.Enabled = TRUE
         DatosSistema.Enabled = TRUE
         IVA.Enabled = TRUE
         Renglones.Enabled = TRUE
         Empresas.Enabled = TRUE
      ELSE
         Partidas.Enabled = FALSE
         Bancos.Enabled = FALSE
         DatosSistema.Enabled = FALSE
         IVA.Enabled = FALSE
         Renglones.Enabled = FALSE
         Empresas.Enabled = FALSE
      ENDIF
   ENDIF
END
 
PUBLIC SUB Form_Close()
    QUIT
END
 
PUBLIC SUB ValoresLaboratorio_Click()
'    frmIndicadoresLaboratorio.ShowModal()
END

PUBLIC SUB Propietario_Click()
    frmAcercaDe.showModal()
END

PUBLIC SUB Viviendas_Click()
    frmVivienda.ShowModal()
END

Y aqui escojes la opción con la que deseas trabajar.

Nota: Utilizo las herramienta gb.qt, gb.db, gb.form entre otras, gambas2, sistema operativo Debian y el manejador de base de datos es PostgreSql 8.3.
El sistema hasta los momentos funciona muy bien a exepción del error que les pregunto. Me faltan todavia aquellos formularios que utilizaran grid pero eso lo aprendere luego, por ahora desarrollo todos los que no utilizan esa herramienta.

Me despido, y como siempre digo: gracias de antemano

Tal como lo pones quizá nadie te conteste. Tienes que preocuparte de dejar clara tu pregunta porque todo eso echa para atrás ¿a que viene incluir funciones que no tienen que ver con el caso? Todo ese tocho para poner un código que probablemente no debe llevar mas de cinco líneas.

Algo de un formulario que recorre dos formularios y luego se cierra y tal para que al final te de un error en alguna parte. Tu pón únicamente la rutina que te da el error y si falta algo pues ya veremos ¿si tenes cincuenta formularios nos pones los cincuenta? ¿a qué viene poner el código de formularios que no tienen que ver pero pasan por allí?

De hecho de todos esos formularios no se cual es el que te da el error ni se donde y tampoco se que valuebox es el que da el error ni cuando. Por lo visto cuando se cierra pero ¿cuando se cierra cual?

Así no se pregunta. Los demás no conocemos tu aplicación.