hi,
thank you for reply,
but still i get a meesage(filter cleard), when i move from, form to another form.
when i run every form aloan like forms(add,modify,query or delete) it works.
i put this code for all forms (add,modify,query or delete)
when i run main menu(have all forms) i get error message (filter cleard)
any help,
this is the code.

SELECT book1
index on no tag no

lcValue= ['] + UPPER(ALLTRIM(THISFORM.TEXT24.VALUE)) + [']
SET FILTER TO UPPER(NO) = &lcValue.

LOCATE
IF EOF()
MESSAGEBOX("NOT FOUND")
*- Clear the filter.
Set Filter To
ELSE
THISFORM.GRID4.REFRESH
ENDIF
endif*-------for if nkeycode=13