Calendar select date record

[Smiles]

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

 

[Guest]

Why don't you base your form records on a query that will prompt user to
enter a date window for the date field you choose. Then the form will open
only showing records in the specified date window.

 

[JK]

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]

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

Thank you for the advise but I only have these options to set a value of
the date

on update
on enter
on exit
on get focus
on lost focus

where do I put your code

thanks

 

[JK]

Opps Smiles, my fault.

On Exit should do it.

Regards
Jacob