Nadya,

I have the same problem. The problem only exists with ActiveX controls which makes sense when you think about it. You could try setting focus back to the control if the validation fails.

>Hi everybody,
>
>I have a container class with an ActiveX control inside. I want to be able to validate user's input and stay in the control if the input is invalid. I thought I can use LostFocus event of my container class and NODEFAULT in the LostFocus would prevent me from leaving this control. However, this is not what happening. The focus still goes to the next control in sequence. What should I do?
>
>Here is my code in ValidateDate and LostFocus methods:
>
>

>*---------------------- Location Section ------------------------
>*   Library: 	Aformsaction.vcx
>*   Class: 		Cntcalendar
>*   Method: 	ValidateDate()
>*----------------------- Usage Section --------------------------
>*)  Description: Validates a passed date
>*)
>
>*   Scope:      Public
>*   Parameters:
>*$  Usage:
>*$
>*   Returns:
>*--------------------- Maintenance Section ----------------------
>*   Change Log:
>*       CREATED 	01/04/2005 - NN
>*		MODIFIED
>*----------------------------------------------------------------
>LPARAMETERS tdDateToValidate
>IF !THISFORM.calendarobj1.IsDescriptionTrue(TTOD(m.tdDateToValidate), "QUEUEABLE DAY")
>	=errormsg("Not a queueable day!")
>	RETURN .F.
>ENDIF
>
>RETURN .T.
>

>
>

>*---------------------- Location Section ------------------------
>*   Library: 	Aformsaction.vcx
>*   Class: 		Cntcalendar
>*   Method: 	Lostfocus()
>*----------------------- Usage Section --------------------------
>*)  Description:
>*)
>
>*   Scope:      Public
>*   Parameters:
>*$  Usage:
>*$
>*   Returns:
>*--------------------- Maintenance Section ----------------------
>*   Change Log:
>*       CREATED 	01/04/2005 - NN
>*		MODIFIED
>*----------------------------------------------------------------
>LOCAL ltDate as datetime
>ltDate = CTOT(DTOC(DATE(1900,1,1) - 2 + THIS.DatePicker.DATE) + " 07:00:00 AM")
>
>IF this.ValidateDate(m.ltDate)
>   this.SetDates (m.ltDate)
>ELSE
>   NODEFAULT && prevent leaving focus from this control
>endif