ابوخليل

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

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

السبب هو المعيار في الفلترة انا وضعت Like "*" لذا يظهر اي رقم يحتوي على 2 لو تحب يكون الفورم خالي عند الفتح ويعرض فقط عند الاختيار : شيل Like ومرفقاتها من المعيار

من الاشياء التي تم تصحيحها : كان موجود كود يعيد اي تاريخ من هذا الشهر الى اليوم الأول وهذا يعتبر عمل غير موافق للحقيقة .. اذا الادخال في يوم 15 يجب ان يسجل في 15 لذا جعلت الكود يقبل التسديد في اي يوم من الشهر فالعمدة هو الشهر الحالي .. لا فرق بين اوله وآخره

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

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

👿 !!! ؟؟

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