Custom Calendar Control for MS Access

Custom Calendar Control for MS Access

MS Access by default provides inbuilt functionality to pick dates using calendar control; however it lacks few basic functionalities which makes selecting a date bit difficult. For example, if you want to select a date from year 2015 then you need to navigate multiple times to select correct date since you can move only one month at a time in MS Access calendar control. Looking at this common challenge, I have developed a custom calendar control in MS Access form which makes selection of date much easier

Excel Tricks

To use this control in your MS Access tool, follow below steps:

1. Save the following attachment in your system Custom Calendar Control
2. Open the MS Access tool where you want to use this calendar control
3. Select Access from External Data menu

Excel Tricks

4. Browse the file which you have downloaded and click on OK button

Excel Tricks

5. Under Forms tab select Calendar and click on OK

Excel Tricks

6. You will receive a confirmation message once import is complete, click on Close to proceed

Excel Tricks

Excel Tricks

7. Now the Custom Calendar Control is ready to use. To use it on the existing form (here it is Form1), open the form in design mode

Excel Tricks

8. Add a command button adjacent to the text box control where you want to show the selected date

Excel Tricks

9. Change the following properties of Command Button

Width: 0.3
Caption: Blank
Name: cmdSelectDate

Excel Tricks

10. In the Picture property of Command Button, select calendar

Excel Tricks

11. Create an On Click Event Procedure of Command Button

Excel Tricks

12. Click on ‘…’ to create the procedure in VBA screen

Excel Tricks

Excel Tricks

13. Add the following code in the click event procedure

    DoCmd.OpenForm "Calendar", acNormal
    If IsDate(txtDate.Value) = True Then
        Form_Calendar.LoadCalendarForm txtDate.Value
    Else
        Form_Calendar.LoadCalendarForm
    End If
    Form_Calendar.lblFormName.Tag = Me.Name
    Form_Calendar.lblControlName.Tag = "txtDate"

Note: In the above code txtDate is the control name where the selected date will be displayed. In your tool if this control name is different, you can replace the same in above code.

Excel Tricks

14. Done, save your project and open the form

Excel Tricks

15. Click on the Calendar button to select a date

Excel Tricks

Excel Tricks

Hope you liked this article. Please share it with your colleagues and comment your views below.

Author:
Excelsirji.com was started with the thought of making people experience easy while working with Excel, data analytics, vba, automations etc.

Leave a Reply

Your email address will not be published. Required fields are marked *

Are you a Data Enthusiast?

Join us for a ride on your data and automate your stuffs

Business Analytics
Data Analyst
Programming for Data Science
Predictive Analytics for Business