Ahmed_J

السلام عليكم اساتذتي الاعزاء بارك الله فيك استاذ @ابا جودى تنويه فقط لاننسى السنة الكبيسة سيقوم البرنامج باضافة يوم على شهر شباط (يصبح 29 يوم) اي لو تاريخ الاصدار 29/02/2020 سيكون تاريخ النفاذ 28/02/2021 تحياتي للجميع

شكرا كثيرا لكم بارك الله فيكم وجعلها في ميزان حسناتكم

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

السلام عليكم لالا مش قصدي والله بالعكس انت اخي ان شاء الله وانا اشكرك كثيرا على الرد والاهتمام بالموضوع

السلام عليكم استاذي العزيز @ناقل انا اعرف طريقة تصدير التقرير ولكن في ملفي الاصلي توجد معادلات في التقرير اتمنى من احد الاساتذه يجد لنا جواب اظهار حقول التقرير في Box تحياتي للجميع

السلام عليكم اساتذتي الاعزاء لدي نموذج لتصدير الجداول والاستعلامات الى اكسل هل ممكن اضافة التقرير Report1 الى ListBox واظهار كافة الحقول فية لكي يتم تصديره الى اكسل مع التقدير export excel.accdb

المشكلة عندك اخي الكريم انظر للصورة البرنامج يعمل عندي بصورة صحيحة تحياتي لك

السلام عليكم اخي العزيز تذكر دائما عند العمل يجب ان تعمل نسخة اضافية من برنامجك تفضل اخي الكريم اتمنى ات يكون المطلوب نظام بيانات الموظفين_الموظفين.rar

السلام عليكم استاذ @ابوخليل كثيرا ماحصلت معي هذه المشكلة واضررت الى اعادة العمل من جديد لو تكرمت ماهي طريفة الاصلاخ التي اتبعتها وشكرا لك

شكرا لك كثيرا كلوا تمام تسلم ايدك

السلام عليكم اساتذتي الاعزاء لدي ملف اكسل فيه دالة مركبة لحساب الراتب الاسمي للموظف من خلال جدول (الدرجة الوظيفية والمرحلة الوظيفية) عند اختيار الدرجة والمرحلة من القائمتين المنسدلتين من (1-5) يتم حساب الراتب الاسمي من الجدول حسب المدى من ($D$5:$I$9) المطلوب: تحويل الكود في الخلية (i13) الى وحدة نمطية وطريفة استدعائها 1- من الاكسل 2- من الاكسس ان امكن ذلك تحياتي للجميع Test.xlsx

شكرا لكم اساتذتي الكرام تعبتكم معي كثيرا الله يببارك فيكم جعلها الله في ميزان حسناتكم

اساتذتي الاعزاء انا يمكن مش عارف اوصل فكرتي جيدا فكرتي هي الجدول في التالي كيف اخلي الاكسس عن طريق الكود يعمل لي هيك جدول بالضبط

استاذ @Eng.Qassim هذا نموذج فقط الدرجات في سلم الرواتب هي 10 المراحل في سلم الرواتب هي 11 هل من الممكن تنزيل هذ الجدول في وحدة نمطية

استاذي الفاضل @د.كاف يار ايضا حساب الراتب فيه حطا انظر للجدول في الصورة (يتم الاحتساب فيه كما في جدول الصرب) اتمى ان يكتب الجدول كاملا في وحدة نمطية حتى تتم عملية الحساب بسهولة

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

السلام عليكم @د.كاف يار ممكن بعد اذنك تعمل لي التعديل ( اذا عندك اي طريفة احترافية لحساب الراتب عن طريف الوحدات النمطية ) رجاءا ممكن تبعت ملف اتعلم منه الله يبارك فيك مرفق سلم للرواتب (اتمنىى ان ترشدني للطريقة المثالية والافضل لعمل برنامج للرواتب ) اتمنى يكون الحساب عن طريق الوحدات النمطية لابد اولا ان نختار الدرجة الوظيفية وهي من (1-5) ثم نختار المرحلة الوظيفية وهي (1-4) مثلا موظف في الدرحة 2 والمرحلة 3 يكون راتبه (757000)

السلام عليكم استاذ @Eng.Qassim كلامك صحيح جدا انا لا اريد اجراء العملية الحسابية بالاستعلام انا اريد اجراءه في داخل الوحدة النمطية من خلال Function salary3 حصرا يعني ان يتم جمع (salary1 = 910000) Case 1 من Function salary1 مع (salary2 = 20000) Case 1 من Function salary2 واظهار النتيجة في (salary3) Case 1 من Function salary1

السلام عليكم اساتذتي الاعزاء لدي ملف اكسس لحساب الراتب وفية وحدة نمطية فيها ثلاث دوال Function (salary1,salary12,salary3) استخدمت فيها Select Case ولدي استعلام فيه قائمة منسدلة للدرجة بالراتب من (1-5) وقائمة اخرى للمرحلة بالراتب ايضا من (1-5) اريد تعديل الاكواد واجراء عمليات حسابية داخل الوحدة النمطية حصرا تظهرالنتيجة في الاستعلام من خلال الحقل مجموع الراتب يتم استدعائه من خلال الدالة salary3 مثلا : عند اختيار الرقم 1 من الدرجة بالراتب واختيار الرقم 1 من المرحلة بالراتب يقوم (910000+20000) في الوحدة النمطية واظهار النتيجة بالاستعلام (930000) وشكرا لكم salary.accdb

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

السلام عليكم استاذ @lionheart بالنسبة للكود تبع حضرتك يظهر الخطا التالي عند وضعة في وحدة نمطية كما في الصورة شكرا لاهتمامك ياغالي

شكرا لكم اساتذتي الاعزاء كلوا تمام استاذ @أ / محمد صالح بارك الله فيكم جميعا جعلها الله في ميزان حسناتكم تحياتي للجميع

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

شكرا لكم اساتذتي الاعزاء كلوا تمام تم حل الموضوع من قبل الاستاذ الفاضل محمد صالح عن طريق الكود التالي Dim I As Integer For I = 2 To .range("b" & .rows.count).end(3).row .Range("A" & I).Value = I-1 Next I بارك الله فيكم جميعا جعلها الله في ميزان حسناتكم تحياتي للجميع

استاذي العزيز @lionheart ملف الاكسل تم تصديره من اكسس عن طريق وحدة نمطية تحياتي tb3 _ 28-09-2021.xlsx