set date depending on current time (1 Viewer)

[SDB]

Hi All

I have a form that needs to have the date automatically entered depending on time, I have it set on form load and new record, so far I have this but if I change the time to test it doesn't work??

Private Sub Form_Load()
DoCmd.GoToRecord , , acNewRec
If Mytime <= 1500 Then
Me!PostDate = Date
Else
Me!PostDate = Date + 1
End If
End Sub

Private Sub Form_Timer()
Me.Mytime.Requery
End Sub

Private Sub Command4_Click()
On Error GoTo Err_Command4_Click


DoCmd.GoToRecord , , acNewRec
If Mytime <= 1500 Then
Me!PostDate = Date
Else
Me!PostDate = Date + 1
End If

Exit_Command4_Click:
Exit Sub

Err_Command4_Click:
MsgBox Err.Description
Resume Exit_Command4_Click

End Sub

 

[RuralGuy]

So you simply want to use tomorrows date if it is after 3:00 in the afternoon? How do you set MyTime and what is it, a global variable?

 

[SDB]

So you simply want to use tomorrows date if it is after 3:00 in the afternoon?

yep, trying to work it out all day

[/QUOTE] How do you set MyTime and what is it, a global variable?[/QUOTE]
mytime is an unbound field which is set to look at the time constantly so that the postdate field is correct according to time/date

 

[RuralGuy]

Why not change this:
If Mytime <= 1500 Then
to:
If Hour(Time) < 15 Then

 

[SDB]

That worked. Thank you very much.

 

[RuralGuy]

That's great! If you want to include exactly 15:00 in the current date then you will want to change the logic slightly. Your previous code was <= 1500 and mine does not include 1500.