Ahmed_J

السلام عليكم استاذ @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

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

السلام عليكم اساتذتي الاعزاء تسلم ايدك استاذنا العزيز @ابوخليل كلوا تمام بارك الله فيك لدي طلب اخر لو سمحت وهو عمل حساب الخدمة الوظيفية عن طريق الاستعلام لفد وجدت وحدة نمطية لاحد الاساتذة في الموقع يتم استدعائها عن طريق الاستعلام وعملت منها وحدة نمطية منها لجمع الايام والثانية لجمع الاشهر والثالثة لجمع السنوات والرابعة تشمل الكل باليوم والشهر والسنة لكن واجهتني اخطاء بعملية الجمع والطرح وظهور ارقام بالسالب يوجد ملف مرفق ارجو التعديل علية لاهمية الموضوع تحياتي للجميع ' الوحدة النمطية الاصلية Function Work(SumDto, SumMto As Byte, SumYto As Integer) As String Dim dd, mm As Byte Dim yy As Integer If SumDto > 30 Then SumDto = SumDto Mod 30 SumMto = SumMto + 1 End If If SumMto > 12 Then SumMto = SumMto Mod 12 SumYto = SumYto + 1 End If dd = SumDto mm = SumMto yy = SumYto Work = dd & " يوم و" & mm & " شهر و" & yy & " سنة" End Function جمع مدد الخدمة بالنموذج.accdb

السلام عليكم اساتذتي الاعزاء لدي نموذج لاحد الاخوة في الموقع لحساب مدة الخدمة الوظيفية باليوم والشهر والسنة المطلوب تصحيح الكود لحساب الخدمة النهائية (الخدمة الحالية + الخدمة السابقة - قترة الانقطاع) = الخدمة النهائية (جمع المدد) مع العلم اريد ان يكون حساب ايام الشهر هي (30) يوم فقط ومازاد عن ذلك يضافة للاشهر التي هي (12) شهر ومازاد عن ذلك يضاف للسنين ولا يجب ان يكون هنالك رقم بالسالب مرفق صورة فيها خدمة موظف حقيقية تحياتي للجميع جمع الخدمة بالنموذج.accdb

شكرا جزيلا بارك الله فيكم

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

السلام عليكم مشاركة مغ الاساتذة الاعزاء انظر للرابط اتمنى ان يكون المطلوب

السلام عليكم استاذ @د.كاف يار ارجو التعديل على الملف المرفق ووضع كود استدعاء زر Back_up في زر انهاء التطبيق (يعني عمل نسخة قبل الخروج) Call Back_up_Click تحياتي test.rar

السلام عليكم استاذ @د.كاف يار انا واجهتني نقس المشكلة علما ان كود استدعاء الزر صحيح تحياتي

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