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

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

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

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

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

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

 

2024 ‫‫.mdbFetching info...

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

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

[Barna]

  في 14‏/12‏/2023 at 07:44, كريمو2 said:

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

Expand  

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

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

 

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

  في 14‏/12‏/2023 at 16:04, Barna said:

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

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

 

Expand  

 

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

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

2023-12-14_20-06-39.rarFetching info...

[Barna]

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

 

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

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

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

[Barna]

  في 14‏/12‏/2023 at 19:48, كريمو2 said:

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

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

Expand  

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

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‏/12‏/2023 at 20:34, كريمو2 said:

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

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

Expand  

2024 ‫‫.mdbFetching info...

[Barna]

  في 15‏/12‏/2023 at 20:34, كريمو2 said:

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

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

Expand  

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

 

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

  في 16‏/12‏/2023 at 12:57, Barna said:

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

 

Expand  

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