Validacion de CheckBox en Subformularios
Publicado por Adriana Edith (1 intervención) el 02/04/2015 16:55:05
Hola buenos días,
Ante todo este foro me parece de gran aportación para quienes aun no tenemos mucha experiencia.
Mira el problema es….
Tengo un Formulario (Master) y dentro de esta tengo un SUBFORMULARIUO (MAster2) el sub esta en vista de Datasheet
Dentro del Subform tengo una columna que se llama INSTALADO que es un checkbox, tiene muchos registros…
Ya pude hacer que en el evento CLICK del INSTALADO si es true entonces en el formulario master e(el principal) un checkbox se habilite y un Text diga COMPLETO.
Yo lo que busco es que valide que en el Subformulario TODOS los Checkbox (instalado) estén en true, y hasta en ese momento se habilite el checkbox y el Text de Completo del formulario principal.
Si por lo menos uno está en falso (en el subform) entonces no se habilite.
Este es mi código.
Podrás por favor ser de gran ayuda para mi
Ante todo este foro me parece de gran aportación para quienes aun no tenemos mucha experiencia.
Mira el problema es….
Tengo un Formulario (Master) y dentro de esta tengo un SUBFORMULARIUO (MAster2) el sub esta en vista de Datasheet
Dentro del Subform tengo una columna que se llama INSTALADO que es un checkbox, tiene muchos registros…
Ya pude hacer que en el evento CLICK del INSTALADO si es true entonces en el formulario master e(el principal) un checkbox se habilite y un Text diga COMPLETO.
Yo lo que busco es que valide que en el Subformulario TODOS los Checkbox (instalado) estén en true, y hasta en ese momento se habilite el checkbox y el Text de Completo del formulario principal.
Si por lo menos uno está en falso (en el subform) entonces no se habilite.
Este es mi código.
1
2
3
4
5
6
7
8
9
10
11
Private Sub Instalado_Click()
Instalado.Enabled = False
Forms![Master]![Completo2] = "completo"
Forms![Master]![Completo] = True
Else
Forms![Master]![Completo2] = "incompleto"
Forms![Master]![Completo] = False
End If
End Sub
Podrás por favor ser de gran ayuda para mi
Valora esta pregunta
0
