Re: Insertar Fecha actual automaticamente en un campo de formulario

[Ju@nK [MVP 2006/9]]

¿en donde haces click?

me.controlX = date()

--
--
**
Salu2/Regards
Ju@nK [MVP Access] 2006/09
[DCE2003 ***] + VSTO [DCE2005 **]
http://juank.mvps.org http://www.juank.es
Correos personales o preguntas particulares en mi grupo
http://groups.google.es/group/juank?hl=es
www.juank.tk
¿Que es un MVP?, entérate en http://mvp.support.microsoft.com
**
"JuanJo" <Jua...@discussions.microsoft.com> escribió en el mensaje
news:965E9CC2-2ADE-4D5B...@microsoft.com...
> Insertar Fecha actual automaticamente en un campo de formulario al hacer
> click!

[JuanJo]

Hola! gracias por tu respuesta! La idea es que, al hacer click en el campo
fecha, se inserte la fecha actual automaticamente.

Gracias y saludos!

[julian-vlc-sp]

===========================================
¡Importante!: Colabora con el grupo.Contesta a este mensaje
y dinos si te sirvió o no la respuesta dada. Muchas gracias.
===========================================

Prueba con algo parecido a:

Private Sub Texto0_DblClick(Cancel As Integer)
If IsNull(Me.Texto0) Then
Me.Texto0 = Date
End If
End Sub

SALUDOS.
Julián-Valencia-España
http://www.tinyurl.com/julianvalencia

"JuanJo" <Jua...@discussions.microsoft.com> escribió en el mensaje

news:4FC22F43-E585-436E...@microsoft.com...
> Hola, ya lo resolvi con el dato que me pasaste! gracias!
>
> Ahora me surge otra duda, como evito que se sobreescriba un campo que ya
> poseia la fecha de otro dia? es decir, quiero que sólo se autoinserte en
> aquel campo que esta vacio!!
>
> gracias por tu invaluable ayuda!
> Un abrazo,
>
> JuanJo

[JuanJo]

Hola Julian, gracias por tu respuesta:

Te comento que no he logrado que funcione el codigo que escribiste. Por
ejemplo, he reemplazado dblclick por Click y la parte que dice "(Cancel As
Integer)" me da error de codigo ... por qué sucede esto?

He probado con esto y funciona, pero me sobreescribe con otra fecha en los
campos ya usados...

Private Sub Texto16_GotFocus()
If Texto16 <> 0 Then
[Texto16] = Date
End If
End Sub

Private Sub Texto16_Click()
Me.Texto16 = Date
End Sub

Tambien probe con esto:

Private Sub Texto16_Click()
If IsNull(Me.Texto16) Then

Me.Texto0 = Date
End If
End Sub

... y directamente no me funciona...

Espero me puedas orientar un poco
Gracias!!

[Emilio]

--------------------------------------------------------------------------

¡Importante!: Colabora con el grupo.Contesta a este mensaje y dinos si te
sirvió o no la respuesta dada. Muchas gracias

--------------------------------------------------------------------------
Hola!
por que no puedes modificar los parámetros originales de los eventos a tu
capricho, si quieres cambiar de evento, deja que sea Access quien genere el
código del evento luego tu le añades lo que quieras.

Saludos a tod@s
Emilio [MS-MVP Access 2006/9]
miliuco56 ALGARROBA hotmail.com
http://www.mvp-access.com/foro
http://www.mvp-access.es/emilio

"JuanJo" <Jua...@discussions.microsoft.com> escribió en el mensaje

news:AA42E0C4-E195-4DE8...@microsoft.com...

[JuanJo]

Ya me anduvo perfecto! habia cometido un error yo, Gracias!!!

[julian-vlc-sp]

===========================================
¡Importante!: Colabora con el grupo.Contesta a este mensaje
y dinos si te sirvió o no la respuesta dada. Muchas gracias.
===========================================

:-)

SALUDOS.
Julián-Valencia-España
http://www.tinyurl.com/julianvalencia

"JuanJo" <Jua...@discussions.microsoft.com> escribió en el mensaje

news:FB982961-7FFE-4A43...@microsoft.com...

[julian-vlc-sp]

===========================================
¡Importante!: Colabora con el grupo.Contesta a este mensaje
y dinos si te sirvió o no la respuesta dada. Muchas gracias.
===========================================

:-)

SALUDOS.
Julián-Valencia-España
http://www.tinyurl.com/julianvalencia

"Emilio" <miliuco56 ALGARROBA hotmail PUNTO com> escribió en el mensaje
news:OvNcVEln...@TK2MSFTNGP04.phx.gbl...

[Ramiro Gatti]

Hola, como hiciste? me interesa lograr lo mismo