ابو عارف

اخي @محمد احمد لطفىهل يناسبك طريقة هذا بعد عدد سجلات 37

تفضل أخي جرب هذا Lab 2019 (1).rar

نظرتكم أجمل من مشاركاتي

وهذا على طريقة كود في حدث بغد تحديث لـ تكست بوكس 1 و تكست بوكس 2 Database.accdb

لا ادري كيف عملت over group علي حقل رصيد سابق هل تقصد على التعبير مربع رصيد سابق ؟ ياليت ترفع الملف أخي @اسلام سيدفي المرفق تجد قاعدتين على طريقتين جرب و وافيني بنتيجة قيمه فى حقل اريدها تظهر فى اول سجل فقط.rar

مافهمت بضبط هل تقصد زيادة ارتفاع تفصيل؟ هذا ممكن جعلها في صفحة الاخيرة فقط test120 (1).mdb

أخي و حبيبي الاستاذ @ابو ياسين المشولي كلامك صح مئة في المئة ولكن السبب هو كبس زر غير موافق بالخطاء عند حفظ الاخير في ارشيف لان كان وقت متأخر من اليل و تم اكمال الباقي لا بالعكس اتا اعتبر خبرتي نقطة من بحر خبراتكم و انا من استفيد من خبراتكم. قيمه فى حقل اريدها تظهر فى اول سجل فقط.rar و ادخالها في المعادلة يمكن تغير ها الى =Nz([الفواتير],0)+Nz([المرتجعات],0)+Nz([الخصم],0)+Nz([الدفعات],0)+[x1]

أخي @ابو ياسين المشولي عملت على حسب صورة توضحية بي بداية الموضوع هل سمعت كلام الأخ @essam rabea و قال قم برفع الرصيد السابق من التفصيل الى رأس التقربر و الأخ إسلام السيد قال لا.... اريده في تفصيل و بصوت عالي🤤

تفضل اخي التعديل على طريقة تحديد سجلات 37 سجل في كل صفحة test120 (1).mdb

و هذا حل آخر على طريقة مختلفة قيمه فى حقل اريدها تظهر فى اول سجل فقط.rar

أخي انقل الامضاء من تذييل التقربر الى تذييل الصفحة و تنحل المشكلة ان شاء الله

تفضل الملف بعد تعديل Hr_2.rar

السلام عليكم مجرد مشاركة الفكرة MsgBox DateSerial(Year(DT), IIf(Day(DT) <= 15, Month(DT), Month(DT) + 1), 1) [DT] اسم الحقل التاريخ

عليكم السلام المشكلة اتك ربطت نموذج الرئيسي و الفرعي بثلاثة حقول منهم العميل و المورد و للحل تلك المشكلة اكتفاء على ربط حقلي السريال فقط من كل نموذج مشكله الحقل الفارغ.accdb

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

الملف هذا يحدد نوزيع عدد المؤظفين على نسب على حسب جدول مسرود مسبقا على حقل ما ، مثل جدول في أول مرفق مسرود على حقل id و هذا تطبيق نفس طريفة على جدول الاكسس test 2.accdb

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

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

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

غير كود الزر الى: 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

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

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

انظر هذا صحيح

انظر مجموعة القسم (الادارة) و درجة 2=160 نسبة 40%=64 20+19+18=57 اي أقل بـ 3 لو جمعنا معهم يليه 16 قد تجاوز مجال 40% يعني =63 و هكذا نفس ادارة في درجة 4 حسبهم جيدا و ذاكان هناك اختلاف في معايير اخبرني حتى ينم تعديله

تفضل أخي التعديل على حسب القسم و درجة test 2.accdb