I think he wants a "running total" - the value gets accumulated from one record to the next.
>Khubaib take a look at your code:
>
Replace balance With 0 All
>
>and after then
>
Replace balance With blnc
>
>and
>
Set Filter To code=thisform.code.value
>
>May be you want
>
>update AccTran;
> set Balance = blnc+debit-credit;
> where Code = ThisForm.Code.Value
>
>
>
>>these code can be changes into sql
>>
>>Select accounts
>> Locate For code=thisform.code.value
>> opbl = opdr-opcr
>> Select acctran
>> Set Order To date
>> Set Filter To
>> Set Filter To code=thisform.code.value
>> Goto Top
>> Replace balance With 0 All
>> Goto Top
>> blnc = opbl
>> Do While !Eof()
>> blnc = blnc+debit-credit
>> Replace balance With blnc
>> Skip
>> Enddo
>>
Difference in opinions hath cost many millions of lives: for instance, whether flesh be bread, or bread be flesh; whether whistling be a vice or a virtue; whether it be better to kiss a post, or throw it into the fire... (from Gulliver's Travels)
