Build and pass a date

[Art Wrok]

I need a simple vba procedure to capture a year and a month from lists on a form and use them to return two dates, one for the first day of the month and one for the last day of the month, to text boxes on the form.
The controls are named: lstYears, lstMonths, txtStrtDt, txtEndDt

[June7]

Expressions in textboxes:

=DateSerial([lstYears], [lstMonths], 1)

=DateAdd("m",1,DateSerial([lstYears], [lstMonths], 1))-1

[Art Wrok]

Thank you June7. That works! Now, as you might imagine, that is not the end. The reason for getting the dates is to pass them to a Report which I am able to do. But I found out something about reports. When I first created the report its data source was a table and opening the report showed all records in the table. Next I wrote a query that said "SELECT * FROM TABLE" which also shows all records. Then I added a WHERE Clause that said WHERE StartDate = Forms!MyForm!txtStrtDt AND EndDate = Forms!MyForm!txtEndDt. This allows me to show only selected records in the report. The problem is that when the date text boxes on the form are not populated the report shows No records instead of all. There are actually other controls on the form to select criteria and other parts of the WHERE Clause and unless all controls have a value the report shows nothing. I would like to put some kind of conditional logic in it that says if no criteria selected then show all records or else if one or more control has criteria then filter the report accordingly. Is this possible?

[June7]

review http://allenbrowne.com/ser-62.html

[Art Wrok]

Thanks again. This looks like the solution.