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

السلام عليكم ورحمة الله وبركاته أسعد الله أوقاتكم بكل خير وسرور .. وتقبل الله منا ومنكم صالحات الأعمال .. 😊🤲🏻 يطيب لي أن أقدم لكم هذا الهدية المتواضعة بمناسبة هذا الشهر الفضيل 🙂🌼🎁 استبدل الرسائل العادية في أكسس برسائل ذات تصاميم قمة في الإبداع وبمميزات إضافية . من مميزات هذه الرسائل: - تصميم جميل وألوان جذابة. - خاصية ذاتية الاختفاء. - عنوان رئيسي + عنوان فرعي - تحكم بالنص ( عربي - إنجليزي ) ( توسيط - محاذاة على اليمين أو اليسار) - سهلة الاستخدام . الشرح على اليوتيوب : التحميل 🙂 Moosak MsgBox.accdb ولا تنسوني من صالح دعواتكم 😊🌷🌼🌹

السلام عليكم ورحمة الله وبركاته ، أخواني وأساتذتي ومعلمينا ( دون استثناء ) لكثرة الطلبات على برنامج إدارة الحضور والإنصراف للموظفين ، وددت مشاركتكم النسخة الأولى الغير مفتوحة المصدر حالياً ، لحين الإنتهاء من التعديلات التي ستتم على البرنامج . دون الإطالة في المقدمة ؛ سأشرح لكم بعض ميزات البرنامج :- أولاً سيتم إضافة الإعدادات الضرورية للبرنامج وهي :- تصنيف الموظفين ( ولكل تصنيف سيتم تحديد عدد أيام الإجازات السنوية له ) . تصنيف الإجازات ( طارئة ، مرضية ، ..... إلخ ) . تحديد وقت بداية ونهاية ساعات العمل الرسمي ، و تحديد مدة السماح للتأخير ( المرونة في العمل ) ، تحديد عدد مرات التأخير ليتم احتساب يوم إجازة في اليوم الأخير من المدة . ثانياً ومن الطبيعي وجود موظفين في قاعدة البيانات ، سيكون قسم لإدخال بيانات الموظفين بشكل بسيط من المعلومات ( ولكم حرية التوسع حسب رغبتكم وحاجتكم كمستخدمين ) ، وطبعاً لكل موظف رقم وظيفي خاص به اعتمد على سلسلة مكونة من التاريخ والوقت الحالي بدون مسافات بهذا التنسيق YYYYMMDDhhmmss ، بحيث لا يكون هناك تكرار نهائي لأي رقم موظف . ثالثاً لوحة تسجيل الحضور والإنصراف عن طريق الرقم الوظيفي ، وتدعم القراءة من الباركود الموجود على باجة الموظف ( طبعاً لاحقاً سيتم إضافة طباعة باجة أو بطاقة للموظف ) ، وفي هذه اللوحة لن تحتاج تحديد الحالة ( حضور أو إنصراف ) فقط أدخل رقم الموظف وسيتم احتساب وقت الحضور وتسجيل مدة التأخير بالدقيقة في الجدول ، وكذلك الأمر للإنصراف . رابعاً لوحة تسجيل الإجازات ، وطبعاً بناءً على المعطيات التي تم إدخالها في نماذج البيانات الأساسية في الإعدادات - سيكون الأمر بسيطاً جداً وتم اعتماد رقم الموظف في المرحلة الأولى من البرنامج وسيتم اعتماد اسم الموظف أيضاً لجلب البيانات لاحقاً . بخطوات بسيطة بعد ادخال رقم الموظف نحدد تاريخ بداية الإجازة ، ثم عدد الأيام المطلوبة كإجازة ، ثم سيتم تلقائياً احتساب يوم نهاية الإجازة ، وطبعاً نوع الإجازة المطلوبة ستقوم باختياره من قائمة نوع الإجازة . خامساً لوحة التقارير ، بحيث سيكون لدينا في المشروع تقرير واحد فقط لكنه سيخدم جميع الطرق التي تريدها كمستخدم ( تقرير للموظفين جميعاً مع وبدون تحديد فترة ، تقرير لموظف واحد مع وبدون تحديد فترة ) . *وطبعاً ما زالت قيد التطوير بشكل خاص ملاحظة:- تم حفظ البرنامج بصيغة Accde كونه قيد التطوير والتعديل حالياً اقترب عيد المسلمين مودعين به شهرهم الفضيل أعاده الله علينا وعليكم باليمن والبركات . وتقبل الله منا ومنكم الطاعات وصالح الأعمال . وسأختم به آخر تعديل على هذا المشروع البسيط ؛ متمنياً أن يكون على قدر الجهد المبذول فيه . وأعتذر بداية عن التأخير في انهاء العمل عليه ، ولكن لضيق الوقت ليس إلا . اليوم انهيت تأسيس الأساسيات في برنامج إدارة الحضور والإنصراف الذي يعمل بنظام بصمة الـ QR . وسأذكر بالتفصيل البسيط ما تم إضافته . الإضافات في النماذج :- ربط قارىء QR يعمل عن طريق الـ USB أو عن طريق الجوال بالنظام . دعم كامل لللغة العربية في قراءة رمز الإستجابة السريعة QR . اعتماد اسم الموظف بالإضافة الى رمز الـ QR . نظام التنبيه لضبط الإعدادات الرئيسية في البرنامج عند تشغيله أول مرة . إحصاء لعدد الموظفين ، الحضور ( على رأس عملهم ) ، المجازين ، المغادرات خلال اليوم . ترحيل بيانات الإجازات والمغادرات والحضور بشكل شهري ( بداية كل شهر ) . الإضافات في الأكواد :- تمت مراجعة جميع الأكواد من أي خطأ محتمل في التنظيم أو آلية العمل . تم إضافة فكرة تثبيت برنامج الربط Barcode2Win من خلال الأكواد ، وفي حال عدم وجوده يتم تحميله من الموقع الرسمي ( يتطلب انترنت ) . تم دمج العديد من الإستعلامات في الأكواد لتقليل مكونات وعناصر النظام وتخفيف العبئ عليه . تم تقسيم العديد من الوظائف لسهولة التعامل معها وصيانتها . تم إضافة نموذج لإعادة تهيئة النظام وتفريغ محتوياته ( الجداول ) ، طبعاً باسوورد تأكيد العملية مدمج في أكواد النموذج . العديد من المميزات التي ستجدونها في المشروع

