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

السلام عليكم معكم ساجدة العزاوي من العراق اول مشاركة لي في المنتدى فديو مميز سهل رائع لاقى صدى واسع ينفع للكل للمدارس لدوائر الدولة للقطاع الخاص فديو عملته بـ 8 اجزاء ولما شفت كثيرين استفادوا منه عملت فديوين بعنوان في الاكسل متعة وسعادة وفرح فاصبح 10 اجزاء وساكمله باجزاء اخرى ... لانه رائع ومميز وسريع هناك من يريد تنسيبه لنفسه اترككم مع الفديو بحث بالاسم في TEXTBOX فيتم الفلترة الى LISTBOX وثم الى TEXTBOXES اكسل ساجدة العزاوي

اذا قدرت تتخطى الحماية -- مسامحك بالبرنامج محاسبة شركات مع ضريبة محمي بثلاث طرق محاسبة شركات تجريبي.rar

اذا كان التاريخ المطلوب تحديد الاحد السابق و التالي له موجود فى الخلية D3 كما فى المثال المرفق ( الخلايا باللون الاصفر) معادلة الاحد السابق تكون: =IF(D3="","",D3-MOD(D3-1,7)) و معادلة الأحد التالي تكون: =IF(D3="","",D3+7-MOD(D3-1,7)) و طبعا يمكن تغيير المعادلة لترجع اي يوم اخر مرفق المثال للسهولة Officena Sundays.xlsx

الله يشفيه وينطيه الصحة والعافية ويقوم بالسلامه

بارك الله فيك استاذ احمد وندعو الله جميعا له بالشفاء العاجل وان يرده الله لنا سالماً غانماً وبكل صحة وسعادة وان نسأل الله ان يشفى كل مرضانا ويرحم كل موتانا

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

