Hi, I have today completed my first ever program for a friend which displays total hours worked for each day then adds them up.

Now I want to transfer this data to store in access. I did do a sample kind of thing last week with flexgrid which worked but i didn't write code! Itshowed me how to use this procedure but I have only gotten so far with this.

So what I have so far in flexgrid is the start time, end time and total hurs which I just want to transfer to access.

After a few hours searching I need help!

Could anyone help me please? Very limited knowledge on access but fast learner!

Thanks for reading

Brendan


MSFlexGrid1.TextMatrix(1, 0) = Format((DTPickersunstart.Value), "DD-MM-YY HH:nn")
MSFlexGrid1.TextMatrix(2, 0) = Format((DTPickermonstart.Value), "DD-MM-YY HH:nn")
MSFlexGrid1.TextMatrix(3, 0) = Format((DTPickertuesstart.Value), "DD-MM-YY HH:nn")
MSFlexGrid1.TextMatrix(4, 0) = Format((DTPickerwedsstart.Value), "DD-MM-YY HH:nn")
MSFlexGrid1.TextMatrix(5, 0) = Format((DTPickerthursstart.Value), "DD-MM-YY HH:nn")
MSFlexGrid1.TextMatrix(6, 0) = Format((DTPickerfristart.Value), "DD-MM-YY HH:nn")
MSFlexGrid1.TextMatrix(7, 0) = Format((DTPickersatstart.Value), "DD-MM-YY HH:nn")

MSFlexGrid1.TextMatrix(1, 1) = Format((DTPickersunend.Value), "DD-MM-YY HH:nn")
MSFlexGrid1.TextMatrix(2, 1) = Format((DTPickermonend.Value), "DD-MM-YY HH:nn")
MSFlexGrid1.TextMatrix(3, 1) = Format((DTPickertuesend.Value), "DD-MM-YY HH:nn")
MSFlexGrid1.TextMatrix(4, 1) = Format((DTPickerwedsend.Value), "DD-MM-YY HH:nn")
MSFlexGrid1.TextMatrix(5, 1) = Format((DTPickerthursend.Value), "DD-MM-YY HH:nn")
MSFlexGrid1.TextMatrix(6, 1) = Format((DTPickerfriend.Value), "DD-MM-YY HH:nn")
MSFlexGrid1.TextMatrix(7, 1) = Format((DTPickersatend.Value), "DD-MM-YY HH:nn")

MSFlexGrid1.TextMatrix(1, 2) = Lblsunsubtotal.Caption
MSFlexGrid1.TextMatrix(2, 2) = lblmonsubtotal.Caption
MSFlexGrid1.TextMatrix(3, 2) = lbltuessubtotal.Caption
MSFlexGrid1.TextMatrix(4, 2) = lblwedssubtotal.Caption
MSFlexGrid1.TextMatrix(5, 2) = lblthurssubtotal.Caption
MSFlexGrid1.TextMatrix(6, 2) = lblfrisubtotal.Caption
MSFlexGrid1.TextMatrix(7, 2) = lblsatsubtotal.Caption