Contar campos vacíos en formulario
Hola,
El tema es muy fácil de explicar: Formulario con 5 campos tipo fecha, pueden estar rellenos ninguno, todos o varios. En el formulario existe otro campo (numérico) que indica cuantos de esos campos fecha están rellenos: 0 si no hay ninguno relleno, 5 si todos, etc.
¿Cómo lo hago? ¿Ideas?
Gracias
El tema es muy fácil de explicar: Formulario con 5 campos tipo fecha, pueden estar rellenos ninguno, todos o varios. En el formulario existe otro campo (numérico) que indica cuantos de esos campos fecha están rellenos: 0 si no hay ninguno relleno, 5 si todos, etc.
¿Cómo lo hago? ¿Ideas?
Gracias
1 respuesta
Respuesta de fibonnaci
1
Pon un código...
Private Sub Cmd_Calcular_Click()
Dim n as byte
If IsDate(Fecha1) Then n=1
If IsDate(Fecha2) Then n=n+1
If IsDate(Fecha3) Then n=n+1
If IsDate(Fecha4) Then n=n+1
If IsDate(Fecha5) Then n=n+1
msgbox "hay " & n & " FECHAS en este registro"
End Sub
Private Sub Cmd_Calcular_Click()
Dim n as byte
If IsDate(Fecha1) Then n=1
If IsDate(Fecha2) Then n=n+1
If IsDate(Fecha3) Then n=n+1
If IsDate(Fecha4) Then n=n+1
If IsDate(Fecha5) Then n=n+1
msgbox "hay " & n & " FECHAS en este registro"
End Sub
