مرفق قاعدة بينات بها جدول الحقل AP21 هو حقل الرصيد والحقل AP07 هو حقل المبلغ الحقل AP09 هو حقل نوع الحركة 1 منه 2 له الحقل AP11 هو حقل رقم الحركة ما ارجوه هو حساب الرصيد فى الحقل AP21 لكل حركة اعتمادا على رقم الحركة من الأصغر الى الأكبر هذا الكود كان محاولتى ولكن فشلت
Dim tmp As String
Do Until rb.EOF
If ap09 = 1 Then
rb![ap21] = rb![ap21] - rb![ap07]
tmp = rb![21]
Else
rb![ap21] = rb![ap21] + rb![ap07]
tmp = rb![21]
End If
rb.MoveNext
