SETVALUE MACRO TO VBA 1

[jailerg013]

Can someone tell me how I can double_click and get a date control to display the current date using VBA. I used a macro to do this on the Double_click event but I want to use VBA. Please Help!

 

[MakeItSo]

Private Sub yourControl_DblClick()
Me!yourDateTextbox=Date()
EndSub

Short thing, isn't it? ;-)
MakeItSo

Andreas Galambos
EDP / Technical Support Specialist
Bowne Global Solutions Wuppertal, Germany
(andreas.galambos@bowneglobal.de)
HP:

http://home.arcor.de/andygalambos

 

[jailerg013]

I tried this

Private Sub Date_DblClick(Cancel As Integer)
Me!Date = Date
End Sub

but it still isn't working. The

()

after date keeps disappearing after I move to the next line.

 

[MakeItSo]

Sure - this causes problems, cause you named your textbox "Date", which is a reserved word in Access. Rename it to "DatField" or "myDate" or even "Today".
If this doesn't solve all of it, try this:
Me!myDate=DateValue(Now())
(Although it means practically the same as Date(), this should function since it works with a different format...)

Keep rockin'...

MakeItSo

Andreas Galambos
EDP / Technical Support Specialist
Bowne Global Solutions Wuppertal, Germany
(andreas.galambos@bowneglobal.de)
HP:

http://home.arcor.de/andygalambos

 

[jailerg013]

Makeitso, Thank you!! Thank you!!
I know there wasn't a whole lot to that, but I've been struggling with it for a while. You're awsome!

 

[MakeItSo]

It's mostly the simple things that make us stumble...