Sub prep()
On Error GoTo ErrorHandler
Dim db As DAO.Database
Dim timecards As DAO.Recordset
Dim myDate As Variant
Dim dated As Date
Set db = CurrentDb
Set rstprep = db.OpenRecordset("timecards")
rstprep.MoveFirst
myDate = InputBox("Enter New Week's Saturday Start Date in Format: MM/DD/YYYY")
Do Until rstprep.EOF
If rstprep!Field1 = "Dates" Then
rstprep.Edit
dated = DateValue(myDate)
rstprep!sain = dated
rstprep!suin = DateAdd("d", 1, dated)
rstprep!moin = DateAdd("d", 2, dated)
rstprep!tuin = DateAdd("d", 3, dated)
rstprep!wein = DateAdd("d", 4, dated)
rstprep!thin = DateAdd("d", 5, dated)
rstprep!frin = DateAdd("d", 6, dated)
rstprep.Update
End If
If rstprep!Field1 = "Customer" Or rstprep!Field1 = "Am" Or rstprep!Field1 = "Pm" Or rstprep!Field1 = "Daily" Or rstprep!Field1 = "Weekly" Or rstprep!Field1 = "TOTALS" Then
rstprep.Edit
rstprep!sain = ""
rstprep!saout = ""
rstprep!suin = ""
rstprep!suout = ""
rstprep!moin = ""
rstprep!moout = ""
rstprep!tuin = ""
rstprep!tuout = ""
rstprep!wein = ""
rstprep!weout = ""
rstprep!thin = ""
rstprep!thout = ""
rstprep!frin = ""
rstprep!frout = ""
rstprep.Update
End If
rstprep.MoveNext
Loop
'_________________________________
On Error GoTo ErrorHandler
ErrorHandlerExit:
Exit Sub
ErrorHandler:
If Err = 3021 Then ' no current record
Else
' MsgBox "Error No: " & Err.Number & "; Description: " & Err.Description
Resume ErrorHandlerExit
End If
End Sub