Portal    Foro    Buscar    FAQ    Registrarse    Conectarse


Publicar nuevo tema  Responder al tema 
Página 1 de 1
 
 
Control De Errores Solucionado Pero No Conforme
Autor Mensaje
Responder citando   Descargar mensaje  
Mensaje Control De Errores Solucionado Pero No Conforme 
 
Hola, compañeros del foro. Estoy trabajando en una aplicación para generar reportes condicionales, una de sus funciones consiste en llenar una tabla con datos provenientes de otras que se cargan en comboboxes. El tema era que si no controlaba que seleccionaras en todos ellos un valor, la base de datos se llenaba con valores vacíos, lo cual en sí no es grave(en este caso,algunos valores Null están permitidos en la misma) . En fin, para evitarlo creé una rutina para que controle que todos los combos tengan un valor seleccionado. Mi primera opción fue recorrerlos con un bucle for each ,o usando la colección controls ,basándome en los distintos ejemplos del foro,  pero no conseguía hacerlo funcionar.
Finalmente, cree esta función
Private Function Control(cb As ComboBox)
  
  If cb.Current.text ="" Then
    valor = valor + 1
 
Endif
End

Y luego este sub pasándole los distintos combos como parámetros:
Private Sub controla_datos()
valor = 1
Control(cbxactor2)
Control(cbxactor)
Control(cbxactriz2)
Control(cbxactriz)
Control(cbxdirector)
Control(cbxgenero)

End

Em ambos casos valor es una variable de tipo integer declarada al principio del formulario. En el código donde se guardan los datos, antes de el try introduje el código a continuación:
  controla_datos()
 If valor <> 1 Then
  
   Message("Debe insertar todos los datos")

   Else 'aquí va el código que inserta los datos


 Funciona perfectamente, pero me parece un poco entreverado.  ¿Se os ocurre otra forma de hacerlo?
Gracias
Saludos
 




===================
Migrando desde visual basic, el Gambas de Ms
Mi blog gambero
 
Dani26 - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Control De Errores Solucionado Pero No Conforme 
 
Dani26:

Hombre, lo suyo es usar  for each, ¿puedes mostrar o contarnos, con más detalles, porque te fallaba?

Saludos
 




===================
Blog personal
Web: SoloGambas seleccion de articulos dedicados a Gambas
Visita el Curso de Gambas3 ¡¡¡Gratuito!!!
 
última edición por jsbsan el Viernes, 24 Agosto 2012, 22:13; editado 1 vez 
jsbsan - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Control De Errores Solucionado Pero No Conforme 
 
No sé porque fallaba, pero basado en el código de un mensaje reciente lo solucioné así:
Private Sub controla_datos()
 Dim ObjTemp As Object

valor = 0
 For Each ObjTemp In Me.Controls
    Select Object.Type(ObjTemp)
      Case "ComboBox"
         If ObjTemp.current.text = "" Then valor = valor + 1
          End Select
       Next
    End
 

Gracias.
 




===================
Migrando desde visual basic, el Gambas de Ms
Mi blog gambero
 
Dani26 - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Mostrar mensajes anteriores:    
 
Ocultar¡Este tema fue útil?

 

Elegir valoración:                       

Media de valoración Valoración mínima Valoración máxima Número de valoraciones
0.00 0 0 0
 
OcultarTemas parecidos
Tema Autor Foro Respuestas último mensaje
No hay nuevos mensajes Control De Errores soplo General 0 Lunes, 14 Septiembre 2009, 18:19 Ver último mensaje
soplo
No hay nuevos mensajes Control De Errores Global GambasLinux Aplicaciones/Fragmentos de Código 5 Jueves, 25 Febrero 2010, 21:02 Ver último mensaje
fabianfv
No hay nuevos mensajes Control De Errores En Una Aplicación De C... Shell General 7 Jueves, 10 May 2018, 08:38 Ver último mensaje
Shell
No hay nuevos mensajes WebBrowser ¿Existe Algun Control De Este ... GambasLinux Controles/Librerías/Componentes 3 Martes, 23 Febrero 2010, 03:07 Ver último mensaje
GambasLinux
 

Publicar nuevo tema  Responder al tema  Página 1 de 1
 

Usuarios navegando en este tema: 0 registrados, 0 ocultos y 0 invitados
Usuarios registrados conectados: Ninguno


 
Lista de permisos
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
No puede descargar archivos
No puede publicar eventos en el calendario