ترتيب شرطي في النموذج

[kha9009lid]

ملف استاذنا ابو عارف اعيد رفعه لك

علما بان العدد 15 وليس 10

ابوعارف.accdb

[ابو عارف]

15 دقائق مضت, مرحبا البي said:

لكن حسب الصورة مزال هناك خطأ يجب أن يكون 4 في الدنيا و 4 في الوسطى و2 في القصوى من مجموع 10 موظفين في نفس القسم والدرجة

انظر مجموعة القسم (الادارة) و درجة 2=160

نسبة 40%=64

20+19+18=57 اي أقل  بـ 3

لو جمعنا معهم يليه 16 قد تجاوز مجال 40% يعني =63

و هكذا نفس ادارة في درجة 4

حسبهم جيدا و ذاكان هناك اختلاف في معايير اخبرني حتى ينم تعديله

 

 

[مرحبا البي]

استاذي الكريم ابو عارف ،  لايمكن جمع النقط ، يتم جمع عدد الموظفين وتقسمهم 4و4و2 

اعتقد انني لم انجح في توصيل المطلوب

إليك نص القانون  

الملف لم يعمل معي ، يمكن حمله في ونرار

تم تعديل سبتمبر 14, 2019 بواسطه مرحبا البي

[ابو عارف]

انظر هذا صحيح

[ابو عارف]

اقصد 10 الاولى في الصورة

[مرحبا البي]

نعم صحيح واسفله صحيح 5 من الموظفين 2 و 2 و 1

[ابو عارف]

24 دقائق مضت, مرحبا البي said:

لايمكن جمع النقط ، يتم جمع عدد الموظفين وتقسمهم 4و4و2

جمع نقات لتشكيل نسبة المئوية من مجموعة لا لإجمالي نقاط المؤظف

test 2.rar

 

[مرحبا البي]

لم تفتح معي للاسف ما ادري ايش المشكلة

بالنسبة للنقط لنفترض انه عدا 2 موظفين تحصلو على علامة 19 من 20  والثمانية الباقيين تحصلو على 1 من 20 لكن موظف يعني مجموع نقطهم سوف تكون 8 هل تكون النتيجة صحيحة 4و4و2 لعدد 10 موظفين او النسب المؤية

[ابو عارف]

غير كود الزر الى: 

DoCmd.RunCommand acCmdSaveRecord
Dim Allsum As Double
Dim Part1Sum As Double
Dim Part2Sum As Double
Dim Part3Sum As Double
Dim NewSum As Double
NewSum = 0
Dim Db As DAO.Database
Dim rst As Recordset
Dim rstA As Recordset
Set Db = CurrentDb
Set rstA = Db.OpenRecordset("SELECT strDepartment_ID,degree FROM tblemploi GROUP BY strDepartment_ID,degree")
rstA.MoveFirst
Do Until rstA.EOF
Set rst = Db.OpenRecordset("SELECT * FROM tblemploi WHERE tblemploi.strDepartment_ID ='" & rstA!strDepartment_ID & "' AND tblemploi.degree=" & rstA!degree & " ORDER BY notedegree DESC")


rst.MoveFirst
Allsum = DSum("[notedegree]", "tblemploi", "[degree]=" & rstA![degree] & " And [strDepartment_ID]='" & rstA![strDepartment_ID] & "'")
Part1Sum = Allsum / 100 * 40
Part2Sum = Allsum / 100 * 80

Do Until rst.EOF


rst.Edit
If NewSum <= Part1Sum Then
rst![mod] = "الدنيا"
Else
If NewSum <= Part2Sum Then
rst![mod] = "الوسطى"
Else
rst![mod] = "القصوى"
End If
End If

rst.Update
NewSum = NewSum + rst![notedegree]
rst.MoveNext
Loop
NewSum = 0

rstA.MoveNext
Loop
Set rst = Nothing
Set Db = Nothing
Set rstA = Nothing
'DoCmd.SetOrderBy "notedegree DESC"
Form.Requery

 

تم تعديل سبتمبر 14, 2019 بواسطه ابو عارف

[مرحبا البي]

ممتاز أبو عارف ، الله يباركلك في اهلك ومالك وولك يزيدك بسطة في العلم والجسم ، مشاء الله 

رائع

[ابو عارف]

آمين آمين وياك 

[مرحبا البي]

استاذي ابو عارف 

لنفترض ان القسم هي كومبوبوكس من خلالها نغير قسم الموظف كيف يكون الامر

[ابو عارف]

4 ساعات مضت, مرحبا البي said:

لنفترض ان القسم هي كومبوبوكس من خلالها نغير قسم الموظف كيف يكون الامر

