Dear Sir,

thanks for your reply for my earlier query,

What I am trying to do is i am editing RM item rate in RM master file.. my code doing it correctly, secondly i am updating bill_detail file for rate where that RM code is used in bill this also my code doing correctly, but third one where i am updating bill file for total_amt field (i.e. in bill_details, RM1, RM2, RM3 items stored and total of their rate*qty is stored in bill ) but here by codedoedn't work. My code updating only first record of bill file.

Now please look at my below code :-

If Rs.State = adStateOpen Then Rs.Close
Rs.Open "select * from product_master where sno=" & Val(LblSr.Caption), Cn, adOpenDynamic, adLockOptimistic
Rs("prod_type") = CmbType.Text
Rs("prod_sub_type") = TxtName.Text
Rs("rate") = Val(TxtRate.Text)
Rs("is_active") = Val(ChkActive.Value)
Rs.Update
Rs.Close


If Rs1.State = adStateOpen Then Rs1.Close
Rs1.Open "select * from bill_details where prod_sno=" & Val(LblSr.Caption), Cn, adOpenDynamic, adLockOptimistic
If Rs1.RecordCount > 0 Then
Rs1.MoveFirst

Dim OldRt As Integer
Dim bILL As Integer
Dim newrt As Integer
bILL = Rs1("Bill_sno")
Dim i As Integer


For i = 1 To Rs1.RecordCount
OldRt = Rs1("amt")

Rs1("rate") = Val(TxtRate.Text)
Rs1("amt") = Rs1("rate") * Rs1("qty") / 100
newrt = Rs1("amt")

Rs1.Update

up to here code is updating all records as per sql select command above, but blow line are only updating first record of bill table


If Rs2.State = adStateOpen Then Rs2.Close
Rs2.Open "Select * from bill where invoice_no =" & Rs1("Bill_sno"), Cn, adOpenDynamic, adLockOptimistic
If Rs2.RecordCount > 0 Then
Rs2.MoveFirst
Dim j As Integer
For j = 1 To Rs2.RecordCount
Rs2("total_amt") = Rs2("total_amt") - OldRt + newrt


Rs2.Update

Rs2.MoveNext
Next

Rs1.MoveNext

End If
Next

End If

Rs1.Close


Please help..

Thanks in Advance

Regards,