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
Y luego este sub pasándole los distintos combos como parámetros:
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