Ahmed_J

السلام عليكم @د.كاف يار ممكن بعد اذنك تعمل لي التعديل ( اذا عندك اي طريفة احترافية لحساب الراتب عن طريف الوحدات النمطية ) رجاءا ممكن تبعت ملف اتعلم منه الله يبارك فيك مرفق سلم للرواتب (اتمنىى ان ترشدني للطريقة المثالية والافضل لعمل برنامج للرواتب ) اتمنى يكون الحساب عن طريق الوحدات النمطية لابد اولا ان نختار الدرجة الوظيفية وهي من (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

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

استاذي العزيز @أ / محمد صالح جزيل الشكر لك تم حل 50% من المشكلة بقيت مشكلة واحدة فقط (تحتاج الى تكملة الكود السابق) هي ان التسلسل يتجاوز عدد الصفوف في ملف الاكسل المقروض ان يتم ادراج التسلسل حسب المدى لاخر صف لان عدد السحلات يختلف بين فترة واخرى (غير ثابت) حسب طبيعة العمل نحياتي للجميع

السلام عليكم اساتذتي الكرام لدي ملف اكسل تم تصديره من اكسس هل يمكن اكمال وتعديل التسلسل بكود معين علما انني استخدم الكود التالي: Dim I As Integer I = 1 For I = 1 To 10 .Range("A" & I).Value = I Next تحياتي للجميع

استاذي العزيز بعد اضافة الكود الخاص بك اصبح العمل كما في الصورة التسلسلات غير صحيحة والكود يتجاوز الصغوف هنالك خطا ما بالكود لااعرفه تحباتي export _kanory.accdb

السلام علكم استاذ @AlwaZeeR شكرا جزيلا لك على اهتمامك الكريم جربت هذه الطريقة لكن واجهتني مشكلة انه انا عامل استعلام توحيد لثلاث جداول بالاستعلام ولم استطع اضافة الكود لهم جربت كود ونجح 50% في الوحدة النمطية لكن فيه مشكلتين: 1- ان يبدا الترقيم من الخلية A2 2- ان لايتجاوز الترقيم اخر صف بالجدول كما في الصورة على اعتبار ان عدد السجلات متغيرة دائما Dim I As Integer I = 1 For I = 1 To 10 .Range("A" & I).Value = I Next تحياتي للجميع

السلام غليكم اساتذتي الاعزاء شكرا لكم اساتذتي @AlwaZeeR @محمد أبوعبدالله @د.كاف يار @kanory @ابا جودى @Eng.Qassim على تفاعلكم مع الموضوع عندي طلب اخير لوسمحتم لكي ياخذ الموضوع كل جوانبه لما فيه فائدة لك الاعضاء عند حذق سجل من الجدول مثلا tb3 وتصديره الى اكسل يكون التسلسل غير صحيح في الملف المصدر هل من الممكن عن طريق الكود تصحيح التسلسل من خلال الوحدة النمطية حصرا الموجودة بالملف المرفق وشكرا لكم export _kanory.accdb

السلام عليكم اساتذتي الكرام استاذ @AlwaZeeR تحياتي لك عند اكمال البرنامج واجهتني مشكلة صغيرة لم استطع حلها حتى من الانترنت وهي عند تحديد المدى للخلايا (Range) يبقى اللون الاصغر ثابتا عند زيادة سجل او عدة سجلات في الجداول كما قي الصور 1و2و3 وعند عمل مدى لكل الصف الاول ("A1:XDF1") Range يصل اللون الى كل من اول خلية الى اخر خلية بالاكسل كما في الصورة 4 هل من الممكن التعديل على الوحدة النمطية في الملف المرفق مثلا جعل الخلايا التي ليس بها بيانات بدون لون او كلما يزيد سجل في الجداول ياخذ لونه بصورة تلقائية علما باني استخدم اوفيس 2010 ولدي عدد مختلف من السجلات في الجداول وشكرا لتعاونكم حفظكم الله export excelw.accdb

السلام عليكم تم اضافة الكود التالي للوحدة النمطية واصبح كل شيء تمام وممتاز .Range("A1:E1").Interior.Color = vbYellow الله يباركم فيكم اساتذتي الاعزاء تحياتي للجمبع

السلام عليكم استاذ @AlwaZeeR تسلم يداك يابطل كلوا تمام لي طلب صغير اخر لو سمحت ممكن رؤوس العناوين تكون بلون اصغر او احمر كما في الصورة واكون شاكر لك تحياتي

استاذي العزيز Eng.Qassim 1- التوسيط (توسيط الخلايا) 2- خطوط الشبكة استاذ @ابا جودى اشكرك كثيرا ياريت التعديل يكون على ملفي بالمشاركة الاولى وبنفس الطريقة التي استخرج بها كود الاكسيل ولا اريد ملف اكسيل تم اعاده سابقا لانه يتعارض كليا مع عملي

السلام عليكم اساتنذتي الاعزاء بالنسبة للاستاذ @محمد أبوعبدالله انا قمت بتنسيق الجداول سايقا ولم تتغير النتيجة علما بان الملف المستخرج هو من استعلام توحيدي ولا استطيع تنسيقة ؟؟؟؟؟ تحياتي لك وبارك الله فيك بالنسبة للاستاذ @Eng.Qassim قمت باافة كود الى الاكواد الخاصة بك xlWB1.Worksheets("Qtoexport").Range("A1:E7").EntireColumn.Font.Bold = True واصبح كما في الصورة ولايوجد توسيط او تحديد للجقول اما بالنسبة للاستاذ @ابا جودى استاذنا الكبير لم افهم طريقتك؟ اعذرني وان الملف لااريده معد مسبقا ياريت يكون التعديل على ملفي المرفق تحياتي للجميع

شكرا لك Dim ctl As Control For Each ctl In Me.Controls If ctl.ControlType = acTextBox Then ctl.Value = Null End If Next ctl قصدي اذا كانت الحقول بها بيانات عند الضغط على زر تقريغ البيانات يتم تقريغها واظهار رسالة (تم تفريغ الحقول) اما اذا كانت الحقول اصلا فارغة وتم الضغط على زر تقريغ البيانات تظهر رسالة (الحقول فارغة) تحياتي للجميع

السلام عليكم اساتذتي الاعزاء هل ممكن التعديل على كود التصدير الى اكسيل في النموذج المرفق الصورة 1 ليصبح منسق كما في الصورة 2 من حيث (حجم الخط 12 والتوسيط وتحديد كافة الحدود) ففط علما اني استخدم اوفيس 2010 تحياتي للجميع export excel.accdb

up

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

السلام عليكم لدي نموذج غير مرتبط لاجراء عملية حسابية فيه المطلوب : كود لتفريغ البيانات من النموذج من خلال زر وشكرا جمع الخدمة بالنموذج.accdb