>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
>

To change a value:

update AccTran;
  set Balance = 0;
  where Code = ThisForm.Code.Value

For the running total, it is more difficult. Personally, I prefer staying with the xBASE code.

Note that to process multiple records, it is better to use SCAN instead of DO WHILE. It saves you several commands.