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

السلام عليكم اخي عبدالفتاح في المرفق جدول به بيانات لو افترضنا ان ثلاثة من المذكورين تمت ترقيتهم الى الدرجة الاعلى فهل يمكن الاستفادة من استعلام التحديث 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

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

السلام عليكم قمت بلمحاولة ان يتم انشاء استعلام جديد (بشروط) بواسطة الكود (يتم تفعيله عن طريق زر أمر) فقمت بكتابة هذا السطر في الكود DoCmd.RunSQL "SELECT Mydt.SRNO, Mydt.MyName, Mydt.Fuc, Mydt.Site" & vbCrLf & _ "FROM Mydt" & vbCrLf & _ "WHERE (((Mydt.MyName) Like ""*"" & [ادخل جزء من الأسم] & ""*"" )) ;" مع العلم بان هذه الجملة هي في الاصل جملة SQL تم تحويلها الى كود بعد الاطلاع على عدد من اعمال الاساتذة بهذا الخصوص وهذه الجملة هي كالتالي SELECT Mydt.SRNO, Mydt.MyName, Mydt.Fuc, Mydt.Site FROM Mydt WHERE (((Mydt.Rank) Like "*" & [ادخل جزء من الأسم] & "*")); ولكن عند تفعيل زر الأمر تظهر هذه الرسالة ================================= قد أكون اخطأت في كتابة الجملة وارجو التصحيح والمهم هو كيفية إنشاء إستعلام جديد (بأسم محدد) بالشروط الموجود على ان يتم حذفه أو تحديثه في كل مرة يتم تفعيل الزر

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

السلام عليكم كما هو معروف في الاكسس 2003 ففي وضع تصميم الفورم عند اضافة زر أمر فانه يتم انشاء كود (VBA) لهذا الزر لكن في اكسس 2007 لا يتم كتابة هذا الكود وبذلك عند نقل الملف الى نظام به اوفيس 2003 لا يعمل الزر فهل هناك طريقة ليتم ضبط الاكسس ليقوم بكتابة الكود في محرر الاكواد بدل ان يكون اجراء متضمن وشكراً

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