Convert to VBA code?

[Darrell Childress]

I originally had a button that, when clicked, would run a macro. I now
need to write the VBA code for that instead, and need help. Here's what
I am trying to accomplish:

My form contains a field called TimeStop which contains Date/Time in the
format of 3/22/10 10:05:06 AM
I need to populate a field called DateStop and the value of that field
will depend on the TIME portion of TimeStop. If TimeStop is between
12:00:00 AM (midnight) and 5:00:00 AM, then I need DateStop to be the
current date - 1. Otherwise, I need it to be the current date.

Here's my stab at it, but I don't know the correct syntax to use

If TimeValue(Me.TimeStop) is between #12:00:00 AM# and #5:00:00 AM" Then
Me.DateStop = Date()-1
Else
Me.DateStop = Date()
End If

Thanks for any help,
Darrell

 

[Tom van Stiphout]

On Mon, 22 Mar 2010 10:20:22 -0400, Darrell Childress

Pretty close.

If TimeValue(Me.TimeStop) < #5:00:00 AM# Then
Me.DateStop = DateAdd("d", -1, Date())
Else
Me.DateStop = Date()
End If

-Tom.
Microsoft Access MVP

 

[Daryl S]

Darrell -

You can use Tools | Macro | Convert Macro to Visual Basic to do this.

 

[Darrell Childress]

works great, thanks Tom. I thought I was close.

On Mon, 22 Mar 2010 10:20:22 -0400, Darrell Childress

Pretty close.

If TimeValue(Me.TimeStop)< #5:00:00 AM# Then
Me.DateStop = DateAdd("d", -1, Date())
Else
Me.DateStop = Date()
End If

-Tom.
Microsoft Access MVP

 

[Darrell Childress]

Thanks, Daryl. I had just tried Tom's suggestion, which worked. I need
to do this to another macro, and I will try this...I never knew that
existed.