heshamelmasry2000 قام بنشر مارس 26, 2005 مشاركة قام بنشر مارس 26, 2005 اخواني بالمنتدى صممت قاعده بيانات للموظفين وبها جدول باسماء الموظفين وجدول بالترقيات واريد عند اجراء ترقية للموظف ان يتم تغيير مسمى وظيفته ودرجته اي ياخد اخر اجراء وظيفي بجدول الترقيات ويضعها مكان اسم الوظيفه بجدول الموظفين وياخد اخر درجه بجدول الترقيات ويضعها بالدرجه بجدول الموظفين علما بانني ارغب بالاحتفاظ بتاريخ الترقيات لكل موظف بجدول الترقيات ارجو ان اكون فسرت المطلوب واسف لعدم قدرتي لارفاق الملف لانه كبير جدا والجداول فيه كثيره ومرتبطة ويصعب فصلها ارجو المساعده ولكم جزيل الشكر رابط هذا التعليق شارك More sharing options...
rudwan قام بنشر مارس 26, 2005 مشاركة قام بنشر مارس 26, 2005 أظن أخي الكريم أنه لاداعي لجدول الترقيات يمكنك عمل استعلام من جدول الموظفين و فيه البيانات المطلوبه للموظف اضافة الى حقلين المسمى الوظيفي الجديد - الدرجه و ذلك كادخال مباشر في الجدول و دون الحاجة لانشاء جدول للترقيات طالما أ،ك لاتريد الاحتفاظ بالترقيات السابقه . كما أنه من الأفضل عمل جدول اضافي للمسمى الوظيفي و يتألف من : رقم مسلسل - المسمى الوظيفي و ربطه مع جدول الموظفين على حقل رقم المسمى الوظيفي رابط هذا التعليق شارك More sharing options...
heshamelmasry2000 قام بنشر مارس 27, 2005 الكاتب مشاركة قام بنشر مارس 27, 2005 (معدل) اخواني انا اريد الاحتفاظ بالترقيات السابقة لذلك انشئت جدول للترقيات وكل ما اريده ان يتم قراءة اخر ترقية وتتم تغيير اسم الوظيفه بناء على نفس الوظيفه باخر ترقية علما بان حقل (اسم الوظيفه ) متشابه سواء في جدول الموظفين او جدول الترقيات ولكن عجزت عن عمل استعلام سواء الحاق او تحديث ليقرأ اخر ترقية وكلما انشئت استعلام يأتي بجميع ترقيات الموظف وانا اريد اخر ترقية علما باني انشئت حقل ترقيم تلقائي ليتم التعرف على اكبر رقم بحقل الترقيم التلقائي ويقرأ اسم الوظيفه المقابله له ولكنه ياتي لي بجميع الترقيات للموظف شكرا لتعاونكم واسف لازعاجكم تم تعديل مارس 27, 2005 بواسطه heshamelmasry2000 رابط هذا التعليق شارك More sharing options...
rawya قام بنشر مارس 27, 2005 مشاركة قام بنشر مارس 27, 2005 تحياتي أضف الكود التالي بعد التحديث في نموذج الترقيات ، حيث افترض انك تعمل عليه وتريد في نفس الوقت تحديث البيانات في جدول الموظفين.. بإعتبار ان me.positon me.grade هي حقول موجودة على النموذج ويمكنك استبدالها بأي قيم خاصة تحدد الوظيفة والدرجة docmd.setwarning 0 docmd.runSQL "UPDATE employeeTbl SET positioin='" & me.postion & "'" docmd.runSQL "UPDATE employeeTbl SET grade= '" & me.grade & "'" docmd.runSQL "UPDATE promotionTbl SET date = " & date() أرجو ان يكون هذا هو المطلوب في سؤالك رابط هذا التعليق شارك More sharing options...
rawya قام بنشر مارس 27, 2005 مشاركة قام بنشر مارس 27, 2005 أعتذر فما زال الكود ناقصاً حيث يجب تحديد الشرط وهو الرقم ( المفتاح الرئيسي للموظف ) لتعيين الحقل الذي سيتم به التحديث docmd.setwarning 0 docmd.runSQL "UPDATE employeeTbl SET positioin='" & me.postion & "' WHERE employeeSno = " & me.employeeNo" docmd.runSQL "UPDATE employeeTbl SET grade= '" & "' WHERE employeeSno = " & me.employeeNo docmd.runSQL "UPDATE promotionTbl SET date = " & date() & " WHERE promotionSno = " & me.promotionNo رابط هذا التعليق شارك More sharing options...
rudwan قام بنشر مارس 27, 2005 مشاركة قام بنشر مارس 27, 2005 برافو عليكي يا راويه هذا هو الذي كنا نريده منك , أنتي لاتحتاجين الا الى التشجيع في الردود فقط . و لاتنقصك الخبره و لا منطقية الحل , فبارك الله فيكي الأخ heshamelmasry2000 اذا كنت تريد الاحتفاظ بالترقيات السابقه فهذا الحل الذي طرحته الأخت راويه هو الأنسب و يفترض عليك تعديل الترقيه من النموذج نفسه , أي اذا كان نموذج الترقيات عندك يتم تشغيل هذا الأمر لتعديل الحقول في جدول الموظفين رابط هذا التعليق شارك More sharing options...
heshamelmasry2000 قام بنشر مارس 27, 2005 الكاتب مشاركة قام بنشر مارس 27, 2005 الف شكر للاخت راويه على المجهود الوافر وشكرا لـ rudwan على تعقيباته المثمرة اضفت الكود وعمل بشكل جيد وهو المطلوب شكرا الف الف شكر رابط هذا التعليق شارك More sharing options...
heshamelmasry2000 قام بنشر مارس 27, 2005 الكاتب مشاركة قام بنشر مارس 27, 2005 الاخوه الاعزاء تم اضافه الكود وتم تعديل المسمى الوظيفي ولم يتم تعديل الدرجه علما بان الدرجه حقلها رقم وليس نص فهل هناك تغيير في الكود شكرا لمساعدتكم رابط هذا التعليق شارك More sharing options...
rawya قام بنشر مارس 27, 2005 مشاركة قام بنشر مارس 27, 2005 أخي الفاضل .. بما أن الحقل عبارة عن رقم فيجب التخلص من علامتي التنصيص ليصبح الكود بالشكل التالي docmd.runSQL "UPDATE employeeTbl SET grade= " & me.grade & " WHERE employeeSno = " & me.employeeNo رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.