Automated Rotating Schedule (Part deuce)

[CJ_London]

got there in the end

Download the attached - it should work for your version of Access

 

[mbhw99]

That's even better than what I imagined.

Thank you very much for your help!

 

[mbhw99]

@CJ_London, sorry to bother you again, but the boss has another request.

Is there a way to get the data made by the form to be saved, then I can bring the data up in a report?

There seems to be a loophole to where anyone can put a date in the form, and of course the schedule will display on the form, but the next week someone else can do the same, then the schedule will be off.

Thanks again for your time.

 

[CJ_London]

Not quite sure what you mean.

You can set up a report instead of a form - but you still need to input the date.

Ae you saying that you can select a week but others can only see what you have selected?

 

[mbhw99]

Not quite sure what you mean.

You can set up a report instead of a form - but you still need to input the date.

Ae you saying that you can select a week but others can only see what you have selected?

I'd like to keep using the form, but I want to save the results to a table to bring up a report.

The problem is that a new 6 week schedule can be made every day, which throws the pattern off.

I'm probably making it more complicated than it needs to be.

 

[CJ_London]

The problem is that a new 6 week schedule can be made every day

Whatever day you choose in a week, the code always calculates from the beginning of that week

I don't have the code any more but if you want to have it make a table, you can take a copy of the recordsource and convert it into a maketable query

 

[mbhw99]

Whatever day you choose in a week, the code always calculates from the beginning of that week

Doh. That is correct. What I meant was every week.

I don't have the code any more but if you want to have it make a table, you can take a copy of the recordsource and convert it into a maketable query

Alright made the query. Where do I put it in your code?

Private Sub SelDate_AfterUpdate()
Dim StartOfWeek As Date
Dim i As Integer

    StartOfWeek = DateAdd("d", -Weekday(SelDate) + 2, SelDate)
    For i = 1 To 6
       SFTblSchedule.Form.Controls("lbl" & i).Caption = StartOfWeek + (7 * (i - 1))
    Next i
    
End Sub