Ahmed_J

السلام عليكم @د.كاف يار

ممكن بعد اذنك تعمل لي التعديل  ( اذا عندك اي طريفة  احترافية لحساب الراتب عن طريف الوحدات النمطية )  رجاءا ممكن تبعت ملف اتعلم منه

منذ ساعه, د.كاف يار said:

لأفضل انك تعمل جدول فيه الدرجة و الراتب و الوظيفة و تستدعيها من خلال الوحدة النمطية 

لأنك بهذي الطريقة راح تضطر تدخل تعدل في الوحدة النمطية كل ما احتجت للتعديل و هذا غير عملي

الله يبارك فيك

مرفق سلم للرواتب (اتمنىى ان ترشدني للطريقة المثالية والافضل لعمل برنامج للرواتب ) 

 اتمنى يكون الحساب عن طريق الوحدات النمطية

لابد اولا ان نختار الدرجة الوظيفية وهي من (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

السلام عليكم استاذ @محمد أبوعبدالله

تسلم ايدك

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

تحياتي لك استاذ

1 ساعه مضت, محمد أبوعبدالله said:

Dim ctl As Control
            For Each ctl In Me.Controls
                If ctl.ControlType = acTextBox Then
                    ctl.Value = Null
                End If
            Next ctl

السلام عليكم

لدي نموذج غير مرتبط  لاجراء عملية حسابية فيه 

المطلوب : كود لتفريغ البيانات من النموذج  من خلال زر

وشكرا

جمع الخدمة بالنموذج.accdb