Dynamic Tab Names on Access Form?

[ARW17]

What I'd like to do is show employees their schedule for the week to come. My thought is to have them enter the date of their choice and then have tab 1 show their schedule for that date, have tab 2 show their schedule for the next day, etc. I'd have the same subform on each of the tabs, it would just update by day. Is it possible to have the tabs change names in this way?

 

[ARW17]

Figured it out: VBA
My tab names are Today, TodayPlus1,...TodayPlus4. You won't need most of this code if you want to include Saturday and Sunday. I got rid of them.

'Name Tabs by date
Today.Caption = (Format([TxtBxDate], "dddd mm/dd"))
TodayPlus1.Caption = (IIf(Weekday([TxtBxDate]) = 6, Format(DateAdd("d", 3, [TxtBxDate]), "dddd mm/dd"), Format(DateAdd("d", 1, [TxtBxDate]), "dddd mm/dd")))
TodayPlus2.Caption = (IIf(Weekday([TxtBxDate]) = 6, Format(DateAdd("d", 4, [TxtBxDate]), "dddd mm/dd"), IIf(Weekday([TxtBxDate]) = 5, Format(DateAdd("d", 4, [TxtBxDate]), "dddd mm/dd"), Format(DateAdd("d", 2, [TxtBxDate]), "dddd mm/dd"))))
TodayPlus3.Caption = (IIf(Weekday([TxtBxDate]) = 6, Format(DateAdd("d", 5, [TxtBxDate]), "dddd mm/dd"), IIf(Weekday([TxtBxDate]) = 5, Format(DateAdd("d", 5, [TxtBxDate]), "dddd mm/dd"), IIf(Weekday([TxtBxDate]) = 4, Format(DateAdd("d", 5, [TxtBxDate]), "dddd mm/dd"), Format(DateAdd("d", 3, [TxtBxDate]), "dddd mm/dd")))))
TodayPlus4.Caption = (IIf(Weekday([TxtBxDate]) = 6, Format(DateAdd("d", 6, [TxtBxDate]), "dddd mm/dd"), IIf(Weekday([TxtBxDate]) = 5, Format(DateAdd("d", 6, [TxtBxDate]), "dddd mm/dd"), IIf(Weekday([TxtBxDate]) = 4, Format(DateAdd("d", 6, [TxtBxDate]), "dddd mm/dd"), IIf(Weekday([TxtBxDate]) = 3, Format(DateAdd("d", 6, [TxtBxDate]), "dddd mm/dd"), Format(DateAdd("d", 4, [TxtBxDate]), "dddd mm/dd"))))))
End Sub