>Hi Chandan,
>
>why so much redundant code? I can shorten your code quite a lot:

>select 0
>use mbal order acno && Assuming that you have an index tag on acno
>lnAcno=thisform.acno.value
>if nKeycode=13
> if seek(lnAcno) && thisform.. is much slower than a variable
>  repl date with (myentry.date.value),balance with balance + myentry.credit.value

The balance field already gets the myentry.credit.value added, so in this line you're adding it again... Not sure it would keep the balance balanced.

>  myentry.balance.value=balance + myentry.credit.value
>  calc sum(balance) for type="balance"  to lnTc
>  myentry.tbalance.value=lnTc
> else
>   MessageBox('No matching record found!')
> endif
>endif
>Use
>* close all && Why do you close all???