I have several forms that have undound fields which are apopulated via a calendar on access (ocxcalendar)

One of the forms works and then if a modification is done on the form code (even if the change is not related to the ocxcalendar) the feature stops working and the fields are not populated by the calendar.

This has only 3 routines (all the forms that use the calendar have the same 3 routines), one for the ocxcalendar_click and then the start and end dates have each one routine triggered by the on mouse down event.

Any ideas?

Here is the code.

Option Compare Database
Option Explicit
Dim DateOriginator As ComboBox

Private Sub ocxCalendar_Click()

' the following line is the one that does not work. It does not assign a value to the date, so
' the calendar has the system date value, or null, and passes it to the unbound field on the
'form

DateOriginator.Value = ocxCalendar.Value
DateOriginator.SetFocus
ocxCalendar.Visible = False
Set DateOriginator = Nothing
End Sub


' The respective value for each date (start and end) should come to populate
'the fields below

Private Sub StartDate_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Set DateOriginator = StartDate
ocxCalendar.Visible = True
ocxCalendar.SetFocus
If Not IsNull(DateOriginator) Then
ocxCalendar.Value = DateOriginator.Value
Else
ocxCalendar.Value = Date
End If
End Sub

Private Sub EndDate_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Set DateOriginator = EndDate
ocxCalendar.Visible = True
ocxCalendar.SetFocus
If Not IsNull(DateOriginator) Then
ocxCalendar.Value = DateOriginator.Value
Else
ocxCalendar.Value = Date
End If
End Sub


thanks again,

Hector

First of all, have you stepped through the code to check the values of these things that are apparently returning Nulls?

Are StartDate and EndDate controls on the ActiveX calendar control or are they standard controls on your form? Is there a reason you're using the MouseDown event rather than the Click event?

chris.

Eh, I avoid ActiveX like the plague. So I don't really know what to say. There is a free class-module calendar control at MDBMakers.com. If you don't feel like a redesign, could you provide the code please for the entire form?

chris.

StartDate and EndDate are controls on the form. They are both unbound fields that have the looks of combo boxes, being this the reason why I use onMouseDown instead of the usual Click event to trigger the code. It was done like that on a bucnh of forms before, so I copied the code and the fields and calendar into a new form.

The value from the active calendar is the ocxCalendar, which should return a date for StartDate and for EndDate, if there is a selection from the calendar. Otherwise it will take the defaults (date-15 for start and date for end).

I'll be happy to find an answer to this, because it does not make sense that it works perfectly on other applications and on this one it does it sporadically.