>ldStart=MONTH(thisform.text2.Value)
>ldEnd=MONTH(thisform.text25.Value)
>m.a=UPPER(ALLTRIM(thisform.text18.value ))
>m.f=THISFORM.TEXT24.VALUE
>------------------------------
>
>&&&i useto this code to get result for one month only i try to insert another date to get result ,not works&&&
>LOCATE FOR   MONTH(dat)=MONTH(thisform.text2.Value) .and. MONTH(dat)=MONTH(thisform.text25.Value).AND. table1.mac1=UPPER(ALLTRIM(thisform.text18.value )) AND TYP=THISFORM.TEXT24.VALUE
>IF FOUND()
>set filter to   MONTH(dat)=MONTH(thisform.text2.Value) and MONTH(dat)=MONTH(thisform.text25.Value).AND. table1.mac1=UPPER(ALLTRIM(thisform.text18.value )) AND TYP=THISFORM.TEXT24.VALUE
>....
>....
>else
>=messagebox("not found")
>...
>endif
>

SELECT * FROM table1;
WHERE MONTH(table1.dat)=MONTH(thisform.text2.Value) and MONTH(table1.dat)=MONTH(thisform.text25.Value).AND. table1.mac1=UPPER(ALLTRIM(thisform.text18.value )) AND table1.TYP=THISFORM.TEXT24.VALUE
INTO CURSOR MyCursor
IF _TALLY > 0
...
...
ELSE
   =messagebox("not found")
ENDIF