hello,

thanks all,it works
best regards.
m.qasem
>Hi Mohammed,
>
>as I have told you MANY times, remember to ALWAYS include the AGAIN clause if there is just a little chance that the table is already in use! USE PER AGAIN
>
>>hi all,
>> i try to save at mytable as under i get error message(file is in use)
>>

>>lnYear=YEAR(DATE())
>>SELECT MAX(BILLNO) from per WHERE YEAR(per.datein)=lnYear INTO ARRAY laAarray
>>if _tally=0
>>  laArray=1
>>  thisform.text1.value=RIGHT(STR(10000+1,5),3) + '_' + (RIGHT(STR(lnYear,4),2))
>>else
>>  thisform.text1.value= RIGHT(STR(10000+per.billno+1,5),3) + '_'+(RIGHT(STR(YEAR(per.datein),4),2))
>>endif
>>
>>  use per && file is in use
>>  Append From Dbf('temp')
>>  replace w1 with thisform.text14.value
>>  replace w2 with thisform.text16.value
>>  With thisform.grid1
>>   .recordsource = ''
>>   Select temp
>>
>>   .recordsource = 'temp'
>>   thisform.text1.SetFocus
>>   thisform.refresh
>>  endwith
>>
>>  **********************
>>  with thisform.Grid1
>> .Recordsource = .Recordsource
>>endwith
>>
>>

>>thanks
>>m.qasem