طاهر اوفيسنا

مشكور أستاذ على النصيحة ولكن للأسف لايوجد لاسجل مدني ولا رقم قومي صحيح ربما تكون فيه تشابه في العديد من الأسماء والألقاب بواسطة همزة او غيرها وهذا منطقيا لأن اي مبرمج لما يبرمج شيء يحوزه من شتى النواحي ولكن : خلينا في مثالنا هذا ايمكن العمل وفقا للصورة اعلاه ؟ ام لا ومن بعد نعمل إستعلام به إكتشاف كل الأسماء المتقاربة والمتشابه عند الحقل nom In (SELECT [nom] FROM [tblInfo] As Tmp GROUP BY [nom] HAVING Count(*)>1 )

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

المقصود بعدم التكرار الا في الإسم واللقب وفي رقم القطعة اما إسم الأب يكون تنبيه بأن هذا الإسم هذا موجود " فهل تريد إضافته ام لا" مثلا

شكرا لك اخي يوسف يظهر التنبيه بعد إملاء كل السجلات اي ان التكرار إذا كانت نفس المعلومات فيهم في ثلاثة مربعات النص المشار اليها سابقا يظهر وإذا كان واحد منهم متغير فلا يظهر هذه الفكرة ام كيف ؟

شكر لكما أخواني آخر الأرض و عبد الرحمن هاشم على المساعدة هذا هو المطلوب ولكن عند إسم الأب طلبت عمل تنبيه فقط ويقبل الإسم المكرر لأنه الكثير من الأباء لهم نفس الأسماء

شكرا لك أخي على الإهتمام طبقت كل من نصحتني به ولكن وصلت لنتيجة صحيحة مرة واحدة فقط ومن بعد لم تفلح ارجو التعديل على المرفق في ثلاثة وشكرا لك

السلام عليكم أخواني ممكن مساعدة بخصوص عدم التكرار في المربعات النص التالية الإسم واللقب إسم الأب رقم القطعة وإذا كان غير مكرر اي إسم أخر نعمل له قبول وإذا كان مكرر يرجعني الى السجل الذي به التكرار وشكرا المحيطات الفلاحية.rar

أخي العزيز ssm شكرا لمساعدتك وإهتمامك تم الحل كمايلي : - نزع إشارة الصح في المعيار الخاص بالوظيفة في الإستعلام - تعديل على كود زر تعميم كمايلي : Private Sub أمر8_Click() Dim rst As DAO.Recordset Dim lng3, lng4, lng5, lng2 As String Set rst = CurrentDb.OpenRecordset("QUp") On Error Resume Next rst.MoveFirst lng3 = rst.Fields(3) lng4 = rst.Fields(4) 'lng5 = rst.Fields(5) lng2 = rst.Fields(2) While rst.EOF = False rst.Edit rst.Fields(3) = lng3 rst.Fields(4) = lng4 'rst.Fields(5) = lng5 rst.Fields(2) = lng2 rst.Update rst.MoveNext Wend rst.Close Set rst = Nothing DoCmd.SetWarnings False DoCmd.RunSQL "INSERT INTO OtherDiscount ( EmployeeID, Discount_Date, TheDiscount, Obsérvation ) " & vbCrLf & _ "SELECT QUp.EmployeeID, QUp.Discount_Date, QUp.TheDiscount, QUp.Obsérvation " & vbCrLf & _ "FROM QUp;" DoCmd.RunSQL "DELETE tmp.* FROM tmp" DoCmd.SetWarnings True Me.Requery End Sub

اخي شكرا لك على الإهتمام الآن ظهر مشكل أخر وهو عدم تسجيل الإقتطاعات بالجدول OtherDiscount وكأن الحدث بالتعميم لا يعمل

شكرا لك أخي s s m على الإهتمام أخي المشكلة بين "موظف و متعاقد كامل و متعاقد جزئي" وليست مع باقي الوظائف الأخرى لاحظ المثال الذي عدلت عليه في المشاركة رقم 9 وغير جميع وظائف العمال الى الوظيفة "موظف او متعاقد كامل او متعاقد جزئي" وأنظر النتيجة بعد الإقتطاع سيتم حتما التغيير كلها الى موظف وهذه هي المشكلة التي اعاني منها ليش يتم التغيير في الوظيفة ؟ بعدما كانت تشتغل عادية

كالعادة اخي مافيه جديد معدل تحذف رتبة متعاقد كامل ورتبة متعاقد جزئي وتستبدل بموظف على فكرة ما سبب حذف الـ 100 سجل من جدول Employee

للرفع

إليكم المرفق الذي به المشكلة 2015.rar

اليست المشكلة في هذه الرتبة التي بها المعيار موجودة بالإستعلام QUp وغير موجودة بالوحدة النمطية

استاذي الكريم s s m قلت في طلبي ان المرفق يعمل بشكل طبيعي المشكلة في البرنامج الأصلي الذي بحوزتي تقبل تحياتي

