Calendar control help - it won't send the value on the click event

[ciskris]

I am having trouble with a calendar control on a form that pops-up when a user enters a date text box. First I am getting an error about the on load event for the form because that is where I set the date for the calendar to today's date. Then once I cancel the error message, it does put the date as today's date. But it does not send the value of the date that is clicked to the text box if the user is choosing a different date. Please advise and I will post the code as follows:

Private Sub Form_Load()
Calendar.Value = Date

Private Sub Calendar_Click()
txtDate.value = calendar.value

Please help anyone!!!! Thanks in advance.

 

[asiandoll]

Private Sub Form_Load()
Calendar.Today
End Sub

Private Sub Calendar_Click()
Me!TxtDate = Calendar.Value
end sub

This should work... Hope that I help you with your prob..
Inform me if it doesn't work...