ابو عارف

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

أجل فهمت الان و غدا نقوم بتعديل ان شاء الله

أخي الفاضل لا تبدل شيء انظر الصورة على حسب 15 مؤطف، مجموعة 15 مؤظف 250 نقطة يعني 100 نقاط يساوي 40 في المئة ، الآن اجمع نقط في خانات أحمر و ازرق و أخضر و شوف النتيجة

اليك التعديل حسب فهمي من السؤال test 2.accdb

عليكم السلام لكن حقل نقاط فارغ

عليكم السلام جرب هذا Form.FilterOn = False Form.Filter = "[ETAT]='موظف'And [stuiationprof1]='القيام بالخدمة'" Form.FilterOn = True DoCmd.SetOrderBy "nocat DESC,nodgree DESC"

تم تبديل المرفق بآخر المعدل في مشاركة السابقة

نظرا لرعاية قانون المنتدى بعد اتمام الاجابة ستلقي الاجابة سؤال مختلف عن عنوان موضوع في موضوع مستقلة يحمل عنوان (تصفية حقول متعددة في نموذج) او اي اسم يناسبك مع ارفاق مثال المصغر ان امكن و ان شاء الله نخن في خدمتك سواء انا أو أحد الاخوان في المنتدى.

تفضل أخي Overtime_Final_2019.rar

هل تفصد تجاهل دقائق يعني من الساعة 14:30 الى 15:25 لايحسب شيء أو من 14:30 الى 16:29 يحسب ساعة ؟

عذرا للخطاء غير مقصودة حيث عملت تعديل في حقل جديد في استعلام ثم لصقته Total Out في بدلا من NDays_OT Overtime_Final_2019.rar

ابشر زر الكود في نفس نموذج و نسيق الحقل رقم Form.FilterOn = False Form.Filter = "[dtotal] > 30" Form.FilterOn = True زر الكود في نفس نموذج و نسيق الحقل نص Form.FilterOn = False Form.Filter = "Val([dtotal]) > 30" Form.FilterOn = True زر الكود في نموذج رئيسي و الحقل في نموذج فرعي و تنسيق الحقل رقم With SubForm.Form .FilterOn = False .Filter = "[dtotal] > 30" .FilterOn = True .FilterOn = True End With زر الكود في نموذج رئيسي و الحقل في نموذج فرعي و تنسيق الحقل نص With SubForm.Form .FilterOn = False .Filter = "Val([dtotal]) > 30" .FilterOn = True .FilterOn = True End With على حسب إسم نموذج فرعي SubForm

اعليكم السلام الصق هذالكود في حدث بعد تحديث لـ txt7 DoCmd.SetWarnings False DoCmd.RunSQL "UPDATE جدول1 SET جدول1.[تاريخ الحضور]=txt7" DoCmd.SetWarnings True Me.Requery

مبروك مبروك و الف مبروك و فعلا يستحق و بجدارة كما قال الاخ خالد