have access enter a date automatically that is not the current date

[Becker]

I have a form where employees are typing in information throughout a shift and that information is save to a table called "anodic unload sheet". It automatically inserts the date into a field. We have a night shift from 6:00PM through 6:00AM and I want the date inserted into the table to change at the end of the shift instead of midnight. Is this possible? Thanks in advance.

[MarkP2012]

modify the table design. set the default to a user-defined function that changes the default value based on the current time. In that function check the time and depending on the time value set the default date.

[Becker]

I just barely discovered a way to do this. Here is what I did.

If Me.Time.Value > "12:00:01 AM" And Me.Time.Value < "6:00:00 AM" Then
Me.date.Value = DateValue(Now - 1)
Else: Me.date.Value = DateValue(Now)
End If

Thanks for your suggestion anyway though.

[Rabbit]

Use the iif() function to return the prior day if the time is before 6 am.

[NeoPa]

The following code within the SQL of your query will do exactly what you require :

DateValue(DateAdd('h',-6,Now()))