كل الانشطه

بعد التجربة أخي @Foksh رائع جدا جدا شغال بامتياز وبدون مشاكل هذا هو المطلوب بالضبط جزاك الله كل الخير -أمين- كما أتوجه بخالص الشكر والامتنان لأستاذنا @ابوخليل وطريقة التصميم الذي تكلم عنها معه حق- فأنا إمكانياتي البرمجية محدودة فاجتهد وابحث واطرح الأسئلة واستفيد منكم- لتقديم يد المساعدة لزملائي في العمل حاليا هذا العمل يفي بالغرض سأوظفه . و عن قريب إن شاء الله سأجرب جمع معايير التقييم في نمودج رغم اختلاف الأنواع : معلمين - مهنسين لكن يستلزم تعديل الكود الخاص بالأستاذ @Foksh وجعل typ= "مهندسين" أو "معلمين" مرة أخرى جزاكمـــا اللـــه كل الخير وبارك الله فيكما ألف شكر وامتنان

من أول مرة

بعد إذن أستاذى الفاضل / hegazee تم تعديل بسيط للمعادلات إجمالى عدد المزارعين 914 / و/ احمد محمد عبدالله المساحة صفر 1 فئات الانتفاع.xlsx

دى ظهرت من اول مره واللا عند محاولة اعادة التفعيل مرة أخرى ؟

تم ارفاق النتيجة

