حذف سجلات بناءا على قيمة في مربع نص

[طاهر اوفيسنا]

السلام عليكم اساتذتي الكريم 

عند الدخول على فورم FrmCridi ومن ثمة الضغط على ايقونة سداد المبلغ وعند اضافة مبلغ باقي الاقساط في مكان مبلغ الاعفاء 

المطلوب حذف السجلات  الباقية والفارغة  مع اضافة مبلغ الاعفاء + المبلغ الشهري المفتطع وبوضع في مكان فيمة الاقتطاع كما في الصورة

علما ان مصدر السجلات tbl_Loans

 

2024 ‫‫.mdb

[طاهر اوفيسنا]

لازم النتيجة تكون

[Barna]

8 ساعات مضت, كريمو2 said:

لازم النتيجة تكون

هل هذا ما تريد ؟؟؟؟ لكن ماذا لو كان المبلغ الدفوع اقل من الاقساط كلها يعني لو ارد تسديد قيمة قسطين فقط ؟؟؟؟؟؟؟؟؟؟

عل كل حال .... انظر حسب طلبك ....

 

[طاهر اوفيسنا]

2 ساعات مضت, Barna said:

هل هذا ما تريد ؟؟؟؟ لكن ماذا لو كان المبلغ الدفوع اقل من الاقساط كلها يعني لو ارد تسديد قيمة قسطين فقط ؟؟؟؟؟؟؟؟؟؟

عل كل حال .... انظر حسب طلبك ....

 

 

[طاهر اوفيسنا]

لاحظ الفيديو هذا استاذ حالة ثانية كريمو 12 عنده قرض 30000.00

2023-12-14_20-06-39.rar

[Barna]

طيب لاحظ ... هذا .....

 

[طاهر اوفيسنا]

تقريبا هذا المطلوب استاذ

ارفق الملف المعدل للتوضيح أكثر

[Barna]

منذ ساعه, كريمو2 said:

تقريبا هذا المطلوب استاذ

ارفق الملف المعدل للتوضيح أكثر

انظر الصور وضع الكود في حدث بعد التحديث ........

On Error GoTo Errw
If Me.txt_tot = Me.Loan_Remise Then
   DoCmd.GoToRecord , , acNext
    For i = 1 To Me.Recordset.RecordCount
        DoCmd.SetWarnings False
        DoCmd.RunCommand acCmdSelectRecord
        DoCmd.RunCommand acCmdDeleteRecord
        DoCmd.SetWarnings True

    Next i
Exit Sub
Errw:
DoCmd.GoToRecord , , acLast
Me.Loan_Made = Me.Loan_Remise + Me.Payment_Made
Else
MsgBox "مبلغ الاعفاء لايغطي مبلغ الاقساط"
End If

 

[طاهر اوفيسنا]

يارك الله فيك استاذ

شكرا على المجهودات الجميلة 

دمت وفيا للمنتدى 

[طاهر اوفيسنا]

هل من الممكن عند القيام بحذف السحلات الفارغة يتغير تاريخ نهاية الخصم  01 باخر تاريخ بعد الحذف 02

علما ان تاريخ نهاية الخصم DiscountEndDate موجود في  Frm_sub ! FrmCridi_sub

 

[طاهر اوفيسنا]

15 ساعات مضت, كريمو2 said:

هل من الممكن عند القيام بحذف السحلات الفارغة يتغير تاريخ نهاية الخصم  01 باخر تاريخ بعد الحذف 02

علما ان تاريخ نهاية الخصم DiscountEndDate موجود في  Frm_sub ! FrmCridi_sub

2024 ‫‫.mdb

[Barna]

16 ساعات مضت, كريمو2 said:

هل من الممكن عند القيام بحذف السحلات الفارغة يتغير تاريخ نهاية الخصم  01 باخر تاريخ بعد الحذف 02

علما ان تاريخ نهاية الخصم DiscountEndDate موجود في  Frm_sub ! FrmCridi_sub

اضف هذا السطر المبين في الصورة

 

[طاهر اوفيسنا]

3 ساعات مضت, Barna said:

اضف هذا السطر المبين في الصورة

 

شكرا استاذ على الرد ولكن المطلوب العكس هل يتفع  هذه :