Access - problemas con secuencia en access

   
Vista:

problemas con secuencia en access

Publicado por jose maria josepreyes75@hotmail.com (89 intervenciones) el 29/05/2013 08:41:28
Hola, tengo unos checks y un formulario que estan dentro de un control de fichas, tiene varias paginas.......
en la pagina A hay un cuadro de texto, el cual recoje la fecha de nacimiento y esta vinculado a un valor dentro de una tabla como fecha corta.....
la cosa es calcular la edad, este seria el codigo que he usado:

'Calculo de la edad
Function Calcular_Edad(Fecha_Nacimiento As Variant) As Integer
Dim Años As Variant
' comprueba si el valor no es nulo
If IsNull(Fecha_Nacimiento) Then
Calcular_Edad = 0
Exit Function
End If

Años = DateDiff("yyyy", Fecha_Nacimiento, Now)

If Date < DateSerial(Year(Now), Month(Fecha_Nacimiento), _
Day(Fecha_Nacimiento)) Then
Años = Años - 1
End If

Calcular_Edad = CInt(Años)
End Function

lo deseado:
si este calculo fuera mayor a x y se "picara" uno de estos check en la pagina b, se deveria activar otro check en la pagina A
¿como lo haria?
gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

problemas con secuencia en access

Publicado por jose maria (89 intervenciones) el 29/05/2013 12:08:36
hola de nuevo, este es el codigo modificao, hay que depurarlo un poco

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub m12m_Click()
'comprueba >< 45 años
Dim age As Integer
age = Calcular_Edad(Me.nacimiento)
If age >= 45 And m12m = True Then
MsgBox "Quillo que viejo ere, con " & age & " años" & " y sin currar, ya te vale picha", vbInformation
End If
If Verificación37.Visible = False Then
MsgBox "Camviara a verdadero", Me.Verificación37.Visible = True
 
Me.Verificación37.Visible = False
End If
If Verificación37.Visible = True Then
MsgBox "Camviara a Falso", Me.Verificación37.Visible = False
 
Me.Verificación37.Visible = True
End If
 
 
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar