التعديل الاخير لكود الاقتطاع لم يلبي الرغبات 100%

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

4 دقائق مضت, Barna said:

هذا طبيعي لانه تم الاقتطاع صحيح

راجع الجدول هل تم الاقتطاع لهذه الاشهر

نعم في الجدول صحيح ولكن مالغاية من ظهورها عند كل فتح النموذج  وهي تحمل قيم  0,00 دج

[Barna]

5 ساعات مضت, طاهر اوفيسنا said:

نعم في الجدول صحيح ولكن مالغاية من ظهورها عند كل فتح النموذج  وهي تحمل قيم  0,00 دج

هذه فكرة فقط ... انت من يحدد ماذا تريد وغير ملزم لك . حسب برنامجك ويمكن الغائها نهائيا

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

1 ساعه مضت, Barna said:

هذه فكرة فقط ... انت من يحدد ماذا تريد وغير ملزم لك . حسب برنامجك ويمكن الغائها نهائيا

فعلا فكرة جميلةجدا  هل لك استاذي  ان تستطيع ان لاتتركها تساوي الصفر دائما عند دخول الفورم وان تزيد للميساج الباقي هو .......... دج مثلا علما ان الباقي ناتج من دالة romining

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

استاذ حاولت الاعتماد على نفسي في استخراج باقي القروض الكلي للمقترضين فنجحت في استخراج المبلغ ولكن وقعت لي مشكلة الظهور MsgBox

[Barna]

2 ساعات مضت, طاهر اوفيسنا said:

استاذ حاولت الاعتماد على نفسي في استخراج باقي القروض الكلي للمقترضين فنجحت في استخراج المبلغ ولكن وقعت لي مشكلة الظهور MsgBox

ممكن تلصق الكود كاملا هنا .. حتى نعرف ايش صار

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

لاحظ استاذ الصورتين والكود بالمرفق

barna.rar

[Barna]

5 ساعات مضت, طاهر اوفيسنا said:

لاحظ استاذ الصورتين والكود بالمرفق

استبدل نص الرسالة بهذا 
 

MsgBox "تم توزيع الإقتطاعات بنجاح" & vbCrLf & _
       "مجموع اقتطاعات القروض: " & Format(TotalLoanDeductions, "#,##0.00") & " دج" & vbCrLf & _
       "مجموع اقتطاعات الانخراط: " & Format(TotalSubscriptionDeductions, "#,##0.00") & " دج" & vbCrLf & _
       "المجموع الكلي للاقتطاعات: " & Format(TotalDeductions, "#,##0.00") & " دج" & vbCrLf & _
       "الباقي الكلي: " & Format(Remaining1, "#,##0.00") & " دج", _
       vbInformation, "إقتطاعات شهر " & FrenchMonth(Month(Now())) & " " & Year(Now())

 

جرب واعلمنا بالنتيجة

 

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

28 دقائق مضت, Barna said:

جرب واعلمنا بالنتيجة

جربت استاذ يبدو ان شهر فيفري عادي اما شهر مارس 2025 مزال الكود به مشكلة 

ادخل على شهر مارس من خلال تغيير التاريخ بالجهاز وليس الفورم وسترى المشكلة

 

 

BAR_27022025.rar

تم تعديل منذ 2 ساعات بواسطه طاهر اوفيسنا

[Barna]

في 27‏/2‏/2025 at 19:47, طاهر اوفيسنا said:

جربت استاذ يبدو ان شهر فيفري عادي اما شهر مارس 2025 مزال الكود به مشكلة 

ادخل على شهر مارس من خلال تغيير التاريخ بالجهاز وليس الفورم وسترى المشكلة

يبدو المشكلة لديك في الاستعلام Qry_rptD1 مكتوب بطريقة معقدة

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

في 27‏/2‏/2025 at 19:04, Barna said:

يبدو المشكلة لديك في الاستعلام Qry_rptD1 مكتوب بطريقة معقدة

لو كانت المشكلة في الاستعلام كما اشرت كانت كل الاشهر بها مشاكل

حسب فكري المشكلة في وضع دالة الباقي  في مكانها الصحيح والله اعلم

 Remaining1 = Nz(DSum("[Remaining]", "[qry_rptD1]"), 0)

لان بدون مبلغ الباقي Remaining1 يظهر الميساج عادي ولكن فارغ انظر الصورة