Wayne,
I have changed the visual basic to the following
Private Sub Shift_AfterUpdate()
If Time >= #12:00:00 AM# <= #6:59:59 AM# Then
Date = Date - 1
End If
So that instead of using the shift option i am using time the entry was made but when i select a time eg. 20:30 and select nightshift...