>hi all,
>could you help me to change this code under to select statment ,
>

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

>
>thanks.

For you to get any records MONTH(text2) and MONTH(text25) need to have the same values. Is that intended? If so I would be checking for that before executing this block of code and give an error message if the two months don't match.

If this isn't intended, could you provide some dummy data and values for the two textboxes and some indication as to which records should be selected.