The
following instructions are based on a field called Date that is enter in a Table
and corresponding Form.
++++
Open
your Form Design View. Add an ActiveX Calendar Control by going to Insert Active
X Control and selecting the Calendar Control.
Right
Click on the Calendar and select Properties. Change the Name to Calendar and set
Visible to No. Close the Calendar Properties Dialog Box.
Select
Code from the View Menu and add the following into Code:
Private
Sub Calendar_Click()
' Set OrderDate to the selected date and hide the calendar.
Date.Value = Calendar.Value
Date.SetFocus
Calendar.Visible = False
End Sub
Private Sub
Date_Click()
' Show Calendar and set its date.
Calendar.Visible = True
Calendar.SetFocus
End Sub
