once again u master the art of adding pointless procedures in your coding that keeps amazing me as u go further in your project, if this code is to be wrote it'd look like this:
Dim dtfriday AS Date
dtfriday = Forms![frmTimesheetManager]![txtDay6]
me.project1 = DLookup("[Project ID]"...