السلام عليكم ورحمة الله وبركاته في احد البرامج التي اشتغلت عليها ، كان المطلوب احد الاشياء التالية مثلا: مدة الخدمة ، من تاريخ التوظيف الى اليوم ، إضافة خدمة (سنوات/اشهر/ايام) الى تاريخ التوظيف ، خصم مدة (سنوات/اشهر/ايام) من تاريخ التوظيف ، فبدل الحساب اليدوي ، عملت نموذج لآلة حاسبة ، للتواريخ النموذج frm_Date_Diff : حساب الفرق بين تاريخين: 1. ادخل التاريخ الاكبر في الحقل 1 ، وعند تغيير التاريخ سنرى الفرق بين التاريخين في الحقول سنة/شهر/يوم ، 2. ادخل التاريخ الاصغر في الحقل 2 ، وعند تغيير التاريخ سنرى الفرق بين التاريخين في الحقول سنة/شهر/يوم ، وعند النقر المزدوج على 1 او 2 ، فان القيم سيتم حفظها في الحقول 11 و 22 مؤقتا ، بحيث تستطيع ان تقوم بعمليات اخرى وتغيير التواريخ ، بينما تحتفظ بأصل التواريخ في 11 و 22 ، إضافة / طرح (سنوات / اشهر / ايام) من تاريخ: 1. احذف التاريخ من الحقل 2 ، 2. ادخل سنة/شهر/يوم الى الخانات 3 و4 و5 ، 3. حسب الحاجة ، اختر 6 لإضافة السنة/شهر/يوم الى التاريخ الاول ، وسترى النتيجة في الحقل 2 ، 4. حسب الحاجة ، اختر 7 لطرح السنة/شهر/يوم من التاريخ الاول ، وسترى النتيجة في الحقل 2 ، وعند النقر المزدوج على 3 او 4 او 5 ، فان القيم سيتم حفظها في الحقول 543 مؤقتا ، بحيث تستطيع ان تقوم بعمليات اخرى وتغيير السنوات/الاشهر/الايام ، بينما تحتفظ بالاصل في 3 و4 و5 وهنا مثال متحرك: جعفر 301.Dates_Calculations.mdb.zip

تحياتي لك أخي العزيز 🥰 أسعدني مرورك العطر 🤗

مجهود رائع وتنسيق محكم تحياتي لشخصك الكريم

رمضان مبارك علينا وعليكم وعلى جميع الامه الاسلاميه

تمام هذه يمكننا عملها في النهاية عند اعداد صلاحية المستخدمين الآن وبكل يسر سهولة : يمكنك عمل نموذج للتعديل مصدره جدول العمليات . ونموذج آخر غير منضم اعمل فيه ازرار .. حسب التقارير التي تريد الاطلاع عليها بحيث تكتب في تسمية الزر البيانات المطلوب عرضها في التقرير

