ACC: How to Create a Pop-Up Calendar Control on a Form

MORE INFORMATION

Creating a Pop-Up Calendar

1. Open the sample database Northwind.mdb.
2. Create a new form based on the Orders table and save it as frmOrderDateForm.
3. Add a combo box to the form and set the ControlSource property of the combo box to the OrderDate field.
4. Insert the Calendar control on the form.
   
   NOTE: To insert a Calendar control, click ActiveX Control on the Insert menu, and then select either Calendar Control or Calendar Control 8.0 depending on your version of Access, 7.0 or 97.
5. Set the following properties for the Calendar control:

      Name: Calendar
      Visible: No
   					

6. Add the following code to the MouseDown event of the OrderDate combo box:

   Private Sub OrderDate_MouseDown(Button As Integer, _
                                     Shift As Integer, X As Single, _
                                     Y As Single)
   ' Show Calendar and set its date.
      Calendar.Visible = True
      Calendar.SetFocus
      ' Set to today if OrderDate has no value.
      Calendar.Value = IIf(IsNull(OrderDate), Date, OrderDate.Value)
   End Sub
   					

7. Add the following code to the Click event of the Calendar control.
   
   NOTE: You will have to open up one of the listed events and then change that event to the Click event.

   Private Sub Calendar_Click()
      ' Set OrderDate to the selected date and hide the calendar.
      OrderDate.Value = Calendar.Value
      OrderDate.SetFocus
      Calendar.Visible = False
   End Sub
   					

8. Save the form and switch to Form View.

Additional Example

   CD-DRIVE:\MSDS\ODESMPL\ODE\OLECONT\Actctrls.mdb