If DayName = "Saturday" Then Me.[Return Date1] = DateAdd("d", -1, Date)
If DayName = "Sunday" Then Me.[Return Date1] = DateAdd("d", 1, Date)
Needs to be
If DayName = "Saturday" Then Me.[Return Date1] = DateAdd("d", 2, Return Date1)
If DayName = "Sunday" Then Me.[Return Date1] = DateAdd("d"...