>

 <<SET FILTER TO " " + ALLTRIM(ThisForm.file.Value) + " " $ upper(fm);
&gt;<<           OR " " + ALLTRIM(ThisForm.file.Value) + " " $ upper(sm)

>>Boris which words have problem, with your codes nothing found, which word have not problem alos found.
>>thanks
>
>Some mix between my and Hilmar's answer:
>

>m.transchar = [,.:'"/\`~%#@$^&*()-+=",]+"[]"
>SET FILTER TO " " + ALLTRIM(ThisForm.file.Value) + " " $ UPPER(STRTRAN(fm,m.transchar,[]));
>           OR " " + ALLTRIM(ThisForm.file.Value) + " " $ upper(STRTRAN(sm,m.transchar,[]))
>

Or even simpler

m.transchar = [,.:'"/\`~%#@$^&*()-+=",]+"[]"
SET FILTER TO " " + ALLTRIM(ThisForm.file.Value) + " " $ UPPER(STRTRAN(fm +chr(255)+sm,m.transchar,[]))