السلام عليكم 🙂 هناك الكثير من الميزات/الاوامر التي يعطينا برنامج الاكسس ، والتي يمكن ان نعمل لها بديل ، ولكن يكون هناك فرق في سرعة تنفيذ كودنا مقارنة مع الكود الاصل من الاكسس !! مثل القائمة المختصرة التي تظهر لنا بالنقر على زر الفأرة الايمن ، والتي بها يمكننا ان نستغني عن الكثير الاوامر ، مثل الفرز والتصفية بأنواعه ، ولكن وللأسف الشديد ، فأنا ارى ان 99.99% من البرامج ، يتم حذف هذه القائمة وعدم تفعيلها ، والسبب ان المستخدم يستطيع ان يدخل في تصميم النموذج من خلال هذه الاوامر(في الدائرة الحمراء) : و . ويضطر المبرمج ان يعوض بقية الاوامر في القائمة ، بمجموعة من الازرار ، او بطرق مختلفة !! ----------------------------------------------------------------------------------------------- الاكسس يسمح لنا ان نعمل قوائم مختصرة Shortcut Menu والتابعة لمجموعة CommandBars ، حسب احتياجنا ، ونختار ما نضعه فيها 🙂 هناك 3 انواع من هذه القوائم : الثابته ، والمؤقته ، والمؤقته التي تحتاج الى كود. الثابته: وهي التي عندما نعملها ، تصبح مستقله عن الكود ، وتُحفظ وتبقى في قاعدة البيانات بعد إغلاقها ، ويمكننا ان نستوردها في قاعدة بيانات اخرى عندما نستورد احد/جميع كائنات قاعدة البيانات الآخرى ، بإستخدام : . ونختارها في النموذج : . او التقرير : . هذا مثال لعمل الكود الاساس لعمل قائمة قطع/نسخ/لصق : Option Compare Database Option Explicit Dim cmb As Object Dim cmbCtrl As Object Dim cmbName As String ' ' ' to use: ' Dim cbr As Commandbar ' Dim cbrButton as CommandbarControl ' ' we have to select in the References: ' Microsoft Office xx.x Object Library ' Public Function SCM_Copy(Optional DeleteMe As Boolean = False) On Error Resume Next 'If menu with same name exists delete cmbName = "cmb_Copy" CommandBars(cmbName).Delete If DeleteMe = True Then Exit Function If Err.Number <> 0 Then Err.Clear Set cmb = CommandBars.Add(cmbName, msoBarPopup, False, False) With cmb .Controls.Add msoControlButton, 21, , , False ' Cut .Controls.Add msoControlButton, 19, , , False ' Copy .Controls.Add msoControlButton, 22, , , False ' Paste End With Set cmb = Nothing End Function . وشرح الكود : 1. اسم القائمة المختصرة ، والتي سوف نختارها في النموذج او التقرير ، 2. هذه المجموعة الاساس منبثقة Popup ، 3. بينما هذه المجموعات عبارة عن ازرار Buttons ، وقد تكون قائمة منسدلة Combobox ، او نص Edit نُدخل فيه قيمة معينة للتصفية مثلا ، 4. هل هذه القائمة مؤقته ؟ False معناها ثابته وتُحفظ في قاعدة البيانات ، بينما True معناها انها مؤقته وتعمل لما ننادي الوحدة النمطية/الكود ، 5. هذه ارقام كل امر ، وملف الاكسل المرفق من مايكروسوفت فيه جدول يضم جميع ارقام الاوامر للاكسس 2010 () ، 6. اذا اردنا ان نحذف هذه القائمة ، فننادي الوحدة النمطية بضم True في امر المناداة المؤقته: ونستعمل True في مكان الرقم 4 اعلاه. وهي التي عندما نعملها ، لا تصبح مستقله عن الكود ، ولا تبقى في قاعدة البيانات بعد إغلاقها ، ولا يمكننا ان نستوردها في قاعدة بيانات اخرى عندما نستورد احد/جميع كائنات قاعدة البيانات الآخرى (كما هو الحال مع القائمة الثابته) ، ويجب ان نستخدم "حدث فتح" النموذج/التقرير لعملها واستخدامها في النموذج/التقرير ، و "حدث اغلاق" النموذج/التقرير لحذفها ، طيب ، خلونا نعمل هذه القائمة : Public Function SCM_Copy_Sort(Optional DeleteMe As Boolean = False) On Error Resume Next 'If menu with same name exists delete cmbName = "cmb_Copy_Sort" CommandBars(cmbName).Delete If Err.Number <> 0 Then Err.Clear Set cmb = CommandBars.Add(cmbName, msoBarPopup, False, False) With cmb Set cmbCtrl = .Controls.Add(msoControlButton, 21, , , False) ' Cut cmbCtrl.Caption = "Cut..." cmbCtrl.FaceId = 21 Set cmbCtrl = .Controls.Add(msoControlButton, 19, , , False) ' Copy cmbCtrl.Caption = "Copy..." cmbCtrl.FaceId = 19 Set cmbCtrl = .Controls.Add(msoControlButton, 22, , , False) ' Paste cmbCtrl.Caption = "Paste..." cmbCtrl.FaceId = 22 Set cmbCtrl = .Controls.Add(msoControlButton, 210, , , False) 'Sort Ascending cmbCtrl.BeginGroup = True cmbCtrl.Caption = "فرز تصاعدي..." cmbCtrl.FaceId = 210 Set cmbCtrl = .Controls.Add(msoControlButton, 211, , , False) 'Sort Decending cmbCtrl.Caption = "فرز تنازلي..." cmbCtrl.FaceId = 211 End With Set cmb = Nothing End Function . وشرح الكود: احنا توسعنا في الكود الاساسي ، واضفنا له : 1. تسمية اختيارية غير الافتراضية ، لاحظ في الصورة اعلاه اني استعملت الانجليزي والعربي ، 3. وهو لعمل خط فاصل في الصورة بين مجموعة قطع/نسخ/لصق ومجموعة فرز تصاعدي/تنازلي ، . 2. ممكن ان نبدل الصورة الافتراضية التي تيجي مع الرقم ، بتبديل هذا الرقم (لاحظ صورة الاسهم للتصاعدي/التنازلي) : . ومرفق ارقام جميع الصور الموجودة في الاكسس : . . . . . . . . . . . في قاعدة البيانات المرفقة myRight_Click.mdb ، بالاضافة الى القوائم الثابته اعلاه ، تم اضافة هذه القائمة ايضا : . والتقرير يحتوي على القائمة المؤقته التالية : . - ملف الاكسل myList.xlsx ، اخترت فيه اهم القوائم في وجهة نظري ، - ملف الاكسل AccessControls_2010.xlsx ، من مايكروسوفت ، يحتوي على جميع الاوامر 🙂 جعفر المصادر: http://dev-soln.com/access-shortcut-right-click-tool/ https://www.experts-exchange.com/articles/12904/Understanding-and-using-CommandBars-Part-II-Creating-your-own.html https://filedb.experts-exchange.com/incoming/2014/02_w06/833359/CommandBars-II.mdb https://www.experts-exchange.com/articles/18341/CommandBars-Part-III-Using-Built-in-Shortcut-Menus.html http://www.skrol29.com/us/vtools.php AccessControls_2010.xlsx myList.xlsx myRight_Click.zip

