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

برنامج الموارد البشرية 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 وبالتوفيق

السلام عليكم اخواني واخواتي انا معي محل مبيعات صغير واريد نظام محاسبي له متكامل من مبيعات مشتريات صرف قبض موظفين وكل شي ارجو منكم المساعده

السلام عليكم و رحمة الله تعالى و بركاته أقدم لكم اليوم مرفقا يقوم بإضافة كلمة مرور جديد لملف الأكسس أو تعديل كلمة مرور قديمة أو حذفها نهائيا. 1- لإضاف كلمة مرور جديدة يجب ترك مربع كلمة السر القديمة فارغا و كتابة الكلمة الجديدة فقط ثم الضغط على زر الأمر 2- لتعديل كلمة المرور نكتب الكلمة القديمة و نكتب الكلمة الجديدة ثم الضغط على زر الأمر 1- لحذف كلمة المرور نكتب الكلمة القديمة ونترك مربع كلمة السر الجديدة فارغا ثم الضغط على زر الأمر و قد استخدمة هذه الوحدة النمطية: Public Function ChangePassword(path_file As String, Old_Password As String, New_Passwod As String) On Error GoTo err Dim odb As DAO.Database Set odb = DBEngine.OpenDatabase(path_file, True, False, ";pwd=" & Old_Password) odb.NewPassword Old_Password, New_Passwod MsgBox "لقد تم تغيير كلمة المرور بنجاح" fin: Set odb = Nothing Exit Function err: Select Case err.Number Case 3031 MsgBox "كلمة المرور غير صحيحة", vbCritical, "Sécurité" Case Else MsgBox err.Description, vbCritical, "Erreur No." & err.Number End Select Resume fin End Function و قمت بإستدعائها من خلال هذا الكود: Call ChangePassword(Me.txtpath1, Nz(Me.OldMot, ""), Nz(Me.NewMot, "")) تغيير كلمة السر برمجيا.rar

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

جرب هذا البرنامج يعمل على اصدار اكسس 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)

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

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

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

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

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

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

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

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

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

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

لو اطلعت على هذه الروابط لوجدت ان معظم الدوال بها كود ويمكنك وضعها فى شيت الإكسيل بهذا الكود وطريقة تثبيت كل هذه الدوال بملفات الإكسيل هى : عليك بوضع الملفات التى بها اكواد المعادلات التى تريد اضافتها فى الإكسيل ثم بعد ذلك التوجه الى بارتشن C ثم فتح فولدر Programe Files(X86) ثمMicrosoft Office ثم Office14 وبعد ذلك يمكنك البحث على فولدر اسمه XLSTART ,فعليك بفتح هذا الفولدر ولصق ووضع ملفات الإكسيل التى بها اكواد المعادلات فيها فبذلك تجد كل هذه المعادلات موجودة فى ملفات الإكسيل لديك بارك الله فيك

وعليكم السلام بما انك وضعت كود عند التحمل للحصول ع المجموع 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)) كان لازم تزيل مصدر تحكم الحقول الملونة بالاخضر لتصبح حقول غر منظمه ::بالتوفيق::

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

وعليكم السلام-جرب هذا الملف به طلبك الفاتورة_MZM.xlsm

تفضل استاذ حميد ولحسن عمل الكمبوبوكس يمكنك إضافة هذا الكود Private Sub ComboBox1_DropButtonClick() lrw = Sheets(2).Cells(Rows.Count, 4).End(xlUp).Row ComboBox1.List = Sheets(2).Range("D1:D" & lrw).Value End Sub تعبئة القوائم المنسدلة1.xlsm

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

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

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

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

تفضل لقد تم عمل المطلوب كشف حساب المحطات2.xlsm

وعليكم السلام تفضل كشف حساب المحطات.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

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

بارك الله فيك

وعليكم السلام اهلا بك فى المنتدى الكريم كان عليك برفع ملف من البداية ولكنى قمت بعمل ملف شامل لما تريده اتمنى ان يكون هو المطلوب -جزاك الله كل خير جدول الشهر .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;"")) تقبل تحياتى