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

تم عمل اللازم كما قال استاذ @kaser906 اتفضل التعديل على النموذج db2.mdb

وعليكم السلام ورحمة الله وبركاتة ضع عنصر التحكم =Date() في خانة التنسيق mmmm/yyyy ::بالتوفيق:: إذا كنت ترى هذه المشاركة مفيدة فلا تنسى التقيم

اعرض الملف برنامج العبادة والطاعة في رمضان اضع بين ايديكم برنامجي الذي قمت بتصميمه بالاكسل والذي يعمل على جعلك تستغل وقتك في طاعة الله بالاضافة الى قياس الاداء خلال هذا الشهر المبارك، وارجو من الجميع العمل على مشاركة الملف وارساله الى اكبر عدد ممكن للاستفادة منه ، وهذا الامر لا يقتصر على شهر رمضان فقط بل يمتد الى باقي ايام السنة ، ولا تنسونا من دعائكم صاحب الملف ISAMD1972 تمت الاضافه 13 ماي, 2018 الاقسام قسم الإكسيل

بسبب أن لديك حقل id بالجدولين بنفس الاسم ولكي لا نقوم بتعقيد الكود ضع هذا الكود في مصدر عنصر التحكم بالتقرير مباشرة =Nz(DSum("[txtadd]";"t_data";"[txtname]=[nameID] and [txtkin]='Annual'");0) إذا كنت ترى أن هذه المشاركة مفيدة فلا تنسى التقيم

اساتذتي الافاضل الاستاذ الفاضل kaser906 والاستاذ الفاضل شيفان ريكاني جزاكما الله خيرا شكرا جزيلا لكما نعم هذا هو المطلوب بارك الله فيكما ربي يحفظكما يارب

في حالة وجود شرطين استخدم هذه المعادلة =SUMPRODUCT(LARGE(--($B$2:$B$21=I2)*--($A$2:$A$21=H2)*$C$2:$C$21,1))

تفضل Annual : Nz(DSum("[txtadd]";"t_data";"[txtname]=[txtname] and [txtkin]='Annual'");0) إذا كنت ترى أن هذه المشاركة مفيدة فلا تنسى التقيم Vacation.k.906.1.rar

الف شكر استاذ علي

صديقي العزيز @kanory ادخل التاريخ واكبس على تحديث ترى النتائج صحيحة

بعد اذن الأستاذ شريف MAXIF-1.xlsx

أخي عبداللطيف .... برنامج جيد .... ولي ملاحظة حبذا استخدمت NZ في هذه الحفول ايضا بدل رسائل الخطأ أيضا لو أضفت أخذ نسخ احتياطية للبرنامج

=LARGE(IF((B2:B21=I2),C2:C21),1)

أين سيتم التجميع نموذج استعلام تقرير ماهو اسم الحقل الذي يحتوي على البيانات المراد تجميعها وفي اي جدول ::بالتوفيق:: إذا كنت ترى أن هذه المشاركة مفيدة فلاتنسى التقيم

مجموعة الخيارات سميناها etar هذا الاطار ممكن نجعله بدون قيمة بحيث لما نفتحه تكون الخانات خالية او اننا نعطية قيمة تساوي احد قيم الخانات الموجودة فلما نفتح النموذج نشاهد ان احد الخانات تم التأشير عليها ولكن عند التحديث فهذا الاطار ياخذ قيمة الخانة التي تأشر عليها وعندنا خانتين واحدة قيمتها=1 والثانية = 2 فلما نأشر على الخانة الاولى يصبح قيم الاطار etar=1 وهذا الكلام يفسر لك الكود اللي عملناه : If etar = 1 Then Me.esthkak = Me.agra - (Me.GiapNum * 11666) ElseIf etar = 2 Then Me.esthkak = Me.agra - (Me.GiapNum * 11290) End If

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

تفضل استاذى الفاضل تحيل_النتيجة_تيرم_ثان_-_العبور_الابتدائية_بخفرع___2018.xls

بارك الله فيك وجعله فى ميزان حسناتك

تفضل أخى الكريم 1256.xlsm

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

فقط نغير الجدول المصدر باسم الاستعلام نفسه ليصبح الكود my_outo_num: DCount("code";"HB_Q";"code <=" & [code]) والمثال اضطررت لنقله الى جهاز آخر للتعديل عليه Lab 2019.rar

ماشاء الله أستاذ محدى يونس جعله الله في ميزان حسناتك

بسم الله الرحمن الرحيم اخوانى اصدقائى اعضاء المنتدى الكرام السلام عليكم ورحمة الله وبركاتة اقدم لكم اليوم درس جديد فى vba ودة كان ردا على سؤال احد الاخوة https://youtu.be/jLLXfCYzCvE فتح الشيتات من خلال الكومبو بوكس.rar