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

برنامج الموارد البشرية HR "مفتوح المصدر" يحتوى على التالي : -بيانات الموظف . -الإجازات . - الأذنونات . - تسجيل الحضور يدوياً . - الخصومات . - السلف . - المكافأت . - تقيييم الموظف . - ساعات إضافية . - تقارير. - متابعة الحضور والانصراف . - تسجل الحضور والانصراف بشكل آلي . - تسجل الحضور بشكل يدوي . وخيارات أخرى . وهذا البرامج من تطويري وجدت جداوله في موقع خارجي . لا تنسونا من خالص الدعاء ،،، HR.rar

السلام عليكم ورحمة الله أحببت أن أشارك معكم في بخصوص هذا الموضوع بطريقة مختلفة بعض الشيء.. أرجو أن تجدوا فيها شيئا جديدا :: تنبيهات --- يتم رسم التقرير برمجيا.. --- عدد السجلات في رأس التقرير ثابتة من ناحية التصميم، متغيرة من ناحية البيانات.. - يتم تفيير البيانات في هذا المقطع وفقا لكميات البيانات.. - تستطيع كمية البيانات في هذا المقطع زيادة عدد صفحات التقرير تناسبا مع مصدر بيانات التقرير.ز - عدد السجلات المعروضة في هذا المقطع (10) سجلات لكل صفحة --- مصدر البيانات الأساسي هو الاستعلام (QRY_MATERIAL) --- يعاد بناء هذا الاستعلام كاستعلام (توحيد) بناءً على الفرضيتين التاليتين: -- التوحيد من أجل تكملة العشرة.. -- يتم إخفاء السجلات الوهمية بفحص معطيات الحقل الوهمي (TEST) - تزيد قيمة هذا الحقل كلما زادت الاستعلامات الوهمية (...،0،1،2) - البيانات الحقيقة تأخذ القيمة (0) --- إذا كانت بيانات مقطع الرأس أكبر من بيانات مصدر البيانات الأساسي -- يزيد عدد الاستعلامات الوهممية بواقع استعلام لكل (10) سجلات لزيادة عدد الصفحات -- يتم احتساب عدد الاستعلامات وتضمينها برمجيا بواسطة الإجراء (UNION_SQL) أرجو ألا تبخلوا بالنقد والتعليق😁 MATRIX REPORT.accdb

السلام عليكم اساتذة واعضاء هذا المنتدى الكريم وجدت هذا البرنامج فى موقع خارجى فاحببت ان اشارككم به لعله يكون فى الإستفادة والإفادة لأحدكم واتمنى ان ينال إعجابكم ,بارك الله فيكم جميعا Solaff.mdb