السلام عليكم ورحمه الله وبركاته بالسؤال على احد اخواننا وبلغنى انه قد قام بجراحه قلب مفتوح فاسالكم الدعاء لاخينا بالشفاء وان يرجع الينا بالسلامه ان شاء الله واسال الله له ولجميع اخواننا واخواتنا وجميع مرضانا ومرضى المسلمين بالشفاء والعافيه باسمه الشافى هو ولى ذلك والقادر عليه واسال الله لكم العفو والعافيه باذنه وفضله

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

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

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

عليكم السلام و رحمة الله و بركاتة تفضل اخى الفاضل لك ما طلبت officna.xlsx

هذا ملف محول الى accde وتم تعديل ملحق الاسم الى accdb

وعليكم السلام ورحمة الله وبركاته الكود يعمل بدون مشاكل برجاء توضيخ اكثر للمشكلة تحياتي

بارك الله فيك وزادك الله من فضله

أحسنت استاذنا الكبير عمل رائع بارك الله فيك وزادك الله من فضله

اسأل الله العلي القدير ان يشفيه شفائاً عاجلاًغير اجلاً اللهم امين يارب العالمين

فقط عليكى اضافة المعادلات الموجود بالعمودين K & L من صفحة 26-12-2019 to 25-01-2020 واجعليهم فى كل صفحة جديدة يتم لصقها بالملف واتركى كل شيء كما هو فى ورقة 2

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

ربنا يتم شفاه ويرجع بالسلامة

وعليكم السلام مشاركه مع اخى @ابو البشر جزاه الله خيرا اخى نبيل ادخل التاريخ ثم اضغط الزر حدث جرب ووافنا بالنتيجه تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق تصفية بالعمر1.rar

نسأل الله العظيم رب العرش العظيم ان يشفيه ويعافية ويشفي ولا يرى مكروه

الله يشفيه ويجعل ما اصابه في ميزان اعماله

اهلا ومرحبا بك اخى على عودا حميدا والف حمدالله على السلامه كم سرنى رؤيه مشاركتك 😀

السلام عليكم الاستعلام الذي تريده هو نفس الجدول فانشا استعلام من الجدول ثانيا لا يمكن بناء استعلام من استعلامات اخرى غير متساوية بعدد السجلات فان النتائج ستكون خاطئة

اللهم آمين

وعليكم السلام ورحمه الله وبركاته أَمَّن يُجِيبُ الْمُضْطَرَّ إِذَا دَعَاهُ وَيَكْشِفُ السُّوءَ اللهم شافه بشفائك وداوه بدوائك انك على كل شي قدير

اسأل الله العظيم رب العرش العظيم ان يشفيه ةيشفى مرضانا ومرضى المسلمين اللهم آمين

اللهم آمين

اسأل الله العظيم رب العرش العظيم ان يشفيه ويعافية ويشفي جميع مرضانا ومرضى المسلمين

اللهم آمين وجميع مرضى المسلمين يارب العالمين يامن انت اعلم بهم منا شفاء لا يغادر سقما

تمام بالنسبة لزرار تعديل البيانات

هلا وغلا أخوي الحبيب أبو بسملة يعلم الله كم سررت بالمبادرة الطيبة بالسؤال عني جراكم الله خيرا على هذه المبادرة الطيبة التي تعبر عن أخلاقكم النبيلة واصلكم الطيب. أسال الله تعالى ان يحفظكم ويجعلكم في أمنه وأمانه ويرزقكم البركة في العمر والاهل والولد وغغر الله لكم ولوالديكم ولمن تحبون.

