Hi Jim,

I think you meant to give the stars to Hugo :)

>Hugo,
>I followed your tip, and I surrounded the section of code that calls ResetToDefault with an If empty() and that took care of it.
>
>The FOXOBJECT clause made it quicker.
>
>thanks,
>
>

>Procedure ProcessSrchField
>	Lparameters oCtrl
>
>	Strtofile(oCtrl.Class + [:] + oCtrl.Name+Chr(13)+Chr(10),[c:\crap\mylog.txt],1)
>	Local cSrc, cAlias, cTag
>	cSrc = oCtrl.ControlSource
>
>	cAlias = Getwordnum(cSrc,1,[.])
>	cTag = Getwordnum(cSrc,2,[.])
>	oCtrl.icsrchAlias = cAlias
>	oCtrl.icsrchTag = cTag
>	cSrc = oCtrl.ReadMethod([GotFocus])
>	If !Empty(cSrc)
>		oCtrl.ResetToDefault([GotFocus])
>	Endif
>Endproc
>

>
>>Jim,
>>
>>Try adding the FOXOBJECT clause to the FOR EACHs to see if that makes a difference