ابوخليل

حسنا دعني ارى ما يمكنني عمله

👿 !!! ؟؟

السبب وجود بقايا من كود الانخراط لم يتم الغاؤها .. فقط كلمة او سطر تم الاصلاح لدي ملاحظات : الاولى : لماذا تستخدم حقول التاريخ في الفورم كوسيط .. لماذا لا تعدل الكود كما فعلت انا مع مع كود الانخراط لست بحاجة الى وسيط .. لأن الحقول هذه تأخذ التاريخ من الجهاز اي انها جامدة الثانية : الرسالة في نهاية الكود التي تظهر كتقرير ليس لها لزوم لأنها مؤقتة ولا يمكنك رؤيتها مرة أخرى والمفروض الصحيح ان تكون هذه القائمة على الفورم بحيث توجد مربعين واحد لرقم الشهر وآخر للسنة .. واسفل منهما قائمة عند دراج الشهر والسنة ثم انتر تعرض القائمة مجاميع الشهر المحدد لجميع الانواع عدم الاقتطاع 7.rar

اعانك الله وانا حاضر معك لأي مساعدة

المفروض تعمل زر آخر للقروض الأخرى ارى ان الفرق في توقيت الحدث .. والذي يمكنه فتح النموذج لا يصعب عليه نقرة زر ... يجب ان تلاحظ ان كثير من المتغيرات تم الغاؤها .. حيث كان الكود يطبق قانون أين اذنك يا جحا

تفضل تعديل بسيط على الشرط عدم الاقتطاع 5.rar

تفضل اخي هذا ما اتحدث عنه احكام بكل ما تعنيه الكلمة عدم الاقتطاع 4.rar

انت مقفل على فكرة وحدة فقط المفروض العملية تتم على النحو التالي : 1- فحص السجلات اذا يوجد اقتطاع لشهر 3 او 7 لهذه السنة يخرج رساله بوجوده ويخرج 2- اذا لا يوجد يدرج الاقتطاعات 3- لسنا بحاجة الى التأكد من المجموع 3000 لأن الشرط يخص شهر محدد وقيمة محددة بمعنى لو حاولت الاقتطاع في اشهر اخرى لن تتمكن فهو يأخذ التاريخ من الفورم الذي هو تاريخ اليوم __ ارجع للمهم ___ : لماذا تقحم هذه الجزئية في كود طويل عريض مليء بالضوابط التي لا تخصه . يكفي وجود زر يقوم بالمهمة ما الفرق بين تنفيذ الكود من خلال زر .. أو .. تنفيذه عند تحميل النموذج ارى ان الأول افضل مليون مرة

في مرفقي الاخير .. في شرط المتغير تم تصحيح الشرط فعمل معي

هو يقارن بين تاريخ الجهاز و تاريخ مشابه موجود في الجدول اكيد ما فيه Set rst = CurrentDb.OpenRecordset( _ "SELECT * FROM tbl_Loans WHERE Payment_Month=#" & Format(CurrMonth, "mm/dd/yyyy") & "#") If rst.RecordCount = 0 Then MsgBox "لا توجد إقتطاعات لشهر " & Format(CurrMonth, "mmmm yyyy"), vbInformation Exit Sub End If

انا فقط غيرت تاريخ جهازي الى 3/2026 وفتحت الفورم وهذه هي النتيجة

اجادة طرح السؤال تسهل ايجاد الحل انت خبرة في البرمجة لذا من اجل تكسب وقتك حاول ان تكون استفساراتك على هذا النحو تفضل .. اتمنى ان يكون هو المطلوب عدم الاقتطاع 2.rar

افدني من فضلك المثال الأخير : هل اذا قدمت التاريخ الى مارس 2026 ثم فتحت البرنامج المفترض ان يقتطع شهر مارس آليا من دون تدخل ويظهر هذا في الجدول ؟

لا اعلم سبب عدم الاقتطاع هل جربت تقديم التاريخ ؟ هذا الكود شرط ان السنة تكون مختلفة وان لا يزيد او يساوي 3000

هذا يعمل 100% totalPaid = Nz(DSum("[Payment_Made]", "[tbl_Loans]", "[EmployeeID] =" & EmpID & "And [annee] <>" & Year(Date) & "and [Loan_ID] =0"), 0)

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

اسف قدمت وأخرت في المعيار يكون مثل هذا totalPaid = Nz(DSum("Payment_Made", "tbl_Loans", _ "Loan_ID= 0 AND EmployeeID=" & EmpID And "annee <> " & Year(Date)), 0) لعله يعمل .. المشكلة ان وجدت فهي في تقديم وتأخير علامة التنصيص

لم اجد شرطا مناسبا قد يحقق المطلوب الا السنة جرب استبدل الكود بهذا فلعله يعمل .. اضفت ان السنة الحالية لا تساوي السنة الموجودة في الجدول totalPaid = Nz(DSum("Payment_Made", "tbl_Loans", _ "Loan_ID= 0 AND EmployeeID=" & EmpID And "year(date)<> " & annee), 0) على اعتبار انك تعمل في سنة 2026