السلام عليكم ورحمة الله وبركاتة في مووضوع سابق طرحته بالمنتدى حذرت من موضوع اخفاء الجداول المرتبطه لما يسببه من مشاكل وأخطاء تحذير من إستخدام كود إخفاء الجداول المرتبطة فأخذت افكرفي ايجاد طريقة لحماية كائنات قاعدة البيانات كافة من وصول المستخدم ومن ضمنها عدم وصول المستخدم لكلمة سر قاعدة البيانات الخلفية والتي تكون مخزنة بالجدول MsysObjects فلم أجد افضل من طريقة وضع كلمة سر لقاعدة البيانات بشرط أن تكون بصيغة accdb أو accde هنا لن يتمكن المستخدم من تفعيل الشفت ببرنامج خارجي ولن يتمكن من الوصول الى الكائنات وهذا كان سبب طرحي لموضوع هل لديك تجربه لكسر كلمة سر قاعدة بيانات ؟ وقد اكد استاذنا @jjafferr صعوبة الحصول على الرقم السري لمثل هذا النوع من قواعد البيانات فقررت وضع كلمة السر لقواعد البيانات !!!!!!! لكن ماهو الحل مع المستخدم ؟ هل سنقوم بتسليمه كلمة السر ليستخدم قاعدة البيانات اذا كأننا لمن نصنع شئ ففكرت بإيجاد وسيط نقوم بتسليمه كلمة السر ويكون هو الوسيط بين المستخدم والبرنامج ( الواجهة ) اذا الوسيط سنضعه جنب البرنامج ونأمره بفتح البرنامج للمستخدم اذا اراد استخدامه بدون أن يفصح له عن كلمة السر بالمرفق يوجد ملفين ملف قاعدة البيانات الاساس Start محمي بكلمة سر والاخر الوسيط الذي سنقوم بمن خلاله فتح البرنامج StartDatabes. بعد تمرير كلمة السر اليه والملفين تم تحويلهما الى صيغة accde بعد تنزيل المرفق اجعل الملفيين في مجلد واحد وشغل الملف StartDatabes ملاحظة من المحتمل ان تظهر لديك رسالة في بدأ التشغيل لا يمكن قراءة مشروع Vba هنا اعتقد يجب أن يكون الوندوز لديك محدث بأخر تحديث ويجب أن تكون حزمة Microsoft .NET Framework محدثة بأخر اصدار حسب لغة الوندوز ونوعه عندك او كما يوجد لدي انا عندي الحزمة Microsoft .NET Framework 4.5.1 windos 10 office10 أخر تحديث ارجو التجربه ونتمنى الاستفاده للجميع Free.rar -------------------------------------- ملاحظات جعفر 14-7-2021 : بعد ان تم حذف الملف الاصل ، اصبح من الصعب على بعض الاعضاء متابعة الموضوع ، لذا ، وبعد إذن الاخ @kaser906 فعملت ملفاته مرة اخرى وارفقتها هنا: 1. الملف Locked.zip ، وهو الملف النهائي والذي سيتم تسليمه للزبون ، وهو الملف الذي يجب ان يجربه الاعضاء ، وفيه ملفين بصيغة accde ، 2. الملف Locked_Open_Source.zip ، يحتوي على ملفات مفتوحة المصدر ، بصيغة accdb ، والتي حولناها الى ملفي رقم 1 علاه ، 3. الملف Open_Source.zip ،يحتوي على نفس ملفي رقم 2 اعلاه بصيغة accdb ، ولكن بدون تجهيزهم لتحويلهم لصيغة accde . Locked.zip Locked_Open_Source.zip Open_Source.zip

السلام عليكم, كثيرا ما ازعجتني مُشكلة اضافة السجل بواسطة التاب لذلك كنت دائماً اسلك طريق الـ VBA في اضافة وتعديل السجلات برمجياً. لكن الامر طويل وشاق، قمت بالتفكير في طريق لمنع الحفظ التلقائي بالتاب او الانتر.. وجعلت الحفظ يكون عن طريق الزر، الطريقة ليست اختراع ولا شيء, لكن احببت ان اشارككم بما توصلت اليه. تحياتي, حسنين disable_auto_save.accdb

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

هذا البرنامج مفتوح المصدر اتبع التالي : عند فتح الملف أضغط باسمرار على زر الشف Shift مع الفتح وسترى محتوى البرنامج . نعم ضع هذا الكود في النموذج الرئيسي في حدث عند الإغلاق وسيقوم البرنامج بعمل نسخة احتياطية حسب ما وضعته من إعدادات . Call vback وبالتوفيق

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

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

وعليكم السلام شوفي المرفق ::بالتوفيق:: 122.accdb

انا استخدم 2019 وحليت المشكلة بالتعديل على الاستعلام باضافة (SELECT * FROM اسم الجدول) ورجع الاستعلام يعمل

انا صادفتني هذه المشكلة ، والحل كان: ازالة التحديث حسب نوع نسخة الاوفيس اللي عندك : اوفيس 2007/2010 – KB4484127 اوفيس 2013 – KB4484119 اوفيس 2016 – KB4484113 جعفر

