Populate Dates For Parameters Based On A String Parameter

Hello,



My basic goal is to try to simplify inputs for the user. I have 3 parameters: Begin Date, End DAte and Duration. Duration will contain 3 choices: All, 2 Years and Range and is meant to give them a shortcut to dates as described below:

All - Would automatically populate the start date to 10/01/2005 and an end date to current date

2 Years - Would automatically populate the start date to current date minus 2 years, and the end date to current date.

Range - Would allow the user to select any dates as desired.



I'm able to get the dates to populate based on the duration field using non-queried values based on the Duration value, but the problem is that if I want to allow them to select Range the calendar control is not available and a text box is displayed.



I've tried to create some code in the properties that would populate, but I keep getting that this item is Read Only. The code I've created is as follows:

public function populateDates(Duration) as String

Select Case Duration
Case = "Range"
Report.Parameters!pBeginDate = Report.Parameters!pBeginDate
Report.Parameters!pEndDAte = Report.Parameters!pEndDAte
Case = "All"
Report.Parameters!pBeginDate = #10/01/2005#
Report.Parameters!pEndDAte = Now().Today
case = "Two"
Report.Parameters!pBeginDate = DateAdd("yyyy", -2, Now().Today)
Report.Parameters!pEndDAte = Now().Today
end select
end sub


My only goal is to give the User the 3 choices, but still keep the calendar control available, and I can't seem to do this?



suggestion please!

Thanks!

Maureen