أولا تم تعديل المعادلة لتكون: =IF(G2="";"";IF(G2<1;"أقل من فدان";IF(AND(G2>=1; G2<3);"من 1 إلى أقل من 3 فدان";IF(AND(G2>=3; G2<5);"من 3 إلى أقل من 5 فدان";IF(AND(G2>=5; G2<10);"من 5 إلى أقل من 10 فدان";IF(AND(G2>=10; G2<20);"من 10 إلى أقل من 20 فدان";IF(AND(G2>=20; G2<=25);"من 20 إلى 25 فدان";"أكثر من 25 فدان"))))))) شرح المعادلة: تستخدم الدالة IF بشكل متداخل لتصنيف قيمة موجودة في الخلية G إلى فئات مختلفة بناء على مدى هذه القيمة مع افتراض أن القيمة تمثل مساحة بالأفدنة تماما مثل إظهار نتيجة الطلاب بالتقديرات IF(G2="";"") إذا كانت الخلية G2 فارغة، فإن الناتج يكون فارغًا أيضا لا يعرض شيء. هذا يجنب ظهور نتائج غير مرغوبة عند عدم وجود بيانات. IF(G2<1;"أقل من فدان") إذا كانت القيمة في G2 أقل من 1 لكن ليست فارغة يعرض: "أقل من فدان". IF(AND(G2>=1; G2<3) إذا كانت القيمة أكبر من أو تساوي 1 ولكن أقل من 3 يعرض: "من 1 إلى أقل من 3 فدان". وهكذا باقي المساحات أما المعادلة =IF(AND(ISNUMBER(D2); ISNUMBER(E2); ISNUMBER(F2)); F2 + E2/24 + D2/576; "") تستخدم لتحويل وحدات الأراضي (الفدان، القيراط، السهم) إلى قيمة عشرية واحدة تعبر عن المساحة الكلية بالفدان. الوحدات المستخدمة في مصر: الفدان (F2) ← الوحدة الأساسية. القيراط (E2) ← 1 فدان = 24 قيراط. السهم (D2) ← 1 قيراط = 24 سهم → إذن 1 فدان = 576 سهم (24 × 24) ثانيا: ملفك الأصلي فيه بعض الملاحظات فهناك صفوف فارغة تماما و أيضا الخلايا فارغة ليس بها أي رقم المفروض نضع صفر في الخلايا الفارغة لتدخل ضمن حساب المعادلة أيضا هناك أسماء لا تملك حتى سهم و بالتالي لا تدخل ضمن الأفراد ذوي الملكية بعد التعديلات ستلاحظ أن العدد مضبوط فئات الانتفاع2.xlsx

يعطي تنبيه انه تم استخدام هذا السيريال مسبقا

هلا والله جرب السيريال 03QI-0500-0000-2I20 وتأكد من هذه الجزئية ربما هناك خلل سوف اعالجه ان شاء الله

أهلا وسهلا أستاذى @ابو جودي 03QI-04KH-06SB-01OE

السلام عليكم بشمهندس ابوجودي تم لصق السيريال المرسل . عند عملية اللصق ظهرت ملاحظة ان هذا السريال تم استخدمه من قبل ولكن عند اغلاق النموذج وفتحه من جديد ظهرت ملاحظة انه تم تفعيله حتى تاريخ 4/9/2025 ومااطمع فيه بشمهندس هو شرح من قبل حضرتك لكيفية استخدامه كحماية وتسلم بشمهندس

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

لو سمحت ممكن شرح لداله =IF(G3="";""; فين الشروط بتاعتها و فكرتها اذاى ؟ ولو تكرمن شرح مبسط للحل

بارك الله فيكم حل جميل و رائع ولكن هناك فرق فى العدد و المساحة المساحة الاجمالية 1380 ف اجمالى عدد المزارعين 915

و عليكم السلام ورحمة الله وبركاته إليك المطلوب فئات الانتفاع.xlsx

جزاكم الله خيرا العملية في كلا الكودين غير منضبطة .. رغم ان الاستاذ ناقل طبق الفكرة 100% المشكلة تبقى في الحدث وتوقيته .. هل بعد التحديث ام قبله .. ام هل عند الادخال او عند التركيز ؟.. فمن هنا يظهر الخلل .. ولا يستقيم لذا نهجت طريقة محكمة .. خارج احداث مربع التحرير 1- انشأت فريم (مربع خيارات متعددة) يحتوي على خيارين وقيمتين 1 ، 2 القيمة 1 تعني جميع البنود ما عدا الزوجي القيمة 2 تعني جميع البنود ما عدا فردي1 وفردي 2 وفي حدث بعد التحديث للفريم ادرجت كود ابي جودي .. لأنه افضل للمطور Private Sub Form_Load() Me.mjal.RowSource = "SELECT ac_id, ac_Name FROM tbl_Mjal WHERE ac_id IN (1,2,4,5)" Me.mjal.Requery End Sub Private Sub Frame1_AfterUpdate() Dim strSQL As String If Frame1 = 1 Then strSQL = "SELECT ac_id, ac_Name FROM tbl_Mjal WHERE ac_id IN (1,2,4,5)" Else strSQL = "SELECT ac_id, ac_Name FROM tbl_Mjal WHERE ac_id IN (3,4,5)" End If Me.mjal.RowSource = strSQL Me.mjal.Requery End Sub الف شكر لكما احبتي الكرام

فقط قم بإزالة الجزء من Or لغاية 0 If IsNull(rs!evalu_moubadara_chaksia) Then

صراحة انا لم أفهم المطلوب هل تريد إخفاء مربعات الإختيار أم تريد تغيير التسميات أم تريد عمل فلتر وتصفية السجلات أم تريد تحديث قيمة الحقل ياريت تبين لنا النتيجة بصورة لنعرف الشكل النهائي المطلوب تحياتي

اشكرك انت الاروع اتفضل سيريال التفعيل 03P8-0500-0000-0U1Z

عمل رائح كنت احتاج هذه الافكار 03P8-04U3-06AE-01T8

وعليكم السلام ورحمة الله وبركاته هلا والله ... حياكم الله اتفضل جرب تفعل بالسريال التالى وأخبرنى النتيجة من فضلك 03PK-0500-0000-0U2B

السلام عليكم بشمهندس ابوجودي تسلم دائما مبدع ان شاء الله 03PK-05QV-0716-01LS

جرب مع تغيير نوع مصدر الصف الى قائمة وتعديل مسمي الكمبو لديك Private Sub cmb_mjal_Enter() Dim currentValue As String currentValue = Nz(Me.cmb_mjal.Value, "") Select Case currentValue Case "فردي1", "فردي2" Me.cmb_mjal.RowSource = "فردي1;فردي2;شامل1;شامل2" Case "زوجي" Me.cmb_mjal.RowSource = "زوجي;شامل1;شامل2" Case Else ' لو لم يتم اختيار شيء بعد، يظهر الكل Me.cmb_mjal.RowSource = "فردي1;فردي2;زوجي;شامل1;شامل2" End Select End Sub

اهلا بيك فى المنتدى وتحت امرك بأى وقت

مش عارف الحل ده ممكن واللا لا انا اساسا مش عارف اذا كنت اساسا فهمت المطلوب Private Sub mjal_AfterUpdate() Dim strSQL As String ' تحديد مصدر السرد بناء على الاختيار Select Case Me.mjal.Column(1) Case "فردي1", "فردي2" ' إخفاء "زوجي" strSQL = "SELECT ac_id, ac_Name FROM tbl_Mjal WHERE ac_Name NOT IN ('زوجي')" Case "زوجي" ' إخفاء "فردي1" و"فردي2" strSQL = "SELECT ac_id, ac_Name FROM tbl_Mjal WHERE ac_Name NOT IN ('فردي1', 'فردي2')" Case Else ' إظهار جميع الخيارات strSQL = "SELECT ac_id, ac_Name FROM tbl_Mjal" End Select ' تحديث مصدر مربع السرد Me.mjal.RowSource = strSQL Me.mjal.Requery End Sub Private Sub Form_Load() ' تعيين مصدر السرد الافتراضي عند تحميل النموذج Me.mjal.RowSource = "SELECT ac_id, ac_Name FROM tbl_Mjal" Me.mjal.Requery End Sub المرفق Database2.accdb

السلام عليكم احبتي اريد عند اختياري من القائمة فردي1 او فردي 2 ان يختفي البند : زوجي والعكس صحيح عند اختياري من القائمة زوجي ان يختفي البندين : فردي1 و فردي 2 اريد الحل بأقصر الطرق .. ان امكن عدم الاستعانة بالجدول tbl_mjal_User Database2.rar