Insert A Calendar Control
Important Note: The Active-X Calendar Control can be registered for later versions of Access, but it will only work on Office 2010 32-bit. Microsoft does not support the 32-bit Active-X controls in Office 2010 64-bit, and there is no official replacement.
See this article:
Calendar Control Only Works On 32-Bit Office
Date selection can be accomplished through Microsoft's Active-X Calendar Control. To use this control, create a form (or use a space in an existing form). Then follow these steps:
(1) View the toolbox
(2) Click on the "More Controls" Icon
(3) Select (for Access 2003) the Calendar Control 11.0 (If running XP)
(4) Drag a rectangle on the form to place the calendar
(5) Display the properties
(6) Name the Calendar Control (For this example, we will call it "ReportCutoffDate")
(7) Go to the "Event" section of the properties display
(8) Select the "Enter" event, and then select the three dots
(9) Go to the Code Builder
(10) This will create a VBA Subroutine to handle the "Enter" event
(11) The usual code in this section will be to assign the current date to the calendar control
(12) Then in the same VBA screen, create a "Click Event" Subroutine as illustrated below.
(13) The "Click" event cannot be created from the properties screen code builder
(14) Capture the date clicked by the user in the "Click Event"
Program Code
Option Compare Database Option Explicit Private Sub ReportCutoffDate_Enter() ' **************************************************** ' ReportCutoffDate is the Name of the Calendar Control ' **************************************************** ' The Code Below Will Set The Calendar's Date To ' Today's Date - This Event is Triggered By Opening ' The Form That Contains The Calendar Control ' **************************************************** ReportCutoffDate.Value = Date End Sub Private Sub ReportCutoffDate_Click() ' **************************************************** ' The Click Event Is Triggered When The User Clicks ' A Day in the Calendar. The Code Below will ' Display The Date On A Form Label ' **************************************************** txtReportDateSelected.Caption = "Date: " & ReportCutoffDate.Value End Sub