Calendar Control 11.0

K

Ken

I have a calendar attached to a text box with the code below and cannot
change the dates. I am new at this and would appreciate any assistance.
Private Sub ocxCalendar_Click()
Form_Form2.cboDate.Value = ocxCalendar.Value
Form_Form2.cboDate.SetFocus
Form_Form2.ocxCalendar.Visible = False
End Sub

Private Sub cboDate_MouseDown(Button As Integer, Shift As Integer, X As
Single, Y As Single)
ocxCalendar.Visible = True
ocxCalendar.SetFocus
If Not IsNull(cboDate) Then
ocxCalendar.Value = cboDate.Value
Else
ocxCalendar.Value = Date
End If


End Sub
The box is enabled, unlocked and invisible. It appears when I click in the
box but only has todays date and will not allow me to change.
Thank you very much,
Ken
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Access Pop-Up Calendar 2
Help with Pop-up Calendar on form 3
code error 4
record not update until click subform 0
creating multiple pop up calendars in a form??? 7
debug calender in combo box 1
3326 "This Recordset is not updatable" 3
Trying to add an Access Calendar 1

Top