<<SET FILTER TO " " + ALLTRIM(ThisForm.file.Value) + " " $ upper(fm);
<<           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,[]))