نجوم المشاركات

تفضل استاذ @canary2522 محاولتي حسب مافهمت . الشرح والمرفق DDT502.rar

ادخال معلومات بالاختيار من ليست بوكس للجدول واصدار تقرير متعدد الاختيارات . المرفق متاح ومفتوح المصدر لكل مايريد استخدامه أو استخدا مابه ... DDChoseMulty Items to Report.rar

وانت في صحة وسلامة ..... اللهم بلغنا رمضان ونحن والمسلمون في صحة وعافية وعزة ( ملاحظة انت ذكرتني بها ) زر التحديث المعمول في الموضوع السابق وهي احتساب يوم غياب .... قد تحتاج الى تعديل ( لان الاحتساب هل يتم على اساس سنوي أو تحسب في جميع السنوات يعني انا موظف تاخرت يومين العام الماضي وتاخرت يوم لهذه السنة ... هل تحسب ثلاث ايام تاخر أم يومين وعفى الله عما سلف ) عموما تم تعديل المرفق حسب طلبك ( اي تعديل التقرير بحيث يظهر حسب شرطين _ السنة _ الشهر ) .... تفضل التقرير الشهري للغياب.accdb

بناءً على ما تقدم به أستاذنا @أبوبسمله ، أعتقد ان الصارة النافعة التي تتحدث عنها هي بسبب فتح النموذج بشرط تصفية على سجل محدد . والثانية هذا أمر طبيعي كون النموذج لا يعرض البيانات التي اختفت في نموذج فرعي .

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

واياكم اخى اعلم بانه اجتهاد من خلال ردك (طبعاً من تصوري لجملة الدالة DLookup ) ولذلك قلت بانه يوحى لانه نص جزاك الله خيرا ع ما تقدمه لاخوانك من مساعدات جعلها الله فى ميزان حسناتك

شكراً جزيلا لمن تفاعل ولمن شكر أما من له طلب خاص ياريت يكون بمشاركة جديدة حتى لايغلق الموضوع من ادارة المنتدى .

السلام عليكم ورحمة الله وبركاته اهلا بشمهندس Barna .الحمد لله رب العالمين .جربت ونفس الاشكالية موجوده بعد تدخل الشهر والسنة تخرج نتائج التقرير كاخر نتائج تم الوصول اليها - بمعني لو ادخلت شهر 3 سنة 2024 تخرج في التقرير النتائج السليمة الموجودة غيابا وغياب تاخير تم عندما تقفل نموذج وتفتحه مرة اخرى وتضع شهر 3 سنة 2025 تخرج نتائج التقرير كنتائج شهر 3 سنة 2024 وهكذا كلما غيرت في السنة تخرج نفس النتائج بارك الله فيك وكل سنة وانت طيب وكل الاخوة اعضاء المنتدى بمناسبة شهر رمضان شهر الصيام والقران

جزاك الله خيرا اخى @Foksh ع التوضيح للاخ السائل وحقيقه لااعلم سبب التعارض ولاكن استكفيت بفتح النموذج بشرط ع السجل المطلوب وهو ما قام بايقاف الازرار لانه لا يوجد غير سجل واحد بالنموذج بالنسبه للحذف قم بغلق النموذج بعد الحذف وقبل اغلاق الرساله مع عمل ريفرش للنموذج المفتوح بالخلف عند العوده بالتوفيق

وعليكم السلام ورحمه الله وبركاته وكل عام وانت وجميع الامه الاسلاميه بخير اتفضل بالتوفيق DATE_1.accdb

جرب الان ...................... التقرير الشهري للغياب.accdb

تفضل استاذ @jo_2010 طلبك . ProgressBar HOrV.rar

اضافة لما تفضل الاخ محمد ضع حدث اغلاق النموذج بعد فتح التقرير وفي التقرير عند الاغلاق ضع حدث فتح النموذج

شغل محترفين ما شاء الله 😉👌🏻 🌹🌼

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

وعليكم السلام ورحمة الله وبركاته اليك الحل ان شاء الله ولكن ياريت في المرات القادمة ارفاق النمطلوب في ملف الإكسل تلوين خلية.xlsx

