Smillie

,
insert the Calendar Control as, say ,"MyCalendar" anywhere on you form and
use the On Current event:
+++++++++
Private Sub Form_Current()
If IsNull(Me.SomeDate) Then
With Me.MyCalendar
.Year = Year(Date)
.Month = Month(Date)
.Value = Date
End With
Else
With Me.MyCalendar
.Year = Year(Me.SomeDate)
.Month = Month(Me.SomeDate)
.Value = Me.SomeDate
End With
End If
End Sub
++++++
'(you cannot use an IF statement *inside* a With statement)
If you want to change the date using the calendar, eg clicking on a date on
your Calendar control, use the After Update event of the Calendar:
++++++
Private Sub MyCalendar_AfterUpdate()
Me.SomeDate=Me.MyCalendar.Value
End Sub
+++++
Regards/JK
"Smiles" <(E-Mail Removed)> wrote in message
news:fp0ch.18737$(E-Mail Removed)...
> Good day
>
> I have a Access database with a record for each day of the year each
> records has about 130 data elements
>
> From this I have created 12 forms which contain the relative data elements
>
> I would like to place the default calendar at the top of each form
> click on a day on the calendar had have the form bring up that days
> records so the can be updated or verified
> can you tell me where to start
>
> thanks
>