INSERT  INTO  billinfo(billno,billdate) VALUES (val(right(thisform.text1.Value,4)),DATE())

Remember that the value showed in thisform.text1.Value, 04-0001, is ONLY ment to show nicely, it is not the actual billno.

>hi,
>thank you very much,it works
>i try to insert myvalue as under ,but i get error messag(data type mismatch)
>

>INSERT  INTO  billinfo(billno,billdate) VALUES (thisform.text1.Value,DATE())
>

>thanks.
>m.qasem
>
>>Try this.
>>
>>thisform.text1.value=RIGHT(STR(YEAR(DATE()),4),2) + '_'+RIGHT(STR(10000+(billinfo.billno+1),5),4)