Mohammed

Never use property in LOCATE FOR or SET FILTER! Always use macro substitution. Variable disappears (goes out of scope) when method ends!

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