Dim i As Integer
i = 1
' Input 14 days Timesheet dataset
Do While i <= 14 'this will do x rotations
For i = 1 To 14
With Me
CurrentDb.Execute "INSERT INTO tblTimesheets(Given_Name, Family_Name, Employee_ID, fortnightending," & _
"TransDate, Start, Lunch, Other, Finish, Project, Class...