عبدالله المجرب

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

انا افضل اكسل 2007 واكسس 2003

بداية ارجو منك زيارة هذا الرابط http://www.officena.net/ib/index.php?showtopic=41520 ثانياً حسب علمي لا يمكن وضع عمليات حسابية في الجداول وانما يمكن عملها في الاستعلامات والفورمات والتقارير

السلام عليكم في الخلية K2 في الورقة monadah ضع الشرط واستبدل الكود بهذا Sub Trheel3() Dim cl As Range If [K2] = "" Then Exit Sub For Each cl In Range("B2:B" & [B1000].End(xlUp).Row) If cl.Value = Sheets("monadah").[K2] Then cl.Resize(1, 4).Copy Sheets("monadah").Range("B" & Sheets("monadah").[B1000].End(xlUp).Row + 1) End If Next MsgBox "Mohammed Ibrahim ", vbOKOnly, "Good" End Sub

السلام عليكم اخي عبدالفتاح في المرفق جدول به بيانات لو افترضنا ان ثلاثة من المذكورين تمت ترقيتهم الى الدرجة الاعلى فهل يمكن الاستفادة من استعلام التحديث Abu_Ahmed.rar

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

اخي ابو لميس جربت المرفق في الرابط لكن لم افهم ما يتم بواسطة الاستعلامات الموجودة == يوجد رابط اخر في رابطك المرفق لكنه لا يعمل وتظهر رسالة خطاء

شكراً استاذنا ابو عمر ولميس على الرد هل من ملف توضيحي ان امكن

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

السلام عليكم بخصوص المعادلة للنتيجة بفرض ان الخلية Q10 هي خلية الدرجة التي تريد تحويلها في الخلية R10 ضع هذه المعادلة =IF(AND(Q10<=100;Q10>=95);"A+";IF(AND(Q10<95;Q10>=90);"A";IF(AND(Q10<90;Q10>=80);"B+";IF(AND(Q10<80;Q10>=70);"B";"")))) اكمل انت الباقي بنفس الطريقة لباقي التقييمات ========== في ما يخص النسبة المئوية من تنسيق الخلية في فئة الرقم اختر عام او رقم بدل النسبة المئوية

السلام عليكم سوالي هو حول استعلام التحديث هل يمكن الاستفادة منه في تحديث حقل الدرجة الوظيفية لموظفين محددين تم ترقيتهم الى الدرجة الاعلى

ما شاء الله سلمت يمينك ابا ناصر على هذا الابداع

انا قمت بالتجربة وظهرت الرسالة بالفعل

شكراً لك استاذ ابو ناصر تمت الاجابة

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

بصراحة لم اتمكن من فهم المرفق وعلاقته بالطلب فاعذرني فلازلت في البداية == طلبي هو بدل ان اقوم بعمل استعلام بالطريقة اليدوية ان ينشئ هذا الاستعلام بالكود فقط

السلام عليكم اذا كنت تقصد ان تكون اقيم في عمود هي 2 بعد تفعيل زر الامر قم بإضافة هذا السطر الى كود زر الامر DoCmd.RunSQL "UPDATE Table1 SET Table1.[Amount] =2" ليصبح لديك سطرين DoCmd.RunSQL "UPDATE Table1 SET Table1.[No] =[ ]" DoCmd.RunSQL "UPDATE Table1 SET Table1.[Amount] =2" والله اعلم

هل ممكن تعديل الكود بإضافة هذه الجملة اليه

السلام عليكم يرجى الالتزام بقواعد المشاركة بخصوص العنوان === استخدم هذه المعادلة في الخلية C3 ثم اسحب افقياً =IF(AND(C2>=1000;C2<3000);5%;IF(AND(C2>=3000;C2<5000);4.5%;IF(AND(C2>=5000;C2<7000);4%;IF(AND(C2>=7000;C2<9000);3.5%;IF(AND(C2>=9000;C2<11000);3%;IF(AND(C2>=11000;C2<13000);2.5%;IF(AND(C2>=13000;C2<=14000);2%;"")))))))

بارك الله فيك علة التنبيه

يعني لا يمكن عن طريق الكود انشاء استعلام جديد بشروط

وضحت الصورة تماماً فشكراً لك هذه بحاجة الى شرح ومثال توضيحي ان تكرمت استاذ ابو خليل

ارجو منك وضع مرفق ليتضح عمل الدالة

السلام عليكم اخي الكريم جرب هذا الرابط http://www.officena.net/ib/index.php?showtopic=24909

السلام عليكم اخي ابو مريم شكراً للرد طلبي ان يتم انشاء الاستعلام بالكود وليس يدوياً