hi,
i try as under , i get tnSequence not found,value not found, and data type mismatch

INDEX ON sequence TAG sequence
set order to "sequence"

seek padr(tnSequence, len(sequence))
if not found()
	append blank
	*replace sequence with tnSequence, nextnum with 1
       replace thisform.text1.value with tnSequence, nextnum with 1

thanks


>>i create table(serialnumber with 2 field sequnce char(16) and DocNumber char(16)). i run myform,via my new method via your code,
>
>The way the code is designed, for the sequences, you need a table called SerialNumber.dbf.
>
>This table has to have a field called Sequence, and an index on that field. BTW, I don't know why the command SET ORDER... is commented; I think it has to be included.
>
>The sequence table also needs a field called NextNum, which will store the next number that will be assigned.
>
>The field DocNumber was just an example, of a field where you want to store a sequential number. This would be in another table. Just create a test table for this purpose.