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

السلام عليكم معكم ساجدة العزاوي من العراق اول مشاركة لي في المنتدى فديو مميز سهل رائع لاقى صدى واسع ينفع للكل للمدارس لدوائر الدولة للقطاع الخاص فديو عملته بـ 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

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

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

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

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

اللهم آمين

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

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

اللهم آمين

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

السلام عليكم ورحمة الله وبركاته .. تم تطبيق الدالة بنجاح .. أخي Khalf والفضل لله ثم لمجهودك بارك الله فيك وجزاك الله خير😘

الله يعطيك العافية استاذ خالد

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

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

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

السلام عليكم UPDATE.accdb

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

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

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

وعليكم السلام-لك ما طلبت Data Entry.xlsm

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

جزاك الله كل خير استاذ منير

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

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

يمكنك التغيير كما تشاء فيه اذا وجدت كلمة سر فستكون : 123 برنامج تسيير المطعم المدرسي.xls

احسنت استاذى الكريم جزاك الله كل خير

بعد فتح محرر الأكواد كليك يمين على الفورم ثم Remove كما بالصورة

تفضل اخى الكريم Sub Importsheet() Dim Importsheet As Worksheet Sheets.Add Type:= _ "C:\Users\ali mohamed\Desktop\Testing1.xls" End Sub

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

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