N
Nathan Lars
I am following the Access tips from the following wedsite link and trying to
figure this out without bothering anyone but I am stumped.
http://www.fontstuff.com/access/acctut09.htm
I have entered the below text into the Date field combo box's Mouse Down
event procedure and substitued the cboStartDate and ocxCalendar names with
the names i have called them in an existing database, but I can't get it to
work.
Private Sub Date_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
What am I doing wrong?
figure this out without bothering anyone but I am stumped.
http://www.fontstuff.com/access/acctut09.htm
I have entered the below text into the Date field combo box's Mouse Down
event procedure and substitued the cboStartDate and ocxCalendar names with
the names i have called them in an existing database, but I can't get it to
work.
Private Sub Date_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
What am I doing wrong?