Escribir N/A en campo fecha
Publicado por Irene (30 intervenciones) el 24/02/2012 22:03:55
Buenas tardes
Estoy intentando crear una funcion para que el usuario pueda escirbir No aplica en un campo de fecha y convertir este No aplica en una fecha que no vea el usuario. Con Access 2003 si funcionaba pero no consigo que lo haga ahora.
Por favor, alguien sabe como hacer algo parecido o si hay algun error ahora en este código?
Muchas gracias de antemano,
Function NA(Campo As Variant) As Variant
'Pone N/A cuando la fecha es 01/01/1900
If IsNull(Campo) Then
NA = Null
Else
If Campo = #1/1/1900# Then NA = "N/A" Else NA = Format(Campo, "dd/mm/yy")
End If
End Function
Estoy intentando crear una funcion para que el usuario pueda escirbir No aplica en un campo de fecha y convertir este No aplica en una fecha que no vea el usuario. Con Access 2003 si funcionaba pero no consigo que lo haga ahora.
Por favor, alguien sabe como hacer algo parecido o si hay algun error ahora en este código?
Muchas gracias de antemano,
Function NA(Campo As Variant) As Variant
'Pone N/A cuando la fecha es 01/01/1900
If IsNull(Campo) Then
NA = Null
Else
If Campo = #1/1/1900# Then NA = "N/A" Else NA = Format(Campo, "dd/mm/yy")
End If
End Function
Valora esta pregunta
0