التعديل الاخير لكود الاقتطاع لم يلبي الرغبات 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

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

[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 يظهر الميساج عادي ولكن فارغ انظر الصورة

 

[أبوبسمله]

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

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

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

السلام عليكم

كل عام وانتم طيبين اولا

مشاركه مع اخى محمد البرناوى  جزاه الله خيرا

وع حسب المرفق الذى ارفقته يوجد لديك سجلات فى الجدول tbl_Loans وفى الحقل Loan_ID فارغ وتخص شهر 3 وهذا الحقل مطلوب فى بعض الدوال لاستخراج القيم

قم بحذف هذه السجلات وتقريبا حوالى 163 سجل وستجد بان النتائج قد ظهرت بصوره طبيعيه

بالتوفيق

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

7 ساعات مضت, أبوبسمله said:

وع حسب المرفق الذى ارفقته يوجد لديك سجلات فى الجدول tbl_Loans وفى الحقل Loan_ID فارغ وتخص شهر 3 وهذا الحقل مطلوب فى بعض الدوال لاستخراج القيم

قم بحذف هذه السجلات وتقريبا حوالى 163 سجل وستجد بان النتائج قد ظهرت بصوره طبيعيه

شكرا استاذ على للتوضيح ولكن استاذ السجلات الي اشرت لها في الجدول وخاصه الحقل Loan_ID طبيعي خلال شهر مارس تكون قيمته 0 لان البرنامج مبرمج على ان 0  يعني اقتطاع الانخراط اما الارقام من 1 الى غاية اكبر رقم تمثل القروض وغيرها أتمنى ان وقفت بتوضيح الفكرة لدى حضرتك ورمضان كريم ان شاء الله علينا وعليكم وعلى الأمة الاسلامية جمعا

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

فعلا استاذ كلامك صواب

انتهبت لها هالحين ووجدت قيمتها فارغة حقا

بعد اضافتة للكود وبعد التجربه

هي كانت موجودة سابقا ولكن سقطت بقضل التعديلات

rst!Loan_ID = 0

 

اصبح الكود ينفذ بدون مشاكل

شكرا لكم احبتي الكرام كل واحد باسمه الخاص  على تعبكم معانا

تقبلو تحياتي القلبية 

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

[أبوبسمله]

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

فعلا استاذ كلامك صواب

انتهبت لها هالحين ووجدت قيمتها فارغة حقا

ههههههههه اعلم انه صواب

وكويس انك انتبهت انها قيم فارغه وليست 0

بالتوفيق

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

شكرا اساتذتي الكرام على مد يد المساعدة

وتقبل الله صيامكم وقيامكم

فيه سؤال : لماذا عند فتح الفورم FrmTransfer يكون تنفيذ الكود ثقيل جدا ؟

اي الفورم يقتخ بعد مدة زمنية طويلة مالسبب ؟

تم تعديل الخميس at 20:45 بواسطه طاهر اوفيسنا

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

الاستاذة الأعزاء   ابوبسملة وBarnaوغيرهم حياكم الله اليوم تمت انخراط العامل رقم ،261 مبلغ مالي قدره 3000.00 ولكن عندما نقوم بفتح FrmTransfer يقوم الكود بإقتطاع له مبلغ إضافي 1500.00 ليصبح 4500.00 وهذا خطأ اي الكود مزال يعاني من المشاكل حاولت التعديل على دالة Between في الكود واستبدلت شرط DateSerial 2,،28 استبدلتها ب  3,31  فامتنع الكود على الاقتطاع الاضافي ولكن مزلت متخوف يمكن تكون مشاكل في جويلية القادم وبارك الله فيكم.    

مشكلة 2025.rar

تم تعديل الإثنين at 11:30 بواسطه طاهر اوفيسنا