SET STEP ON
select * from mstr where UPPER(inname) = UPPER(TRIM; &&& Stop at this statment
(thisform.pageframe1.page1.text1.Value));
 and nam1 =thisform.pageframe1.page1.text4.Value and;
between(datein, thisform.pageframe1.page1.text3.value,thisform.pageframe1.page1.text5.value );
into cursor TempReport;
  nofilter
if _tally = 0 &&& Stop at this statment
  MessageBox("No records selected. Try changing your criteria.")
else

ENDIF  &&& Stop at this statment
report FORM mstr33 preview
select  mstr &&& Stop at this statment