انا اشكرك اخى الكريم بارك الله فيك
انا نفذت الفكرة المقدمة من حضرتك بس الكود ماضبط للاسف للاختلاف بين الفكرتين
Private Sub Form_Current()
With Me
.y2 = Sum(Debit, 0)
End With
With Me
.y3 = Sum(Creditor, 0)
End With
With Me
.y4 = Nz(Creditor, 0) - Nz(Debit, 0)
End With
End Sub
زادك الله من فضله