Quote Originally Posted by SamT View Post
Arrgh!

When you see what that code is doing, you will see the answer.



Dim NextAppDate As Date

If TextBoxOther = "" Them
   NextAppDate = maxDate
Else
   NextAppDate = DateAdd(MaxDate, ww, Clng(TextBoxOther)
End If
I tried this but entering a number in the other TextBox does not advance the date in ApptDateTextBox. What I want it to do is take the number that is entered in WeeklyIntervalTextBox and multiply it by 7 then add it to the date that was returned. By doing this, as an example, if 11/1/2019 is returned in ApptDateTextBox and "4" is entered in WeeklyIntervalTextBox then I want to take the "4" and multiply it by 7 (for days in the week, which would be 28) then add that 28 to the date returned in ApptDateTextBox which would give a final result of 11/29/2019. Also out of curiosity, what is the "ww" and "Clng"? Thank you for your help.

NextAppDate = DateAdd(MaxDate, ww, Clng(weeklyintervaltextbox)