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,