Thanks Everybody for all the suggestions - I got it working.

>Hi Chris,
>
>Like Brett I use some Doug H code with some modification and a separate validation method:
>
>

>IF  This.Parent.lFieldLevelValidation
>
>	* Get the location of the mouse pointer
>
>	loObject = SYS(1270)
>
>	* Determine if a validation is required.
>	*
>	*   Cancel, Form closed, or ShiftTab skip validation.
>	*   Enter, TAB, or autoadvance do validation
>
>	llValidate = NOT (INLIST(LASTKEY(), cnKEY_ESCAPE, cnKEY_SHIFTTAB) OR ;
>	           (TYPE('loObject.lCancel') = 'L' AND loObject.lCancel AND loObject.Enabled = .T.) OR ;
>	           (TYPE('ThisForm.ReleaseType') = 'N' AND ThisForm.ReleaseType > 0))
>ENDIF
>
>RETURN IIF(llValidate, This.Parent.ControlValidation(), llRetVal)
>

>
>HTH some
>
>Bob