كل الانشطه

السلام عليكم بشمهندس ابوجودي تم لصق السيريال المرسل . عند عملية اللصق ظهرت ملاحظة ان هذا السريال تم استخدمه من قبل ولكن عند اغلاق النموذج وفتحه من جديد ظهرت ملاحظة انه تم تفعيله حتى تاريخ 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

السلام عليكم الملف المرفق ب عدد 2 شيت الشيت الاول data الشيت الثانى به احصاء ارجوا المساعدة فى الاحصاء فى الشيت الثانى بارك الله فيكم للرفع.xlsx

مشكوووور والله حبيبي ما نتحرم منك يارب

العفو لكم جميع

تقضلوم الملف بالمعادلات المتوافقة مع الاصدارات القديمة لأكسيل و ابت الملف بدون أكواد مع أن الأكواد افضل لأنها تى و إن اضفت صفحات لأشهر جديدة فان الكود سيرحل البيانات تلقائيا . على العموم ابتعدت عن دالة فلتر التي تستخدم في اكسيل 2019 فما فوق 3الحساب.xlsx

المشكلة ان قاعدة البيانات حصل فيها تلف Corruption انا عملت قاعدة جديدة وقمت بعمل استيراد لكل شئ من القاعدة القديمة واشتغلت تمام Fleet.accdb

Fleet.accdb

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

اولا شكرا لكم ولكن هل ممكن او توجد طريق بدون استخدام الماكرو

السلام عليكم ورحمة الله وبركاته الحمد لله وبعد عدة محاولات في اضافة التعديل للشرط تمت العملية وارفق القاعدة للفائدة العامة وتحياتي للبشمهندس ناقل بارك الله فيه كشف الحضور2.accdb