لا ولا يهمك بالنسبة للعمود C ليس له لزوم ، كنت أستخدمه مؤقتا أثناء الحل الخلية G2 بالفعل بها عدد أيم الجمعة في الفترة المطلوبة (أي في ذلك المثال من 26-12-2019 إلي 25-01-2020 ، أوتوماتيكيا ينتج عدد أيام الجمع

السلام عليكم ورحمة الله تم تصحيح الخلل بالتعديل على معادلات استخراج أيام الغياب خلال الشهر التي كانت تعطي أرقاما بتنسيق "النص" حيث قمت بضرب نتائج المعادلات النصية بالعدد 1 لتصبح أرقاما... أرجو أن تفي المطلوب... بن علية حاجي تقرير شهري للمعلم.xlsm

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

ممكن نسخة على اوفيس 2003 او 2007 ؟؟

بالخمة استاذي العزيز

وهذا زر طباعة الفورم على ورقة A4 القاعدة.xlsm

بارك الله فيك وجزاك الله خير الثواب

ارفق لكم الملف التالي في هذا الملف يقوم اولا بترحيل البيانات من SHEET الجدول الى باقي الشيتات الاخرى في SHEET " SH3" يوجد فيه صفحتين للطباعة المطلوب كود ليقوم بطباعة الصفحتين على صفحة واحدة ( من الامام والثانية من الخلف لنفس الصفحة( شاكر لكم تعاونكم طباعة الشهادات جديد - Copy.xlsm

تفضل التعديل اخي العزيز Root13.rar

فورم تشغيل ملف صوتى للقران الكريم الفيديو

تفضل أخي الملف به حتي 9 ملفات وليس 5 فقط المعادلات في العمود AB باللون الأحمر تحدد مكان الملف الرئيسي والذي يجب أن تكون الملفات الفرعية بنفس المجلد (الفولدر) العمودان Z,AA باللون الأزرق يمكنك نعديل أسماء الملفات بها الأعمدة المخفية بين G & Z باللون الأصفر بها معادلات تعتمد علي أن الملفات الفرعية مفتوحة أرجو أن يكون هذا هو المطلوب ABC.xlsx E.xlsx D.xlsx C.xlsx B.xlsx A.xlsx

اهلا بك القاعدة مضغوطة بملف رار لانها لم تتحمل للموقع بسبب الحجم اذا لم يكن لديك ملف ضغط الرار يمكنك تحميلة من الموقع الرسمي https://www.win-rar.com/download.html?L=0 تحياتي لك

السلام عليكم أستاذ جعفر موضوع في قمة الروعة ملاحظة صغيرة في الكود الموضوع بالأعلى : هناك بعض المتغيرات غير مصرح بها مع أنها موجودة في المرفق لكن من يريد تطبيق الكود بشكل مباشر من المشاركة سوف يظهر له خطأ. Public Const msoBarPopup = 5 Public Const msoControlButton = 1 Public Const msoControlEdit = 2 Public Const msoControlComboBox = 4 Public Const msoButtonUp = 0 Public Const msoButtonDown = -1 أخيرا لي الشرف العظيم أن أقوم بتثبيت هذا الموضوع

في الفترة السابقة قمت بتطبيق هذة الفكرة للتحكم بمستويات الصلاحيات واحببت اليوم مشاركتها معكم لتعم الفائدة واستفيد من اي مقترحات وملاحظات على هذة الطريقة الفكرة: ان يتم تحديد الصلاحية لكل مستخدم ولكل نموذج او تقرير من حيث فتح النموذج او التقرير ، اضافة سجل جديد ، حذف سجل ، تعديل السجلات التطبيق : انشاء جدول للمستخدمين (رقم المستخدم ، اسم المستخدم وكلمة مرور) انشاء جدول للصلاحيات يحتوي على رقم متسلسل ، رقم الموظف، اسم الكائن ، .... وبعد ذلك اي صلاحية تريدها مثل صلاحية فتح، صلاحية تعديل، صلاحية اضافة ،صلاحية الحذف * الجداول مرتبطة ببعضها عن طريق رقم المستخدم انشاء نموذج للدخول الى البرنامج (اسم مستخدم وكلمة مرور) انشاء نموذج للتحكم بالصلاحيات مستند الى جدولي المستخدمين والصلاحيات انشاء وتعميم وظيفة لتطبيق الصلاحية عند فتح نموذج او تقرير باسم Privilege الية العمل: عند الدخول باسم مستخدم صحيح سيتم تخزين رقم المستخدم الحالي في متغير اسمة UsrID وبعد ذلك عند فتح اي نموذج او تقرير يتم استدعاء الوظيفة Privilege للتحقق من ان لهذا المستخد صلاحية فتح نموذج ام لا واذا كان لا فانه ستظهر رسالة بانه لا يملك الصلاحيات ، كما سيتم قبل ان يفتح النموذج ثم سيتم التحقق من ان له صلاحية التعديل ام لا وعندها سيتم تفعيل التعديل او تعطيله حسب الصلاحية ...وهكذا طريقة تعديل واضافة الصلاحيات: تم اضافة نموذج للتحكم بالصلاحيات يتم من خلاله تحديد اسم المستخدم وتحديد اسم النموذج ثم يتم اختيار صلاحيات هذا المستخدم على هذا النموذج وبخصوص قائمة النماذج والتقارير تم استخدام جدول النظام MSysObjects فيديو يوضح الطريقة https://youtu.be/AmfpDgLWUBg الصلاحيات حسب المستخدم و نوع الكائن .rar

المثال موجود فى قسم التقارير http://www.officena.net/ib/index.php?showtopic=1222 حيث أنه به نفس الخاصية للتقارير و المثال من هنا http://www.officena.net/ib/index.php?act=A...pe=post&id=6315

السلام عليكم ورحمة الله وبركاته تفضل اخي الكريم هذه هي النسخة المعدلة تحياتي مثال.zip