هذا على حسب عدد اعمدة كومبوبوكس مثلاً عمود 1 و مصدره نفس حقل في جدول ، كما هو

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

باختصار انشيء مربع نص في نموذج ثم اكتب بداخلها =[ComboboxName] كمصدر تلك المربع  اذا عرض نفس نص كما هو في كومبوبوكس ، عادي لا فرق بين كومبوبوكس  او غير كومبوبوكس اما اذا عرض رقم، يجب تعديل الكود كي يتعامل مع كومبوبو كحقل رقمي.

[مرحبا البي]

استاذي الكريم ابو عارف موال هتاك خطأ

هناك قسم فيه 2  موظفين فقط  ومن نفس الدرجة ...طبقا للقانون موظف تكون ترقيته في الدنيا واخر في الوسطى مهما كانت النقة

لكن عند وضع نقطة 5 و 4 على التوالي للموظفين الاثنين ، تم وضع موظف في الوسطى واخر في القصوى؟

 

[مرحبا البي]

ابو عارف وجدت ملف يحدد توزيع عدد الموظفين على النسب اليك التالي

Calcule Ech-V2016.xlsm

[ابو عارف]

37 دقائق مضت, مرحبا البي said:

هناك قسم فيه 2  موظفين فقط  ومن نفس الدرجة ...طبقا للقانون موظف تكون ترقيته في الدنيا واخر في الوسطى مهما كانت النقة

لكن عند وضع نقطة 5 و 4 على التوالي للموظفين الاثنين ، تم وضع موظف في الوسطى واخر في القصوى؟

 

17 دقائق مضت, مرحبا البي said:

بو عارف وجدت ملف يحدد توزيع عدد الموظفين على النسب اليك التالي

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

[مرحبا البي]

جرب ويمشي ربي يبارك

تمام 

انا نقلته في ملف اخر ممكن خلبط مفهمت

[مرحبا البي]

سلام عليكم

سيدي الفاضل ابو عارف وسع بالك وصدرك معي وسامحني كثرت والله

رح اعطيك قاعدة بيانات وشروط كيفية هذه الترقية وان شاء الله تعاونني

اليك هذه الصورة وهي النسب الحقيقة حسب التعليمات والنصو القانونية

مع ملف اكسيل كيف تقسم من 1 الى 100 موظف  حسب نوع الترقية الدنيا  ،الوسطى ، القصوى

 

عدد العمال حسب النسب.xlsx

تم تعديل سبتمبر 14, 2019 بواسطه مرحبا البي

[مرحبا البي]

ممكن ايميل خاص ابو عارف

[ابو عارف]

12 ساعات مضت, مرحبا البي said:

ابو عارف وجدت ملف يحدد توزيع عدد الموظفين على النسب اليك التالي

الملف هذا يحدد نوزيع عدد المؤظفين على نسب على حسب جدول مسرود مسبقا  على حقل ما ، مثل جدول في أول مرفق مسرود على حقل id

و هذا تطبيق نفس طريفة على جدول الاكسس 

test 2.accdb

[مرحبا البي]

نعم الملف يعمل جيدا ، بارك الله فيك ، خبير اكسس اسم علم مسمى حقيقي ماشاء الله

[مرحبا البي]

ابو عارف ممكن تعديل الله يجازيك

[مرحبا البي]

السلام عليكم

أستاذ ي الكريم أبو عارف بعد اذنكم

ممكن طلب اخير ووهو تعديل 

السلام عليكم

أستاذ ي الكريم أبو عارف بعد اذنكم

ممكن طلب اخير ووهو تعديل 

[مرحبا البي]

والله استحييت من كثرة طلباتي ، انا اسف جدا

شكرا جزيلا لكم وبارك الله فيكم على الروج الاجابية ونشر العلم وهذا الملتقى المثمر والرائع  ،‏{‏‏يَرْفَعِ اللَّهُ الَّذِينَ آمَنُوا مِنكُمْ وَالَّذِينَ أُوتُوا الْعِلْمَ دَرَجَاتٍ‏}

 

لقد قمت بتغيير بعض اسماء الحقول واضفت اخرين

عند تساوي نقطة يفضل تاريخ الميلاد اي الاكبر سنا

هذا التعديل المطلوب

أبو عارف اخر تعديل.rar

تم تعديل سبتمبر 15, 2019 بواسطه مرحبا البي

[ابو عارف]

في ١٥‏/٩‏/٢٠١٩ at 15:33, مرحبا البي said:

والله استحييت من كثرة طلباتي ، انا اسف جدا

نحن اخوان لنا حقوق بعضنا على البعض

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

تفضل الملف بعد تعديل حسب ما طلبت

H_r.rar