locate for UPPER(inname) = UPPER(TRIM(thisform.pageframe1.page1.text1.Value)) and nam1 = thisform.pageframe1.page1.text4.Value and datein>=thisform.pageframe1.page1.text3.value .and. datein<=thisform.pageframe1.page1.text5.value if found() set filter to UPPER(inname) = UPPER(TRIM (thisform.pageframe1.page1.text1.Value)) and nam1 =thisform.pageframe1.page1.text4.Value and datein>=thisform.pageframe1.page1.text3.value .and. datein<=thisform.pageframe1.page1.text5.value report form mstr22 preview else =messagebox("not found") endifChanging this to SELECT:
select from MyTable where UPPER(inname) = UPPER(TRIM (thisform.pageframe1.page1.text1.Value)) and nam1 =thisform.pageframe1.page1.text4.Value and datein>=thisform.pageframe1.page1.text3.value .and. datein<=thisform.pageframe1.page1.text5.value; into cursor TempReport; nofilter if _tally = 0 MessageBox("No records selected. Try changing your criteria.") else report form ... endif select ... && go back to the table that belongs to the grid