كل الانشطه

متشوق جدا جدا لمشاهدة اللقاء

🌷 لقاءات أكسس العرب الافتراضية | 03 | 🌷 موضوع اللقاء : مهارات وفنيات تصميم النماذج واختيار الألوان وتنسيق العناصر رابط اليوتيوب: ★ روابط اللقاء الثالث ★ ○ موقع إلهام : https://www.pinterest.com https://www.freepik.com ○ مواقع اختيار الألوان : https://coolors.co https://colorhunt.co https://www.materialpalette.com https://coolors.co/gradients ○ مواقع الأيقونات : https://icons8.com/icons https://www.flaticon.com https://icon-icons.com/ https://www.iconarchive.com/ https://flaticons.net/free-icons ○ مواقع صور PNG : https://www.cleanpng.com https://www.pngwing.com https://www.seekpng.com ○ مواقع صور خلفيات : https://www.pexels.com https://www.freepik.com/free-photos-vectors/background https://pixabay.com https://www.vecteezy.com/free-photos/background https://stocksnap.io/search/background ○ مواقع الخطوط : https://fonts.google.com https://arbfonts.com خطوط رسومية : https://www.vertex42.com/ExcelTips/unicode-symbols.html https://www.ssec.wisc.edu/~tomw/java/unicode.html ○ مراجع مهمة : https://elshemy.me/content/2025_8/Access_UI_UX_ِGuide.html ★ روابط تهمك ★ ❀ ملفات اللقاءات الافتراضية : ○ https://shorturl.at/mR2T3 ○ اللقاء الأول : https://drive.google.com/drive/folders/1wiMVugVZNzU9eaJ9abX-YfqhhSG6_Ec5 ○ اللقاء الثاني : https://drive.google.com/drive/folders/1EcaTZBp0rhmxhm7c_NKOg6BC-O89DS4W ○ اللقاء الثالث : https://drive.google.com/drive/folders/1VX4an_hg3ZdX-Q9_MlNNPoCzkCN6b98d ○ برمـجيـات - أدوات - إضـافـات : https://drive.google.com/drive/folders/1RtmH-cuk1rpj0zKkUNPbQz681oqKVNo3 ○ مجلد ورش العمل المشتركة : https://drive.google.com/drive/folders/1LL5_hsElZR4zQv62Wt1TxU2_M8Gv1Jja ❀ رابط الانظمام لمجموعة الأكسس جروب (واتسأب) : https://chat.whatsapp.com/HQvOPGrkASM2guvAotHXCw ❀ قناة أكسس العرب (اليوتيوب) : http://www.youtube.com/@ArabAccessGroup ❀ مواضيع اللقاء : المقدمة الإلهام البصري pinterest الإلهام البصري Google اختيار الألوان المناسبة تطبيق الألوان على قاعدة البيانات الأيقونات النصية الأيقونات الأيقونات - برنامج Pichon إضافة الصور المفرغة PNG تصميم الواجهات عن طريق PowerPoint حفظ التصميم من الباوربوينت واستيراده إلى الأكسس تصميم نموذج تسجيل الدخول إضافة التفاعل البصري للعناصر تفاعل بصري بالتنسيق الشرطي التأثيرات البصرية التي تطبق على الأزرار الخطوط في النماذج وتنسيقاتها الأنماط اللونية أنماط الخطوط مشاهدة ممتعة 😊🌷

بحمد الله تم حل المشكلة انا الان اتصفح من الجوال ابشروا ان شاء الله قريبا اضع المرفق النهائي

الله ينور عليك. جزاكم الله خيرا

بعد التجربة أخي @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