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

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

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

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

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

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

اللهم آمين

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

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

اللهم آمين

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

الحل ان تجعل البحث يغتمد على حقل فريد لا يمكن تكراره مثالك يحتوي على حقل فريد فعلا باسم = المعرف ثم يتم تعديل مربع تحرير وسرد ليكون عمودين ثم يتم تعديل الكود كالتالي Dim Rs As Object Set Rs = Me.Recordset.Clone Rs.FindFirst "[المعرف] = " & Str(Me![CmboStud1]) If Not Rs.EOF Then Me.Bookmark = Rs.Bookmark End If مثال_5.rar تحياتي

اعمل استعلام تحديث واختار الحقل وفى تحديث الى ضع الكود التالى مع تغيير text الى اسم الحقل لديك IIf(IsNull([text]);0;[text]) تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق

السلام عليكم جرب الأداة المقدمة في الرابط التالي (والذي أخذت منه نص الموضوع -هو الموضوع ذاته والصورة نفسها-): https://www.officena.net/ib/topic/63283-طلب-حل-لـ-مشكلة-الإرتباط-التشعبي-في-الـ-excel/ أرجو أن تفي الغرض المطلوب...

لا اخي ابا محمد اقصد المحمي فقط بكلمة سر وليس المحول الى accde

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

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

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

السلام عليكم طريقة استدعاء الوحدة النمطية في التموذج او الاستعلامات سهل جدا / فقط اكتبي اسم الوحدة النمطية او تضعي قبل اسمها call في الوحدة النمطية (Age Calculation) ثلاث دوال الدالة الاولى: خاصة بحساب السنوات /اسمها / CalcAgeY الدالة الثانية: خاصة بحساب الاشهر / اسمها / CalcAgeM الدالة الثالثة: خاصة بحساب الايام/ اسمها / CalcAgeD انظري للصور المرفقة بالشرح حيث تم استدعاء دالة السنة والشهر فقط من خلال الاستعلام الذي اسمه (استعلام خساب العمر) وكذلك تم التعديل على الملف المرفق كما تريدين معرفة العمر بالسنوات والشهر وتم عمله بالاستعلام تحياتي اتمنى الشرح يكون واضح لك test-3.rar

تفضل

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

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

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

وعليكم السلام -تفضل استاذنا الكريم ياسر خليل ابو البراء على تناول هذا الموضوع من قبل اعتذر منك استاذى الكريم ياسر فليس هناك امكانية فى وضع الرابط هنا ولكن تم وضعه داخل الملف لكى تعم الإستفادة للجميع للإطلاع على هذا الموضوع والإستفادة منه ان شاء الله حماية المعادلات في كل أوراق العمل Protect Formulas In All Sheets.xlsm

كلمة السر للبرنامج ان وجدت هو 123 https://up.ar4up.com/do.php?id=310 اختر منهم ما يناسبك تفضل نسبة لكبر حجم الملف تم رفعه على موقع خارجى ,تفضل ولكمة السر هى 0000 https://up.ar4up.com/do.php?id=309

تفضل لك كل ما طلبت تحويل من عدة صفوف الى عمود واحد(1).xlsm

تفضل رواتب.xlsm

ممكن تجرب هذا برنامج تسيير المطعم المدرسي.xls

وعليكم السلام استاذى الكريم فى هذه الحالة يمكنك استخدام هذا الملف للترحيل من ملف Main الى ملف Archive ترحيل الى ملف مغلق.rar

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

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