Access - Colocar fecha fija

Hola a todos! Tengo una duda sobre la hora de colocar una fecha. A ver, tengo dos campos (FechaDocumeno y PróximaRevisión), en uno coloco una fecha al azar y en el otro debería de establecerme una fecha fija (que será - 30/06/y el año del otro campo - ó 31/12/y el año del otro campo -. Veamos un ejemplo:

Si en el campo FechaDocumento colocase 01/05/08, en el campo PróximaRevisión debería ir 30/06/08.

Si por otro lado colocase en el campo FechaDocumento 16/07/09, me pusiera en el campo PróximaRevisión 31/12/09.

¿Cómo puedo hacer eso? Os agradezco vuestra ayuda.

Hola Lourdes.

Si lo que quieres es dar la proxima cita, por ejemplo 30 dias despues a la fecha documento. puedes poner en Proximarevision lo siguiente.

=[FechaDocumento]+30.

De esta forma siempre aumentará en 30 dias la fecha de la proxima revisión.

Espero te sirva de ayuda..
Un saludo...

Hola Paco, no es mi idea, tan solo quiero que coloque esas dos fechas fijas, es decir, 30 de junio del año que sea y 31 de diciembre del año que sea.

Por lo que tan solo variará el año, sienod el día y mes siempre fijos.

Gracias.

Segun me explicas la Fechadocumento, ¿ siempre la introduces tu?.

Hola Lourdes:
Prueba colocando este código en el Evento "Después de actualizar" del campo "FechaDocumento" :

Private Sub FechaDocumento_AfterUpdate()
If Val(Format(FechaDocumento, "mm")) < 7 Then
ProximaRevision = "30/06/" & Format(FechaDocumento, "yyyy")
Else
ProximaRevision = "31/12/" & Format(FechaDocumento, "yyyy")
End If
End Sub

Lo que hace este código es extraer de "FechaDocumento" el valor numérico del mes mediante la Función "Val" y comprueba si es menor o mayor que 7 (Julio). Si es menor que 7 le da a "ProximaRevision" la fecha 30/06 más el año de "FechaDocumento" y si es mayor que 7, le da valor 31/12 más el año de "FechaDocumento".

En caso de que el campo "ProximaRevision" se deba guardar en una Tabla y/o te vaya a servir para hacer cálculos con fechas, es imprescindible que además de ser de típo Fecha/Hora en dicha Tabla, en los dos campos del formulario tienes que poner en la Propiedad Formato: dd/mm/aaaa ( te aconsejo poner esto en lugar de seleccionar "Fecha corta" en esa propiedad ).

Suerte y saludos
Enrique

Gracias Enrique por tu respuesta pero yo no soy capaz de dar con la tecla, ya que al hacer ésto se me da un error y se marca en amarillo

ProximaRevision = "31/12/" & Format(FechaDocumento, "yyyy")

Qué hago mal?

Ahora sí Enrique, un error mío al pasar el código. Al fin me he dado cuenta donde estaba.

Como siempre son maravillosas tus respuestas. Muchisimas gracias !!!!!

Correcto, esa siempre la pongo yo, y la otra aparecerá de manera automática (siendo o la de junio o la de diciembre, dependiente si ha sobrepasado ese valor)

Lourdes. utiliza el código que te propone Enrique, funciona tal como tu lo deseas.
Un saludo..

Concretamente me dice que se produce el error '-2147352567 (80020009)'

Creo que se debe a que tu Campo lo tienes con acentos (PróximaRevision) y yo te lo he puesto sin ellos y Access no lo encuentra. A mi no me gusta poner acentos, ni espacios, ni otros signos en los nombres de objetos y campos porque suelen dar problemas al llamarlos desde VBA.

Prueba a ver ahora.
Enrique

Ahora sí Enrique, un error mío al pasar el código. Al fin me he dado cuenta donde estaba.

Como siempre son maravillosas tus respuestas. Muchisimas gracias !!!!!