Access - Mostrar Fecha (Inicio de Año)

Mi pregunta es simple, como puedo en un cuadro de edición mostrar la fecha como inicio de año, por ejemplo:

Este año es 2008, quiero que me muestre 01/01/2008
Si el año cambia a 2009, quiero que me muestre 01/01/2009

Hay alguna función que haga esto, o como debe ser el código para poder hacerlo.

Saludos y Gracias!!!

Hola:

En las propiedades del Cuadro de Texto:

Formato: Fecha corta o tambien puedes poner: dd/mm/aaaa

Valor Prodeterminado: = Date()
Si tienes Access en español, Date cambiará el solo por: Fecha()

Saludos
Enrique

Ese comando te pone la fecha actual, no la fecha de inicio de año!!!

Cierto, no he leido bien tu pregunta. Creo que existe una función que lo hace. Si antes no te lo dice nadie, trataré de buscarla porque seguro que la tengo en algún lado.

Ya lo tengo. En el Módulo VBA del Formulario donde está el Campo pones el Evento "Al cargar" y una Función :

Option Compare Database
Dim FechaActual As Date, PriDiaAño As Date

'Evento Al Cargar
Private Sub Form_Load()
FechaActual = Date
Call BuscaPrimerDiaAño(FechaActual)
Me.CampoFecha = PriDiaAño
End Sub

'Función:
Function BuscaPrimerDiaAño(Primero As Date)
PriDiaAño = DateSerial(Year(Primero), 1, 1)
End Function

Saludos

Más fácil todavia si quieres, ahora sin Función:

Option Compare Database
Dim FechaActual As Date

Private Sub Form_Load()
FechaActual = Date
Me.CampoFecha = DateSerial(Year(FechaActual), 1, 1)
End Sub

Esto queda a gusto del consumidor.

Gracias!!!
Me diste una idea!!!
Solucione el problema de una manera más sencilla.

En origen de control del cuadro de texto puse:

=SerieFecha(Año(Ahora()),1,1)

Y listo.

Es lo mismo, solo que en modo diseño y por tanto en español, pero es exactamente igual. SerieFecha es el nombre de la Función DateSerial en inglés, o sea que no has descubierto nada nuevo.

Saludos

Jajajajajajajaja... no me referia al idioma sino a la cantidad de código, solo se necesito una línea. Pero bueno, muchas gracias por tu ayuda, sin ella no lo hubiera podido hacer tan facil y rapido. Nuevamente Gracias!!!

Si te entiendo, heaj, solo una línea y resuelto sin código, pero lo has puesto en la propiedad "Origen del control" y piensa una cosa, ¿ que harías si necesitaras que esa fecha se grabe en un Campo de la Tabla "Origen del registro" del formulario, por ejemplo para luego poder usarla en un informe ???. Puede que no sea tu caso, pero podría ser que lo necesitaras hacer y no podrías porque tienes el Origen del control ocupado con el cálculo.

Bueno, pero la verdad es que tiene solución (sin código) y es quitarlo del Origen del control y ponerlo en Valor predeterminado y sigue funcionando igual. Lo que pasa es que yo soy más partidario de usar código de VBA y siempre lo prefiero al modo diseño y además, como seguramente ya sabes, las propiedades que establezcas por código predominan y anulan a las que establezcas en diseño.

Un saludo y hasta pronto.
Enrique