أستاذي وأخي ابوخليل كان لي الشرف بمساعدتك خلال شهر ماي 2014 على الرابط التالي : http://www.officena.net/ib/index.php?showtopic=53786&hl= ارجو المساعدة الآن علما ان التغيير يتم في جدول Employee وخاصة في الحقل detach الا في هذين الرتبتين ("متعاقد كامل" تصبح "موظف") و الا ("متعاقد جزئي" تصبح "موظف") وهذا بعد الدخول على فورم frmUp وإدخال مبلغ المشاركة وتاريخ المشاركة وملاحظات المشاركة

السلام عليكم إخواني في الحقيقة إستغربت لهذا المشكل الذي حل بالبرنامج خلال سنة 2015 بالرغم أنه خلال السنة الماضية 2014 كان عادي والمثمثل في تعميم مبلغ المشاركة في الفورم FrmUp حسب الصور ومن بعد اجد في حقل رقم 8 الوظيفة في الجدول Employee تغيرت الى موظف للكل فماسبب هذا علما أن المرفق يعمل عادي اما البرنامج الأصلي حدث فيه هذا التغير أرجو المساعدة Discount.rar

ففي اعتقادي انه في خطأ في ادخال السجل بالنسبة للحارس ، فعند تعديله ، سيظهر اسمه ان شاء الله هذا معناه: التوقيت الكامل والجزئي يكونان فقط لرتبة عامل مهني من المستوى الاول جعفر أخي واستاذي العزيز جعفر مايسعني الا ان اشكرك فشكرا جزيلا على كل هذه المساعدة وحقيقة نورت منتدى أوفيسنا ويحتاج الى خبراء من أمثالك *- بخصوص عدم ظهور رتبة الحارس او رتب أخرى بصفة التعاقد "متعاقد بالتوقيت الكامل" فقد تمت إضافة رقم الى المعيار كما يلي : 1 Or 2 Or 4 Or 3 وتمت ظهور رتبة الحارس *- وأما بخصوص عدم ظهور موظفين تابعين لإدارة اخرى مثلا " الوضعية : موظف بالولاية " فقد تمت إضافة هذا المعيار في الوضعية "موظف" Or "متعاقد بالتوقيت الكامل" Or "متعاقد بالتوقيت الجزئي" وتم الحل بتوفيق من الله عز وجل وبمساعدتك فأشكرك مرة ثانية وربي يحفظك دنيا واخرة ملاحظة : كل هذا التصحيح والنتائج كانت في البرنامج الأصلي الذي بحوزتي تقبل تحياتي القلبية الخالصة

اليك الصورة والمرفق والمطلوب أخي جعفر 2.2..mdb.zip آمل ان أجد حلا قريبا

استاذي العزيز جعفر لقد تم الحل وفقا لما تفضلت به لديا مشكل أخر وهو بخصوص رتبة عامل مهني من المستوى الأول هذه منقسمة الى قسمين "متعاقد بالتوقيت الكامل" و"متعاقد بالتوقيت الجزئي" حسب الوحدة النمطية فإنها جمعت كليهما معا هل من فكرة تجمع لكل رتبة لوحدها اي في التقرير تظهر كل على حدى : - عامل مهني من المستوى الأول ------ توقيت كامل - عامل مهني من المستوى الأول ----- توقيت جزئي

اخي واستاذي العزير جعفر فيه شروط وقيود لا زم أتقيد بها كما اسلفت الذكر لأنه لدينا موظفين تابعين لإدارات أخرى ورتبهم ليست كرتبنا لهذا لا يلزم علينا ان نظهرهم في هذا التقرير او غيره والصورة توضح ذالك هذا مثال عدلت عليه وفق النموذج المعدل من طرفكم ارجو المساعدة

بارك الله فيك اخي جعفر دائما في القمة إبداع حقا ربي يحفظك والآن كيف اكمل هذا الشرط بالوحدة النمطية myCondition = myCondition & " And [الوضعية]='موظف'" حيث الشرط في الوضعية "موظف" او "متعاقد بالتوقيت الكامل" او "متعاقد بالتوقيت الجزئي" لأنه صراحة في 02 رتب وهم بالوضعية "موظف بالولاية" لاينتمون لهذه المؤسسة ولكن هم في حالة إنتداب ارجو أن لايظهر لا رتبهم ولا اعمارهم ولا اجناسهم وشكرا لك مسبقا

اقصد تصفية حسب الجنس ذكر او انثى كل رتبة على حدى

للأسف الفكرة لم تفلح

إخواني الأعزاء لقد لغيت الفكرة الأولى هل يمكن مساعدة بخصوص ظهور كل الرتب الموجودة بالجدول وفقا للصورة فهل يمكن تطبيق هذا مع وجود معيار ظهور الا الرتب الي بها موظفين جمع كل الرتب بالفئة العمرية.rar