اخي العزيز انا لا اعرف اعمل الا على شيء انا افهمه العمل الذي امامي غامض .. فارجوا ان تعذرني لا اريدك ان تحزن فهذا هو فهمي قد اتمكن من مساعدتك لو اعطيتني قصة السجل كاملة من مولده وحتى يصل الى التقرير ما لون بالاحمر يدل على وجود اشياء غائبة يتم عملها منفصلة عن الجزء المرفق ................................. اعيد واكرر لو انا من صمم هذا العمل سأعمل على طريقة يفهمها اي مبرمج ومصمم وهي طريقة منطقية سهلة بدون اي تعقيد والتعديل عليها يسير +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ الطريقة : اذا دخل شهر3 من كل سنة .. في الفورم زر يعمل تصفية لمن يشمله هذا الاجراء .. يتم من خلاله الحاقهم في الجدول .. وزر آخر يتم اجراء الاقتطاع حسب ما نضعه من شروط ونكرر هذا الاجراء عند دخول شهر 7 ... اوغيره من الشهور للحالات الخاصة هنا يستحيل ظهور اي خطأ ... بمعنى انه يجب ان يكون لكل نوع من الأنواع عملياته الخاصة المنفصلة عن الاخرى الاقتطاع يتم تصفيته لوحده / القروض كذلك / ... الخ كل ذلك من خلال هذين الزرين وفورم واحد +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ اما مسألة كود واحد يقوم بجميع الاجراءات وآليا ايضا .. هذا يجب اعادة النظر فيه .. العجيب ان الكود يعمل عمل التقرير فيعرض رسالة احصائية . اكتب لك هذا وانا لم افهم بعد طريقة تحصيل المبالغ .. لأني لم افهم اصلا طريقة العمل على البرنامج

طيب .. انا فتحت الملف الذي هو الفورم خرجت رسالة معنونة بشهر ديسمبر 2025 .. تقول تم التوزيع بنجاح .. دخلت الجدول ولم اجد شيئا دخلت الى الكود افهمه وجدت اول شرط ان يكون الجدول يشتمل على تاريخ مساو للتاريخ على النموذج وطبعا يوجد في الجدول بيانات لسجلات قديمة فقط وانت تريد اقتطاع شهر 3 و 7 من سنة 2026 اليس من المفترض وجود هذه التواريخ في الجدول قبل فتح النموذج ؟ ( لأن الكود يعمل بمجرد فتح النموذج) انا اتصور لو قمت انا بتصميم هذه الجزئية ان يكون هناك 2 ازرار .. واحد لالحاق البيانات الرئيسية مع التواريخ المختارة والثاني لعملية الاقتطاع

اخي الكريم ذكرت انظر في الكود في فورم FrmTransfer1 بينما البرنامج يفتح على FrmTransfer والكود cmd_Pay_installments موجود في النموذجين لا اخفيك تهت .. اذا العمل على FrmTransfer1 لماذا FrmTransfer موجود ؟ اذا يوجد ازرار غير مهمة احذفها .. هذا مجرد مثال

اخي طاهر .. خذني على قد فهمي اريدك ترفع مرفق يكون الجدول الخاص بالاقتطاعات خالي اعتقد انه الجدول tbl_Loans كما اظن وتشرح لي بالخطوات اعمل ايه من خلال النموذج .. خطوة خطوة وصورة للنتيجة المفترض الحصول عليها

السلام عليكم اخي طاهر انا ربما اختلف قليلا عن بقية اخوتي الخبراء والاعضاء هنا الغالب هنا يختصرون عليك وعليهم الوقت ويعطونك حل للمشكلة التي تواجهك مباشرة .. ولكن في بعض الاحيان المشكلة اذا لم تعالج من الاصل .. فإنها تولد مشكلات واخطاء تتبعها حينما استعرض مثالك لا يمكنني فهم آلية العمل : خذ ما دار في بالي : اولا لماذا الاقتطاع وتخصيصه شهري 3 و 7 فقط ... يجب ان نفهم لماذا؟ يجب ان يكون الجواب مقنع علما انه ومن خلال الجدول يوجد اقتطاعات في اشهر اخرى لا يخفى عليك . معظم .. بل كل .. عمليات القروض التي تخص العاملين والموظفين في كل الأنظمة يتم اقتطاعها من المرتب شهريا .. الى ان يتم تسديد كامل القرض مثلا اذا الموظف مطالب بتسديد 3000 دينار سنويا .. ستكون الحصة الشهرية 250 دينار تخصم من مرتبه آليا حتى لو هناك قروض اخرى يضاف استحقاقها الشهري في عمود يخصها .. والنتيجة ان الموظف يستلم مرتب شهري صافي بعد اقتطاع المستحق هنا العملية تكون انسيابية ولسنا بحاجة الى اكواد فقط استعلام واحد يقوم بالمهمة . ثانيا لاحظت ان نوع الوظيفة او رقمها يختلف من موظف الى آخر .. الى هنا صحيح ولكن حالاات الموظف تختلف فمسمى الوظيفة يجب ان يكون ثابتا ولا يتغير الا في حال الترقية .. وغالبا مسمى الوظيفة يرتبط فقط في المرتب الاساسي والعلاوات وانت جعلت الوظيفة حالاات يجب ان تكون الحالة في حقل منفصل لا دخل للوظيفة بها مثلا مدير توفي يبقى المسمى مدير ولكن الحالة متوفى وهنا تطبق المزايا والضوابط على الحالة وليس على مسمى الوظيفة ظهر لي هذا الخلل عندما غيرت الرقم في Nr من 1 الى 15 تحولت جميع السجلات الى 15 وهذا ايضا خطأ لأن الواجب ان ما سبق تسديده وقت حياته لا يتغير

تفضل المشكلة لديك ان نوع حقل الترقيم في الجدول لديك رقمي وحينما رغبنا في اضافة رمز توجب علينا تحويله الى نصي Serial number_zero1.rar

الامثلة المعدلة اعلاه كثيرة لو ارفقت الملف الموجود به المشكلة .. ننظر فيه