SET CENTURY on SET DATE TO british SELECT 1 USE table1 m1 = "JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC" REPLACE ALL table1.Period WITH [2005]+PADL(INT(AT(UPPER(LEFT(dAT,3)),M1)/3)+1,2,"0") REPLACE table1.Period WITH LEFT(DTOS(table1.dat),6) SET CENTURY on SET DATE TO british SET SAFETY OFF SET TALK OFF SET ECHO OFF SELECT 2 USE divi && i biuld my combo via this table m1 = "JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC" m.dat1=RIGHT(thisform.Text1.Value,4)+PADL(INT(AT(UPPER(LEFT(thisform.Text1.Value,3)),M1)/3)+1,2,"0") m.dat2=RIGHT(thisform.Text2.Value,4)+PADL(INT(AT(UPPER(LEFT(thisform.Text2.Value,3)),M1)/3)+1,2,"0") SELECT 1 SELECT * from table1 WHERE (Period between m.dat1 AND m.dat2) AND dvno=VAL(this.Value) and peri=thisform.combo2.value ; into CURSOR xyz INDEX ON period TO kk IF _TALLY > 0 with thisform.combo1 m.nam= .List(.ListIndex,2) ENDWITH TRY REPORT FORM newtable1 NOCONSOLE TO PRINTER PROMPT PREVIEW CATCH TO oExp WHEN oExp.ErrorNo = 1958 ENDTRY ELSE =MESSAGEBOX("Still No Product") endifthanks