Calender 10.0

T

Tom

I would like to use a calender incomjunction with my query. I have a date
field and a text field in this query. I now use a "Between [Start Date] and
[End Date] in the date field(CompletedDate). The following is how the code is
written in the calender.

Private Sub cmdDisplayRange_Enter()
Dim dt As Date
Dim intRange As Integer

dt = Me!calmyCalender.Value
intRange = Me!txtRange.Value
Me!txtStartDate = dt
Me!txtEndDate = DateAdd("d", intRange, dt)
End Sub
 
Top