>thisform.text1.value= CMONTH(This.object.value)+' '+Str(year(This.object.value)) >&&thisform.olecontrol1.Visible=.f. >>>Mohhamed,
>>>SET CENTURY on >>>SET DATE TO british >>>SELECT divi >>>m.nam=nam >>>m.dat1=thisform.text1.Value && result is january 2005 >>>m.dat2=thisform.text2.Value && result is feb...2005 or any month i choice >>>SELECT table1 && error message table1 not found, I need to use it to make index >>>INDEX ON dat TO kk >>> >>> SELECT * from table1 WHERE (dat between m.dat1 AND m.dat2) AND dvno=VAL(this.Value) and peri=thisform.combo2.value ; >>> into CURSOR xyz >>>IF _TALLY > 0 >>> report form newtable1 preview >>> ELSE >>> =MESSAGEBOX("Still No Product") >>> >>>Endif >>>>>>m.qasem