*-- cmd_test.click *-- test running a filtered report local lcFilter, lcSaveAlias, lnSaveRec lcSaveAlias = alias() lnSaveRec = recno() if empty(set("filter")) lcFilter = "PRINTNO = '" + thisform.txt_printno.value + "'" else lcFilter = set("filter") endif use imprn in 0 again alias imprn_rpt shared select * from imprn_rpt into cursor rptcursor where &lcFilter report form reports\imprn_r1 preview select rptcursor use select imprn_rpt use select &lcSaveAlias goto lnSaveRec(NASM's not a bad place to be a programmer, Todd. As one of my former supervisors used to say, "The Smithsonian may not have money, but it has state-of-the-art problems.")