>>>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 BETWEEN(MONTH(table1.dat),MONTH(thisform.text2.Value),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