أخي @Ahmed_J ، هذه تجربتي بالنقطة الأولى . أعلمني إن كانت النتيجة توافق طلبك . والثانية للنظر فيها بعد اتمام المطلب الأول * ملاحظة :- اضطررت لتغيير المسميات من العربية الى مسميات انجليزية ( متأملاً منك الإهتمام بهذه النقطة في مشاريعك مستقبلاً للوصول إلى نتيجة أفضل وأدق ) Test-2.accdb

تقصد التعديل متاح للجميع حتى يوم 10 من الشهر التالي .. ما عدا المدير يكون مفتوح له التعديل ؟

أخي الكريم @العبيدي رعد ، انت تريد انشاء مشروع من البداية ؟؟؟؟ وقد اختصرته بسطرين !!!!!!!!

العفو استاذي الكبير @Moosak ، هذا التحمس بداية شهر رمضان والحمد لله . أشكرك مرورك الجميل وملاحظتك اذا انت تعينت اليوم تبي تحفظ الرقم من أول يوم وظيفة , وتقول عني نشيط ههههههههه كرت الموظف سيكون كفيل بهذه المهمة ، ولا تريد أحد يختم عنك حضور خخخخخخخخ تم إصلاح الخطأ بإذن الله

تفضل استاذ @sm44ms محاولتي حسب ما فهمت . DDExpierDate.rar

تفضل حسب شرحك للخطوات بعد ادخال التاريخ ورقم المستند وتحديد الحساب ... يتم ادخال البيانات ادرس الفورم جيدا .. وكذلك الكائنات المساعدة ... وكيف تم التنفيذ واشرح لي ما فهمته Financial_db.rar

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

عجيب شغلك لا ارتباط بين الجداول ، المفروض معرف الموظف يكون في جدول الاسماء ويدخل آليا ولا يدخل يدويا .. حتى جهة العمل لانه يوجد الاسماء مكررة مرة بجهة ومرة اخرى بدون جهة تفضل تم تحقيق طلبك بدون استخدام الدالة data2.rar

تفضل اخى جرب الملف قكت بتعديل كود MajStkProv وكود xx() لتاكيد الحصول على الرصيد الصحيح وتم اضافة هذا الكود الى كود التحويل او الحفظ Dim rng As Range Dim cll As Range Dim cll2 As Range Dim lastRow As Long lastRow = ThisWorkbook.Sheets("Stock").Cells(Rows.Count, "A").End(xlUp).Row Set rng = ThisWorkbook.Sheets("Stock").Range("A4:A" & lastRow) For Each cll In rng If cll.Value = Me.CB_Pièce.Text And cll.Offset(0, 11).Value = Me.ComboBox1.Value Then cll.Offset(0, 3).Value = Val(Me.stocktr.Value) - Val(Me.Quantitetr.Value) Exit For End If Next cll For Each cll2 In rng If cll2.Value = Me.CB_Pièce.Text And cll2.Offset(0, 11).Value = Me.ComboBox2.Value Then cll2.Offset(0, 3).Value = Val(Me.TextBox_Stock_Initial.Value) + Val(Me.Quantitetr.Value) Exit For End If Next cll2 تقبل تحياتى نقل المخزون بين المخازن.xlsm

ربما هدا ما تقصده تجربة فرز الرواتب.xlsx

وعليكم السلام ورحمة الله وبركاته تفضل اخى تقسيم الاسم على اربعة اعمدة لاول اربعة اسماء تقسيم الاسم الرباعى الى اربعة اسماء منفصلة.xlsm

تفضل اخى تم بحمد الله عمل المطلوب والتعديل على الدالة التى ارفقتها للحصول على النتائج المطلوبة واعذرنا على التأخير لكل منا مشاغله ملاحظة يجب اضافة الاسم المركب الجديد فى الكود كما فى هذا الجزء MyArray = Array("عبد ", "أبو ", "ابو ", "آل " _ , " الله", " الدين", " الإسلام", " الاسلام", " الحق") بمعنى ان وجد مثلا اسم مثل نور الهدى احمد عبدالحليم فيجب على اضافة كلمة الهدى قبلها فراغ اى زر المسطرة قبل كلمة الهدى الى هذه المصفوفة وهكذا مع باقى الاسماء المركبة الجديدة لتصبح هكذا MyArray = Array(" عبد", " أبو", " ابو", " آل" _ , " الله", " الدين", " الإسلام", " الاسلام", " الحق", " الهدى") جرب الملف واعلمنا بالنتيجة تقبل تحياتى تقسيم الاسم في ثلاثة اعمدة.xlsm