>I am using the mscal.ocx control in one of my forms. In the init of the form,
>is the code:
>
> IF EMPTY(m.dValue)
> THIS.oleDate.Object.Value = DATE()
> ELSE
> THIS.oleDate.Object.Value = m.dValue
> ENDIF
>
>I'm getting an error, on line 2, OLE error code 0x8002802b: element not found.
>
>It can't find object and...........also, when I'm in design mode, if I right click on the calendar to edit calendar properties, I can enter information but none of it gets saved and........I don't see any of the calendar properties in the properties sheet under all.
>
>Anyone know what the problem is?
>
>Deb

Debra, Try with:

ldFecha = {10/07/2001}

IF EMPTY(ldFecha)
    ThisForm.oleCalendar.Object.Today
ELSE
    ThisForm.oleCalendar.object.year = year(ldFecha)
    ThisForm.oleCalendar.object.month = month(ldFecha)
    ThisForm.oleCalendar.object.day = day(ldFecha)
    ThisForm.refresh
ENDIF
? ThisForm.oleCalendar.object.value