Hi again,

It works, but deleted() doesn't work, e.g. I can not automatically set a "D" flag.

>>Hi everybody,
>>
>>I want to automatically update a field in a table. If I add a record, I want to put 'A' in ModiType, if I change it, I want to put 'C' and if I delete it, I want to put "D". I tried to use triggers for this, but got can not update cursor message. How can I perform this update automatically?
>>
>>It's for VFP6.
>
>Nadya,
>
>here's a sample
>
>

>procedure RecordValidationNadya()
>
>	local i, FieldArray[1], n, Changed, Isnew
>	
>	n = afields(FieldArray)
>	Changed = FALSE
>	IsNew = FALSE
>	
>	do case
>	case isnull(oldval(FieldArray[1, 1]))
>		&& it's a new record
>		Isnew = TRUE
>	otherwise
>	
>		for i = 1 to n
>			if( FieldChanged(FieldArray[i, 1]) )
>				Changed = TRUE
>				exit
>			endif
>		endfor
>	endcase
>	
>	do case
>	case Isnew
>		&&
>	case Changed
>		&&
>	endcase
>
>endproc
>*---------------------------------------------------------------------------
>function FieldChanged(FieldName)
>
>	do case
>	case isnull(oldval(FieldName)) or Isnull(eval(FieldName))
>		return (isnull(oldval(FieldName)) <> Isnull(eval(FieldName)) )
>	otherwise
>		return (oldval(FieldName) <> eval(FieldName))
>	endcase
>endfunc
>*-------------------------------------------------------------------------
>