Hi Mohammed,

Try:

if nkeycode=13
   SET FILTER TO

   LOCATE FOR  dat=thisform.text2.Value
   IF FOUND()
      lnMonth=MONTH(thisform.text2.Value)
      SET FILTER TO MONTH(dat)=lnMonth
      thisform.grid1.Visible=.t.
      thisform.grid1.Refresh
      thisform.grid1.column7.setfocus()
   else
      =messagebox("åÐÇ ÇáÊÇÑíÎ ÛíÑ ãæÌæÏ ")
      thisform.grid1.visible=.f.
   ENDIF
endif

The problem was Set Filter To after SET FILTER TO MONTH(dat)=lnMonth.

>hi,
>just i need to see all records for month 1, at mygrid via mytextbox e.i 01/01/2005,but it get all months , as 01/02/2005....etc
>

>if nkeycode=13
>LOCATE FOR  dat=thisform.text2.Value
>
>IF FOUND()
>   lnMonth=MONTH(thisform.text2.Value)
>   SET FILTER TO MONTH(dat)=lnMonth
>   thisform.grid1.Visible=.t.
>   thisform.grid1.Refresh
>   thisform.grid1.column7.setfocus()
>else
>  =messagebox("åÐÇ ÇáÊÇÑíÎ ÛíÑ ãæÌæÏ ")
>   thisform.grid1.visible=.f.
>ENDIF
>SET FILTER TO
>endif

>
>>And what is not working, it's not clear to me.
>>
>>By the way, I suggest you create a local variable lnMonth:

>>IF FOUND()
>>  lnMonth=MONTH(thisform.text2.Value)
>>  SET FILTER TO MONTH(dat)=lnMonth

>>>hi all,
>>>i want to get just what i need to see at my grid exactly via this code under
>>>any help ,idea
>>>

>>>LOCATE FOR  dat=thisform.text2.Value
>>>IF FOUND()
>>>  SET FILTER TO MONTH(dat)=MONTH(thisform.text2.Value)
>>>  thisform.grid1.Visible=.t.
>>>  thisform.grid1.Refresh
>>>  thisform.grid1.column7.setfocus()
>>>else
>>>    =messagebox("the date not found ")
>>>    thisform.grid1.visible=.f.
>>>ENDIF
>>>   SET FILTER TO
>>>

>>>thanks