جرب هذا البرنامج يعمل على اصدار اكسس 2010 او اعلى وشرط 32 بت محاسبة شركات الاصدار الخامس.rar

هل من الممكن عمل ماسبق بدون اكواد

رجاء ارفق لنا الجزء من برنامجك اللي فيه المشكلة ، لأني ما قادر اعرف الخطأ بهذه الطريقة 🙂 جعفر

جزاك الله خيرا استاذ صالح

جزاكم الله خير الجزاء

برنامج مفيد ، مختصر شكراً لك استاذنا الفاضل بارك الله فيك ونفع الله بكم

في حدث عند التنسيق If [رقم الفاتورة] Mod 10 = 0 Then Me.Detail.ForceNewPage = 2 Else Me.Detail.ForceNewPage = 0 End If Me.PgBrk.Visible = (Me.[رقم الفاتورة] Mod 10 = 0)

جربت اضفت بيانات جديده وطبع معي في مرفق بيان حالة 3 ؟

جزاكم الله جميعا كل خير

اشكرك فكرة جديدة ومفيدة جدا جزاك الله خيراً

احسنت عزيزي، طريقة جميلة وفعالة.

السلام عليكم 🙂 شكرا جزيلا اخوي كاسر على الطريقة الحلوة 🙂 جعفر

أمل من الادارة وضع الملفين بالمشاركة الأولى بسبب عدم اتاحة خيار التحرير إليكم الملفين مفتوحي المصدر ولا أعتقد أن الطريقة محتاجه شرح فقط قم بتعديل أسم المايكرو في الملفين بإزالة رقم 1 او قم بتعين نموذج بدأ التشغيل من قائمةالخيارات ::بالتوفيق:: Free.rar

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

ارفع ملف لو سمحت بنفسك يكون به المثال الذى تريده وسيتم الشرح من قبل الأساتذة ان شاء الله لا تنتظر ان يقوم احد بتصميم ملف لك فقط لو تريد هذه العلامة -- تعنى ان المطلوب العدد من نطاق معين وليس الإجمالى او المجموع

وعليكم السلام بما انك وضعت كود عند التحمل للحصول ع المجموع If Nationality = "Saudi" Then Gosi = (Val(BasicSalary) + Val(Housing)) * 0.11 Else Gosi = (Val(BasicSalary) + Val(Housing)) * 0 End If TotalSalary = Val(BasicSalary) + Val(Housing) + Val(Transportation) + Val(OtherBenefits) AccruedSalary = (Val(TotalSalary) / Val(DayMonth)) * (DayAttendees) NetSalary = (Val(AccruedSalary) + Val(Reward) + Val(Addition)) - (Val(Discount) + Val(Deduction) + Val(Gosi)) كان لازم تزيل مصدر تحكم الحقول الملونة بالاخضر لتصبح حقول غر منظمه ::بالتوفيق::

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

نعم يا غالي تخطي كلمة المرور يعني إنتهاك للحقوق

مميزات الفورم السحرى 1-الفورم يستكشف جميع الجداول المصممة فى اى ملف اكسل 2- التعامل مع تلك الجداول من حذف واضافة وبحث وترحيل 4- ضبط عرض أعمدة اليست بوكس من خلال ضبط أعمدة الجدول 3- الفورم يكتشف المعادلات ويحميها تلقائيا 5- الفورم السحرى يكتشف اعمدة التواريخ تلقائيا 6- الفورم يقبل تدعيم الجداول بالصور تلقائيا 7- الفورم يحدد اوتوماتيكيا المكان الجغرافى للجداول داخل ملف الاكسل وهناك كثير للميزات ستكتشفها بنفسك عند العمل على الفورم السحرى هذا شرح مصور الاخ الرائع عماد الغازي بالمناسبة أشكره من كل قلبي على هذا الشرح جزاه الله خيرا الفورم_السحرى.rar

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