بارك الله فيكم استاذى Foksh

جزاك الله خير أخوي @أبوبسمله ، الفكرة كانت اجتهاد للأسف ودون فتح الملف لأنه في ذاك الوقت ما كنت عند الكمبيوتر

vbn Function IRG2022_New(moTr) Dim abat As Double moTr = (Int(moTr / 10)) * 10 If moTr <= 30000 Then IRG2022_New = 0 Else Select Case moTr Case 20000 To 40000: IRG2022_New = (moTr - 20000) * 0.23 Case 40001 To 80000: IRG2022_New = 4600 + (moTr - 40000) * 0.27 Case 80001 To 160000: IRG2022_New = 15400 + (moTr - 80000) * 0.3 Case 160001 To 320000: IRG2022_New = 39400 + (moTr - 160000) * 0.33 Case Is > 320000: IRG2022_New = 92200 + (moTr - 320000) * 0.35 End Select abat = IRG2022_New * 0.4 If abat < 1000 Then abat = 1000 If abat > 1500 Then abat = 1500 IRG2022_New = Round(IRG2022_New - abat, 1) '1= Normal 2= Handicape ' If m = 0 Then If moTr <= 35000 Then IRG2022_New = Round(IRG2022_New * (137 / 51) - (27925 / 8), 1) ' End If ' If m = 1 Then ElseIf moTr < 35001 Then IRG2022_New = Round(IRG2022_New * (93 / 61) - (81213 / 41), 1) ' End If End If End If End Function

وعليكم السلام 🙂 إجعل مصدر البيانات استعلام وقم بتصدير البيانات من الاستعلام ، ثم اطلع على هذا الموضوع :

السلام عليكم ارجو المساعدة في حل مشكلة ارسال رسائل واتس اب من اكسل... قمت بتحميل البرنامج من المنتدى ولكن لم يقم بتنفيذ الامر وتظهر الرسالة .. مع التقدير ارجو Send Via Whatsapp (2).xlsm

أخي الكريم أنا ناس ... أكيد أنا ناس (مش حاجة تانية) أولاً هتحتاج خلية من خلايا ورقة العمل أي خلية تعجبك .. وليكن هشرح على الخلية O1 حدد الخلية روح للتبويب Data ثم Data Validation واختار من القايمة List عشان تعمل قايمة واكتب في مستطيل الـ Source كلمتين ON و OFF ON,OFF تمام .. قووووووووول تمام (مقلتش على فكرة وأنا سامعك) روح بقا للتبويب الأول Home وروح للتنسيق الشرطي Conditional formatting واختار New Rule ومن النافذة اللي قدامك (ركز وصحصح واصحى) اختار آخر خيار Use a formula to determine ...... وضع المعادلة التالية في المستطيل الكبير اللي على يمينه علامة حمرا =IF($O$1="OFF",TRUE,FALSE) طبعاً لو فيه رسالة خطأ طلعت لك ابقا استبدل الفاصلة بفاصلة منقوطة .... اضغط OK .. وكمل معايا >>>>>>>>>>>>>>>>>>>>> ادخل مرة تانية على التنسيق الشرطي بس المرة دي اختار Manage Rule عشان هنغير حاجة بسيطة كدا اختار من القايمة This worksheet عشان تظهر لك كل المعادلات الخاصة بالتنسيق الشرطي في كل ورقة العمل لما تبص على معادلاتك هتلاقي إن المعادلات مرة بتنطبق على العمود A ومرة على العمود B ومرة على العمود C ..بكدا نفهم إننا لازم نعمل نطاق يلم الثلاثة أعمدة وليكن النطاق A2:C1503 .... نحدد المعادلة بتاعتنا الجديدة (ملناش علاقة بمعادلاتك القديمة) نحدد ونيجي في صندوق Applies to ونكتب النطاق =$A$2:$C$1503 هتلاقي مربع في ناحية اليمين هتعلم عليه علامة صح Stop If True وأخيراً اضغط OK بس خلاص ... جرب بقا روح للخلية O1 واختار مرة ON ومرة OFF ولاحظ التغيير أرجو أن أكون قد أفدتك تقبل تحياتي