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