طاهر اوفيسنا

حاليا وحسب البرمجة لايوجد رابط بينهما الا يكون رابط بينهما عن طريق كود مثلا استاذ ام هذا صعب ? لنفرض اننا عملنا الرابط هو id ولكن في نظري لايصح لان كل الجداول تقريبا بها نفس الترقيم و الاسماء متغيرة يعني نجد أخطأ والمتمثلة في التكرار في التنفيذ

السلام عليكم اساتذتي الكرام مبارك علينا وعليكم الشهر الفضيل عند فتح الفورم FrmMenah وعند اختيار Etar تساوي المنح العائلية او التعويضات الطبية او العمرة او غيرهم وعند الضغط على فتح نموذج الشرط يفتح الفورم المعني بالتصفية المطلوب جلب قيم الجداول الموجودة واظهارها حسب التصفية في ComBox : Menha_Name BAR_A(32025).rar

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

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

لو كانت المشكلة في الاستعلام كما اشرت كانت كل الاشهر بها مشاكل حسب فكري المشكلة في وضع دالة الباقي في مكانها الصحيح والله اعلم Remaining1 = Nz(DSum("[Remaining]", "[qry_rptD1]"), 0) لان بدون مبلغ الباقي Remaining1 يظهر الميساج عادي ولكن فارغ انظر الصورة

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

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

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

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

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

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

شكرا استاذي العزيز وربي يوفقك مشكلتي وهي عند التعديل على الكود يظهر ميساج مبلغ الاقتطاعات إلا في شهر 3و7 و المطلوب ظهوره عند كل شهر اقتطاع لكي نعرف قيمة المبلغ المقتطع

شكرا استاذ ولكن قبل التعديل الاخير كان الكود يدخل عادي في كل الإشهر ويظهر ميساج المبلغ ومن خلال المقارنة بين القديم و الجديد حسب علمي اتضح لي ان الفرق في كلمة loop وقديما كانت Next i والله اعلم Loop.Next i.rar

بعد التعديلات وعند تنفيذ الكود اكتشفت ان الكود لايذهب الى الجزء الثاني ( الشرط) والذي به الميساج MsgBox الذي يبين مبلغ الاقتطاع ويذهب الا في شهري اقتطاع الانخراط فقط يعني (شهر3و 7) اما الإشهر الباقية لايذهب أين تكمن المشكلة ؟ياترى

شكرا استاذ على النصيحة المطلوب تم بواسطة الاستاذ Barna وهو مشكور على ايجاد الحل ولكن الان المشكلة بسيطة وهي في ظهور المبلغ بالميساجmsgBox عند توزيع الاقتطاعات يظهر المبلغ غالط تقريبا وجدت الحل ويكمن في طريقة وضع في مكانها الصحيح rst.Update

للأسف MsgBoxلم يظهر المجموع الصحيح وهو 588.500.00 حسب المرفق المعدل اليوم من طرفك بل اظهر مبلغ 115.900.00 منعرف الكود من أين اتى به ؟

استاذ Barna لقيت مشكل في MsgBox الاخر الي يعلمك بانه تم توزيع الاقتطاعات ومجموع الاقتطاعات يكون ناقص على المجموع الحقيقي في الجدول مثلا المجموع في الجدول القروض =344000.00 والانخراطات =247500.00 يعني المجموع الكلي يساوي 591.500.00

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

استاذ لماذا وظفت زوج MsgBox The_Sum = Format(The_Sum, "#,##0.00") MsgBox "تم توزيع الإقتطاعات" & vbCrLf & vbCrLf & "مجموع الإقتطاعات = " & The_Sum, , "إقتطاعات شهر " & FrenchMonth(Month(Now())) & SelectedYear End If The_Sum = Format(The_Sum, "#,##0.00") MsgBox " " & "تم توزيع الإقتطاعات" & vbLf & vbLf & "مجموع الإقتطاعات = " & The_Sum, , "إقتطاعات شهر" & FrenchMonth(Month(Date)) & Year(Date)

مبدئيا هذا هو المطلوب استاذ أتمنى ان لا ارى مشكل في شهر جويلية القادم شكرا والف شكرا استاذ يبدو انك اختزلت الكود استاذ ي العزيز Barna

شكرا استاذ على الاهتمام التعديل مزال فيه مشاكل لاحظ الصورة بتمعن

ممكن ارساله في ملفtxt لاني بالمبايل ولايمكن لي نسخ الكود ووضعه بالكمبيوتر وهذا الاخير بدون نات

الموضوع ساهل استاذ ولكن يمكن الفكرة لم تصل اليك

شكرا استاذ على مرورك الطيب استاذ التعديل يشتغل طبقا لما تم طلبه في الموضوع الماضي ولكن عند التجريب حاليا وبالاخص في اقتطاع شهر مارس 2025 قام الكود باستثناء بعض العمال لم يقتطع لهم مبلغ الانخراط لشهر مارس 2025 والمقدر ب 1500 وهذا هو المشكل (لماذا التعديل على الكود يستثنى عمال وهم في الحقيقة تتوفر فيهم شروط الاقتطاع؟)نتمنى من يجد لي حلا في القريب العاجل لاني ملزم بدفع الاقتطاع الخاص بشهر مارس في اقرب وقت

موجود بالاكسس