Auto-Populate Timesheet

[Serious Sam]

Hello,
I am creating a Timesheet Database and am trying to automatically populate the data entry form with 'Normal' hours.

The set-up of the data entry form is:

Main form - frmTimeCard - has two fields.
Employee Name
WeekEndingDate

Sub Form - frmTimeCardHours - is a datasheet form with the fields:
Date
PayType (Ordinary hours, O'time, Annual Leave etc)
StartTime
EndTime
Break
Hours (= EndTime - StartTime - Break)

After the user has enter the Name and WeekEndingDate on the main form,
I would like a button on the main form that will populate the first five lines on the datasheet subform with normal hours.
(eg PayType= OrdinaryHrs, Start = 9:00, End = 17:00)
The dates on these five lines would be the five weekdays leading up to and including the WeekEndingDate.

So what I'm searching for is some hints and/or code to populate fields on a datasheet subform.

Any help much appreciated.

 

[VicRauch]

Me.frmTimeCardHours.Form.StartTime = #0900#
Me.frmTimeCardHours.Form.EndTime = #1700#

Of course this would be inside the loop.

For x = 4 to 0 step -1
  Me.frmTimeCardHours.Form.[Date]= DateAdd("d", -x, WeekEndingDate)
  ...
  ...
Next x

Ops, that will not do it. You will need to write the data to the table the subform is using as it's source, then requery the subform. The above code has the right idea in it, you just need to write the the table rather than write to the subform.

There is a way to move between subform records within code, but unless you REALLY need to do it, it is much easier to write to the table, then requery.