جمع مبالغ الفواتير المختارة فقط

ضع هذا الكود فى النموذج

Private Sub select_payment_AfterUpdate()
If Me.select_payment Then
Me.Text11 = Nz(Me.Text11, 0) + Me.Invoice_Amount
Else
Me.Text11 = Nz(Me.Text11, 0) - Me.Invoice_Amount
End If
End Sub

استاذنا العزيز أبو يوسف،،،

شكراً جزيلاً لك فهذا ما طلبته بالظبط

هل من الممكن وتشرح لي فائدة الصفر في الكود

Me.Text11 = Nz(Me.Text11, 0) + Me.Invoice_Amount

فقد قمت بحذفه ومازال الكود يعمل بدون مشاكل

ومنكم نستفيد

تحيااااتي

نعم أخى

لان الدالة فى حالة الارقام تكون قيمتها الافتراضية صفر

شكراً لجهودك استاذي