ابو عارف
الخبراء-
Posts
481 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
2
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو ابو عارف
-
الحقل الفارغ بين الحقول يعيق البحث فى النماذج
ابو عارف replied to اسلام سيد's topic in قسم الأكسيس Access
عليكم السلام المشكلة اتك ربطت نموذج الرئيسي و الفرعي بثلاثة حقول منهم العميل و المورد و للحل تلك المشكلة اكتفاء على ربط حقلي السريال فقط من كل نموذج مشكله الحقل الفارغ.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"
-
تم تبديل المرفق بآخر المعدل في مشاركة السابقة
-
تغيير كل القيم من خلال صندوق نص في الاعلى
ابو عارف replied to مرحبا البي's topic in قسم الأكسيس Access
نظرا لرعاية قانون المنتدى بعد اتمام الاجابة ستلقي الاجابة سؤال مختلف عن عنوان موضوع في موضوع مستقلة يحمل عنوان (تصفية حقول متعددة في نموذج) او اي اسم يناسبك مع ارفاق مثال المصغر ان امكن و ان شاء الله نخن في خدمتك سواء انا أو أحد الاخوان في المنتدى. -
تفضل أخي Overtime_Final_2019.rar
-
هل تفصد تجاهل دقائق يعني من الساعة 14:30 الى 15:25 لايحسب شيء أو من 14:30 الى 16:29 يحسب ساعة ؟
-
عذرا للخطاء غير مقصودة حيث عملت تعديل في حقل جديد في استعلام ثم لصقته Total Out في بدلا من NDays_OT Overtime_Final_2019.rar
-
تغيير كل القيم من خلال صندوق نص في الاعلى
ابو عارف replied to مرحبا البي's topic in قسم الأكسيس Access
ابشر زر الكود في نفس نموذج و نسيق الحقل رقم 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 -
تغيير كل القيم من خلال صندوق نص في الاعلى
ابو عارف replied to مرحبا البي's topic in قسم الأكسيس Access
اعليكم السلام الصق هذالكود في حدث بعد تحديث لـ txt7 DoCmd.SetWarnings False DoCmd.RunSQL "UPDATE جدول1 SET جدول1.[تاريخ الحضور]=txt7" DoCmd.SetWarnings True Me.Requery -
مبروك استاذ حسين كمال الترقية الى درجة خبير
ابو عارف replied to Ali Mohamed Ali's topic in قسم الأكسيس Access
مبروك مبروك و الف مبروك و فعلا يستحق و بجدارة كما قال الاخ خالد