Hello!!!
I'm newbie to access 2007 and am finding ways to adding pop up calendar(ocxCalendar) next to my combo box(cboStartDate).
After i have clicked the date in calendar, the calendar can be unhide successfully, but the problem is the combo box wont show me the date that i have clicked. Hope enthusiasts about access can help me in this project. Thanks very much!!!
Attached is my form.
Below are my code used for adding calendar:
Private Sub cboStartDate_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
ocxCalendar.Visible = True
ocxCalendar.SetFocus
If Not IsNull(cboStartDate) Then
ocxCalendar.Value = cboStartDate.Value
Else
ocxCalendar.Value = Date
End If
End Sub
Private Sub ocxCalendar_Click()
cboStartDate.Value = ocxCalendar.Value
cboStartDate.SetFocus
ocxCalendar.Visible = False
End Sub
I'm newbie to access 2007 and am finding ways to adding pop up calendar(ocxCalendar) next to my combo box(cboStartDate).
After i have clicked the date in calendar, the calendar can be unhide successfully, but the problem is the combo box wont show me the date that i have clicked. Hope enthusiasts about access can help me in this project. Thanks very much!!!
Attached is my form.
Below are my code used for adding calendar:
Private Sub cboStartDate_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
ocxCalendar.Visible = True
ocxCalendar.SetFocus
If Not IsNull(cboStartDate) Then
ocxCalendar.Value = cboStartDate.Value
Else
ocxCalendar.Value = Date
End If
End Sub
Private Sub ocxCalendar_Click()
cboStartDate.Value = ocxCalendar.Value
cboStartDate.SetFocus
ocxCalendar.Visible = False
End Sub