Validación de fechas en formularios access
Hola, tengo un formulario en access donde en un campo "Fecha Inicio" se agrega la fecha y otro campo llamado "01" que es un campo libre, pero al abrir el formulario se encuentra dehabilitado. La idea es que dependiendo de la fecha puesta en el campo "Fecha Inicio" se habilite o se mantenga el campo deshabilido "01"
Esto es lo que tengo, pero no funciona..
Private Sub Fecha_Inicio_Change()
If IsDate("Fecha Inicio") > #1/1/2012# Then
[01].Enabled = True
Else
[01].Enabled = False
End If
End Sub
Ojala me puedas ayudar, gracias!
Esto es lo que tengo, pero no funciona..
Private Sub Fecha_Inicio_Change()
If IsDate("Fecha Inicio") > #1/1/2012# Then
[01].Enabled = True
Else
[01].Enabled = False
End If
End Sub
Ojala me puedas ayudar, gracias!
1 Respuesta
Respuesta de Neckkito Nck
1
Prueba con este código ligeramente modificado:
...
Private Sub Fecha_Inicio_Change()
Dim miFecha as Variant
miFecha=me.[Fecha Inicio].Value
If IsDate(miFecha) then
If miFecha> #1/1/2012# Then
Me.[01].Enabled = True
Else
Me.[01].Enabled = False
End If
Else
Me.[01].Enabled = False
End If
End Sub
...
Ojo! He dado por supuesto que tu campo se llama [Fecha Inicio]. Por si no lo sabes, este nombre se refiere al que puedes encontrar, si sacas las propiedades de ese campo, en la pestaña Otras->Nombre. Si tuvieras ahí otro nombre o bien se lo cambias por este o bien modificas el código en función del nombre que hubiera.
Otra cosa, que suena un poco "rara": el campo se te habilitará a partir del día 02/01/2012, así como lo tienes en el código. Si quieres que se te habilite con el 01/01/12 tienes que añadir un igual después del mayor que, de manera que la línea te debe quedar:
If miFecha>= #1/1/2012# Then
Y eso es todo. Ya me dirás qué tal. Un saludo,
...
Private Sub Fecha_Inicio_Change()
Dim miFecha as Variant
miFecha=me.[Fecha Inicio].Value
If IsDate(miFecha) then
If miFecha> #1/1/2012# Then
Me.[01].Enabled = True
Else
Me.[01].Enabled = False
End If
Else
Me.[01].Enabled = False
End If
End Sub
...
Ojo! He dado por supuesto que tu campo se llama [Fecha Inicio]. Por si no lo sabes, este nombre se refiere al que puedes encontrar, si sacas las propiedades de ese campo, en la pestaña Otras->Nombre. Si tuvieras ahí otro nombre o bien se lo cambias por este o bien modificas el código en función del nombre que hubiera.
Otra cosa, que suena un poco "rara": el campo se te habilitará a partir del día 02/01/2012, así como lo tienes en el código. Si quieres que se te habilite con el 01/01/12 tienes que añadir un igual después del mayor que, de manera que la línea te debe quedar:
If miFecha>= #1/1/2012# Then
Y eso es todo. Ya me dirás qué tal. Un saludo,
