Hello, Mike

I completely agree with the quoted piece of code. One single modification in my case: Especially in data-entry forms, where many fields are involved in validation, the code looks like:

IF NOT frmbizobj.DataValidation()
RETURN
ENDIF

*!* The rest of the code here

and the frmbizobj.datavalidation looks like your code:

IF NOT condition
* some messagebox here, set the focus to the problematic field
RETURN .F.
ENDIF

IF NOT other_condition
* some other messagebox here, set the focus
RETURN .F.
ENDIF

and so on, till the last validated field.

>I'd agree with this as a standard.
>
>

LPARAMETERS tcParm1
>IF VARTYPE(m.tcParm1)#"C"
>  RETURN .F.
>ENDIF
>
>IF NOT SOMETHING
>  RETURN .F.
>ENDIF
>
>LOCAL llOK
>llOK = .T.
>
>LOCAL m.loSetTalk
>m.loSetTalk = CreateObject("SETTALK")
>
>SET TALK ON
>REPLACE FIELD WITH "VALUE" FOR Condition = .T.
>RELEASE m.loSetTalk
>RETURN m.llOK
>

>