CalendarControl outputting date AND day

[grunners22]

Hi

I'm recently added the CalendarControl 9.0 into some combo boxes in order to quickly input dates - however only the dates are then added, not the day of the week. The day of the week would be really useful if it was visible as the form is outputted to a HTML page for our intranet for other staff to see.

My (relevant) code at the moment is as follows:

-------------------------------------------------

Option Compare Database
Option Explicit
Dim cboOriginator As ComboBox

Private Sub cboStartDate_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

Set cboOriginator = cboStartDate

ocxCalendar.Visible = True
ocxCalendar.SetFocus

If Not IsNull(cboOriginator) Then
ocxCalendar.Value = cboOriginator.Value
Else
ocxCalendar.Value = Date
End If
End Sub

Private Sub cboEndDate_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

Set cboOriginator = cboEndDate

ocxCalendar.Visible = True
ocxCalendar.SetFocus

If Not IsNull(cboOriginator) Then
ocxCalendar.Value = cboOriginator.Value
Else
ocxCalendar.Value = Date
End If
End Sub

Private Sub Form_Load()
ocxCalendar.Visible = False
End Sub

Private Sub ocxCalendar_Click()
cboOriginator.Value = ocxCalendar.Value
cboOriginator.SetFocus
ocxCalendar.Visible = False
Set cboOriginator = Nothing
End Sub

-------------------------------------------

Any help and ideas much appreciated!

 

[ghudson]

is this a duplicate posting?

 

[Bat17]

If you want the day of the week visible in the comb box then change its formatting

Peter

 

[grunners22]

Can that be done in the properties toolbox in the form view?