[RESUELTO] Valor Predeterminado Campo tipo Fecha

[jcarlos924]

Buenas tardes a todos:

He buscado en el foro y los tutoriales que tenéis disponibles y no he encontrado lo que busco.

Simplemente, en una Tabla con un campo tipo Fecha[DATE] quiero poner como "valor predeterminado" la fecha actual que tenga el ordenador. He probado con Date(), Fecha(), =Date, Curdate(),... y en ninguno de los casos funciona.

Debo de fallar en algo, es evidente.

Gracias a todos.

[mauricio]

Hola...

El valor predeterminado en el diseño de la tabla no acepta formulas o funciones (por el momento), si vas a capturar los datos de tus tablas en un formulario, es trivial establecer la fecha actual como predeterminada en cada nuevo campo como te muestro en el ejemplo anexo...

Por favor, si esto responde tu pregunta, edita el primer mensaje de este hilo y agrega al principio del título la etiqueta [RESUELTO], de esta forma conseguiremos un foro más ordenado.

Saludos

[jcarlos924]

Muchas gracias.

La solución que me has dado es más que aceptable.
Además, la base de datos de ejemplo que me has enviado me sirve para seguir aprendiendo aún más.

Un abrazote.
José Carlos Pérez

[aventis]

Hola.

He utilizado esta macro con éxito pero me he encontrado con un problema:
Inesperadamente, al cambiar del formulario al subformulario, me dice que el campo es obligatorio, que lo rellene. Obviamente, el campo está relleno ya por la macro. La única manera de seguir es poner el cursor, escribir un espacio y borrarlo.

¿Cómo solucionamos esto?

[RMG]

Hola aventis,

Mira en este enlace.

viewtopic.php?f=33&t=4716

Saludos

[aventis]

Gracias Ramón, ahora sí funciona.

Por cierto, un pequeño "offtopic"... Creo que deberiáis de hacer un pequeño índice de hilos con las respuestas a las cosas que al final va a querer hacer todo el mundo, lease: esto, imprimir un informe por registro, poner botones, menús principales, consultas con fechas, etc. Nos ahorraríamos muchas búsquedas y vosotros mucho contestar a lo mismo.
Es una sugerencia.

Un saludo.

[RMG]

Aventis, gracias por la sugerencia, no se si en la extructura del foro esto es posible, pero a nivel personal ya lo tengo. Tengo una BD con las preguntas más frecuentes y las URL donde se encuentran, entonces lo que hago es copiarlas en las respuestas que doy.

Para el administrador - Ricardo, si es posible ponerla a disposicion de los usuarios, la puedo ceder al foro.

Saludos

[RGB-es]

Podría crearse en los foros de guías un tema con los enlaces formateados con código phpBB, algo del estilo

Código: Seleccionar todo   Expandir vistaContraer vista

[url=http://user.services.openoffice.org/es/forum/viewtopic.php?f=32&t=3223][RESUELTO] Valor Predeterminado Campo tipo Fecha[/url]

seguido de una pequeña descripción. Luego solo sería cuestión de poner ese tema como «pegajoso», lo cual lo mantendría en la parte alta de la lista.

[RMG]

Por mi parte OK, es un poco lo que yo tengo en mi BD, cuando veo un tema interesante y bastante solicitado, cuando esta resuelto me archivo la URL en un campo de la base, de donde lo copio cuando hace falta y lo pego en mis respuestas.

Saludos

[aventis]

Podría crearse en los foros de guías un tema con los enlaces formateados con código phpBB, algo del estilo

Código: Seleccionar todo   Expandir vistaContraer vista

[url=http://user.services.openoffice.org/es/forum/viewtopic.php?f=32&t=3223][RESUELTO] Valor Predeterminado Campo tipo Fecha[/url]

seguido de una pequeña descripción. Luego solo sería cuestión de poner ese tema como «pegajoso», lo cual lo mantendría en la parte alta de la lista.

Claro, esto es a lo que yo me refería.

un saludo

[aventis]

Hola. Pequeña aportación...

Por si alguien le sirve, he adaptado esta macro de FECHA ACTUAL PREDETERMINADA a un subformulario.

Código: Seleccionar todo   Expandir vistaContraer vista

Sub FechaActualSubFormulario(Event As Object)
Dim oFormulario As Object
Dim oSubFormulario As Object
Dim oGridSubformulario as Object
Dim oFecha As Object

oSubFormulario=Event.Source
oFormulario=oSubformulario.Parent
oGridSubformulario=oSubformulario.getByName("Grid")

If oSubFormulario.IsNew Then
oFecha=oGridSubFormulario.GetByName("datFecha")
oFecha.BoundField.UpdateDate(fFechaBD(Now))
End If
End Sub

'La función es la misma:
Function fFechaBD(Fecha As Date) As com.sun.star.util rem.Date
Dim FechaBD As New com.sun.star.util.Date
FechaBD.Year=Year(Fecha)
FechaBD.Month=Month(Fecha)
FechaBD.Day=Day(Fecha)
fFechaBD=FechaBD
End Function

A mi me funciona. Repasadlo si creéis que hay algo que se pueda mejorar, que es muy probable, ya que mi técnica para hacer macros se basa en hacer frankensteins con las que conozco y entiendo.

Un saludo