How to add a calendar to a date field in a form to allow users select date

[tkba]

Hi All,

Please help me to understand if I can add calendar to a date field in forms which will allow users to enter the date.

Regards,
TK

[alphaomega3]

Hi All,

Please help me to understand if I can add calendar to a date field in forms which will allow users to enter the date.

Regards,
TK

I found the following link to be helpful.

Calendar

AO3

[missinglinq]

The simplest way is:

Private Sub YourCalendarName_Click()
   YourTextBoxName = YourCalendarName
End Sub

[missinglinq]

If you'd like to only have the calendar appear when you need to pick a date, you can use this routine.

First, select the calendar and goto Properties--Format and set Visible = No
Then place this code in the form's code module:

Private Sub Form_Load()
  YourCalendarName = Date
End Sub
Private Sub YourCalendarName_Click()
  YourTextBoxName = YourCalendarName
  YourTextBoxName.SetFocus
  YourCalendarName.Visible = False
End Sub
Private Sub YourTextBoxName_DblClick(Cancel As Integer)
  YourCalendarName.Visible = True
End Sub
 

Now, when your user DoubleClicks on the textbox where the date will go, the calendar will appear. The date is picked, and the calendar disappears!

[tkba]

Thanks a lot for the help

[missinglinq]

That's why we're all here! ;0)>