تفضل اخى الكريم بعد اذن الأستاذ وجيه يمكنك استخدام هذه المعادلة لأعلى مرتب =SUMPRODUCT(MAX((ورقة1!$B$2:$B$13=$B2)*(ورقة1!$D$2:$D$13))) وبالنسبة لأقل مرتب يمكنك استخدام هذه المعادلة =DMIN(ورقة1!$B$1:$D$13,3,$B$1:B2)

If DCount("*", "tbl1", "[Date]= form![Date]") = 1 ThenMsgBox ("مكرر"): Undo ضع الكود في حدث تاريخ الحجز قبل التحديث أو بعده

تفضل كشف حساب المحطات3.xlsm

بارك الله فيك وجزيت خيرا والحمد لله الذى بنعمته تتم الصالحات

بارك الله فيك استاذ أحمد بالفعل يمكنك كتابة الأرقام فقط ولكن عندما تقوم بكتابة مثلا الساعة 1 بعد الظهر يمكنك كتابتها هكذا حتى تظهر ك PM 13:00 بعد تعديل التنسيق وجعله كما بالصورة

بعد اذن جميع الأساتذة تفضل لك ما طلبت اجر اضافى.xlsx

عليك بتعديل اعدادات اللغة لديك بالدخول الى لوحة التحكم Control Panel ثم بعد ذلك Region and language ثم change system Local وانظر الى الصور

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

تفضل كل ما طلبت وهذا فيديو ايضا للتوضيح https://www.youtube.com/watch?v=_ZmFFHgh-nw وهذا موقع به افادة ايضا لتعليم التسلسل بدون معادلات https://webw3s.blogspot.com/2016/05/blog-post_8.html مثال لتوضيح السؤال.xlsx

وعليكم السلام بالتأكيد لاستاذ ايهاب كلها حلول ممتازة ورائعة جعله الله فى ميزان حسناتك ودائما وابدا نحتاج التنافس الشريف واثراء الموضوعات للنهوض والتقدم بالمنتدى بارك الله فيكم جميعا

وعليكم السلام 3.xlsm

وعليكم السلام هذا ملف لأستاذنا الكبير محمد صالح له منا كل المحبة والإحترام لكسر حماية الملف ويتم تثبيتها على برنامج الإكسيل عامة فى جهازك بحيث يكون موجود فى كل ملفات الإكسيل عند فتحها وهذا فيديو لكيفية استعمال هذه الأداة : https://www.youtube.com/watch?time_continue=93&v=0nJQEIDLGJA وهذا رابط الموضوع الأساسى https://www.officena.net/ib/topic/29972-فك-حماية-شيتات-ملفات-الإكسل-بجمع-إصداراتها-وامتداداتها/?tab=comments#comment-149390

بارك الله فيك

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

وعليكم السلام اهلا بك فى المنتدى الكريم كان عليك برفع ملف من البداية ولكنى قمت بعمل ملف شامل لما تريده اتمنى ان يكون هو المطلوب -جزاك الله كل خير جدول الشهر .xlsx

بارك الله بك أخي حمادة عمر , جهودك و ابداعاتك سابقة.

أخى العزيز ( عصام ) أنا شايف الدوال المعرفة للأساتذة ( عبد الله بقشير ) والأستاذ ( طارق محمود مؤدية الغرض ) أم تريده بالدوال العادية إذا أردتها كذلك أنا تحت أمر حضرتك أليك أخى دالة فصل الرقم عن النص ولنفرض وضعها فى العمود ( D3 ) وسحبها إلى أسفل =SUMPRODUCT(MID(0&A3;LARGE(INDEX(ISNUMBER(--MID(A3;ROW($1:$25);1))* ROW($1:$25);0);ROW($1:$25))+1;1)*10^ROW($1:$25)/10) ثم وضع هذه المعادلة فى العمود ( E3 ) لفصل النص عن الرقم وسحبها لأسفل أيضا =TRIM(SUBSTITUTE(A3;D3;"")) تقبل تحياتى