
Q:get current date and then create date range
Don't worry about the days. Use the month.
i.e. If Feb select all records with month Feb.
or set up the following
dim dTempDate as Date
dim dFromDate as Date
dim dToDate as Date
dTempDate = Format (date, "mm")
Select Case dTempDate
Case 1
dFromDate = "01/01/" & format (dTempDate , "yy")
dToDate = "31/01/" & format (dTempDate , "yy")
and so on
Get the idea?
Cheers
CW
Quote:
> I want to be able to get the current date and based upon that date
>create a date range for a report.
> Example:
> 'Get Current Date
> TxtCurrentDate.Text=Date
> 'Based upon current date, create date range for report
> 'If TxtCurrenctDate.Text=2/8/98 then create a report range of 2/1/98
>to 2/28/98
> ?
>Jereme