Hi,
I inserted an Active X control "Calendar Control 9.0" into my form. I have 3 date fields in my form and would like to have all 3 fields work with the calendar. The fields are "Date Sent", Date Due Back", and "Date Returned" When I go to the calendar properties and it's control source, I can only select one date to work with the calendar. Is there any way I can get it to work with the 3 fields in my form. Thanks for helping.

I have a similar thing working on one of my forms. I have the activeX control hidden, and I declare 2 variables - getDate and calling. I use getDate if there is already a date in the field and I use calling to identify which control is calling the calendar. I then place a cmdButton next to each box. On the Click of the button, both variables are set and the getCalendarDate sub is called which makes the Calendar control visible and sets the date (if appropriate). When the calendar is clicked, the calling variable is referenced and the appropriate text box is changed, and the calendar control hidden. Let me know if you want more information.

Private Sub cmdStart_Click()
    txtStartTime.SetFocus
    getDate = txtStartTime.Text
    calling = "txtStartTime"
    getCalendarDate
End Sub

Private Function getCalendarDate()
    If getDate = vbNullString Then
        getDate = Now()
    End If
    ocxCalendar.Visible = True
    ocxCalendar.SetFocus
    If Not IsNull(getDate) Then
        ocxCalendar.Value = getDate
    Else
        ocxCalendar.Value = Now()
    End If
End Function

Private Sub ocxCalendar_Click()
    Select Case calling
        Case "txtEntryDate":
            txtEntryDate.SetFocus
            txtEntryDate.Text = ocxCalendar.Value
        Case "txtStartTime":
            txtStartTime.SetFocus
            txtStartTime = ocxCalendar.Value
        Case "txtEndTime":
            txtEndTime.SetFocus
            txtEndTime = ocxCalendar.Value
    End Select
    ocxCalendar.Visible = False
End Sub


Mike
EchoVue.com