hi,
i get error message syntax error at
m.lcMonth=TRANSFORM(MONTH(thisform.text2.Value))

>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
>