Access - Mostrar Fecha (Inicio de Año)

   
Vista:
Imágen de perfil de heaj

Mostrar Fecha (Inicio de Año)

Publicado por heaj (33 intervenciones) el 03/07/2008 17:40:37
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!!!
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

RE:Mostrar Fecha (Inicio de Año)

Publicado por Enrique (1299 intervenciones) el 03/07/2008 18:30:02
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
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
Imágen de perfil de heaj

RE:Mostrar Fecha (Inicio de Año)

Publicado por heaj (33 intervenciones) el 03/07/2008 19:34:54
Ese comando te pone la fecha actual, no la fecha de inicio de año!!!
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

RE:Mostrar Fecha (Inicio de Año)

Publicado por Enrique (1299 intervenciones) el 03/07/2008 19:47:25
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.
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

RE:Mostrar Fecha (Inicio de Año)

Publicado por Enrique (1299 intervenciones) el 03/07/2008 20:29:38
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
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

RE:Mostrar Fecha (Inicio de Año)

Publicado por Enrique (1299 intervenciones) el 03/07/2008 20:40:08
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.
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
Imágen de perfil de heaj

RE:Mostrar Fecha (Inicio de Año)

Publicado por heaj (33 intervenciones) el 03/07/2008 21:53:45
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.
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

RE:Mostrar Fecha (Inicio de Año)

Publicado por Enrique (1299 intervenciones) el 03/07/2008 23:05:00
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
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
Imágen de perfil de heaj

RE:Mostrar Fecha (Inicio de Año)

Publicado por heaj (33 intervenciones) el 04/07/2008 00:10:17
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!!!
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

RE:Mostrar Fecha (Inicio de Año)

Publicado por Enrique (1299 intervenciones) el 04/07/2008 16:40:19
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
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