طاهر اوفيسنا قام بنشر مارس 5, 2015 قام بنشر مارس 5, 2015 (معدل) السلام عليكم إخواني في الحقيقة إستغربت لهذا المشكل الذي حل بالبرنامج خلال سنة 2015 بالرغم أنه خلال السنة الماضية 2014 كان عادي والمثمثل في تعميم مبلغ المشاركة في الفورم FrmUp حسب الصور ومن بعد اجد في حقل رقم 8 الوظيفة في الجدول Employee تغيرت الى موظف للكل فماسبب هذا علما أن المرفق يعمل عادي اما البرنامج الأصلي حدث فيه هذا التغير أرجو المساعدة Discount.rar تم تعديل مارس 5, 2015 بواسطه كريمو2
ابو محمد2 قام بنشر مارس 6, 2015 قام بنشر مارس 6, 2015 السلام عليكم البرنامج يعمل ولم تتغير الوظيفه الى موظف وبقى كل موظف بمسماه الوظيفي بالتوفيق
طاهر اوفيسنا قام بنشر مارس 6, 2015 الكاتب قام بنشر مارس 6, 2015 أستاذي وأخي ابوخليل كان لي الشرف بمساعدتك خلال شهر ماي 2014 على الرابط التالي : http://www.officena.net/ib/index.php?showtopic=53786&hl= ارجو المساعدة الآن علما ان التغيير يتم في جدول Employee وخاصة في الحقل detach الا في هذين الرتبتين ("متعاقد كامل" تصبح "موظف") و الا ("متعاقد جزئي" تصبح "موظف") وهذا بعد الدخول على فورم frmUp وإدخال مبلغ المشاركة وتاريخ المشاركة وملاحظات المشاركة
طاهر اوفيسنا قام بنشر مارس 6, 2015 الكاتب قام بنشر مارس 6, 2015 السلام عليكم البرنامج يعمل ولم تتغير الوظيفه الى موظف وبقى كل موظف بمسماه الوظيفي بالتوفيق استاذي الكريم s s m قلت في طلبي ان المرفق يعمل بشكل طبيعي المشكلة في البرنامج الأصلي الذي بحوزتي تقبل تحياتي
طاهر اوفيسنا قام بنشر مارس 6, 2015 الكاتب قام بنشر مارس 6, 2015 اليست المشكلة في هذه الرتبة التي بها المعيار موجودة بالإستعلام QUp وغير موجودة بالوحدة النمطية
ابو محمد2 قام بنشر مارس 6, 2015 قام بنشر مارس 6, 2015 السلام عليكم اخي الكريم ترفع الملف الذي يعمل ---- ؟؟؟ وتترك الملف الحاوي على المشكله اذا كيف سنتمكن من مشاهدة هذه المشكلة والمساعدة بحلها ؟ بالتوفيق
طاهر اوفيسنا قام بنشر مارس 6, 2015 الكاتب قام بنشر مارس 6, 2015 إليكم المرفق الذي به المشكلة 2015.rar
ابو محمد2 قام بنشر مارس 6, 2015 قام بنشر مارس 6, 2015 السلام عليكم تفضل اخي اعتقد هذا ما طلبت بالتوفيق 2015.rar
طاهر اوفيسنا قام بنشر مارس 6, 2015 الكاتب قام بنشر مارس 6, 2015 (معدل) السلام عليكم تفضل اخي اعتقد هذا ما طلبت بالتوفيق كالعادة اخي مافيه جديد معدل تحذف رتبة متعاقد كامل ورتبة متعاقد جزئي وتستبدل بموظف على فكرة ما سبب حذف الـ 100 سجل من جدول Employee تم تعديل مارس 6, 2015 بواسطه كريمو2
ابو محمد2 قام بنشر مارس 7, 2015 قام بنشر مارس 7, 2015 السلام عليكم فيما يخص الحذف قمت بدراسة قاعدة البيانات فكلما كانت البيانات اقل سهل على الدارس معرفة المتغيرات واليك ما وجدت وجدت السجل الثاني للوظيفة هو الذي يتكرر حتى مع تغيره الى اي مسمى اخر فتم تعديل بيسط على الكود فزالت هذه الحاله (جرب في المثال المرفوع لكم في المشاركه (9)) وتم اضافة عدد من الاشهر ولم تتغير الوظيفة بالتوفيق
طاهر اوفيسنا قام بنشر مارس 7, 2015 الكاتب قام بنشر مارس 7, 2015 (معدل) السلام عليكم فيما يخص الحذف قمت بدراسة قاعدة البيانات فكلما كانت البيانات اقل سهل على الدارس معرفة المتغيرات واليك ما وجدت وجدت السجل الثاني للوظيفة هو الذي يتكرر حتى مع تغيره الى اي مسمى اخر فتم تعديل بيسط على الكود فزالت هذه الحاله (جرب في المثال المرفوع لكم في المشاركه (9)) وتم اضافة عدد من الاشهر ولم تتغير الوظيفة بالتوفيق شكرا لك أخي s s m على الإهتمام أخي المشكلة بين "موظف و متعاقد كامل و متعاقد جزئي" وليست مع باقي الوظائف الأخرى لاحظ المثال الذي عدلت عليه في المشاركة رقم 9 وغير جميع وظائف العمال الى الوظيفة "موظف او متعاقد كامل او متعاقد جزئي" وأنظر النتيجة بعد الإقتطاع سيتم حتما التغيير كلها الى موظف وهذه هي المشكلة التي اعاني منها ليش يتم التغيير في الوظيفة ؟ بعدما كانت تشتغل عادية تم تعديل مارس 7, 2015 بواسطه كريمو2
ابو محمد2 قام بنشر مارس 7, 2015 قام بنشر مارس 7, 2015 السلام عليكم تفضل اخي جرب هذا الحل بالتوفيق 2015.rar
طاهر اوفيسنا قام بنشر مارس 7, 2015 الكاتب قام بنشر مارس 7, 2015 اخي شكرا لك على الإهتمام الآن ظهر مشكل أخر وهو عدم تسجيل الإقتطاعات بالجدول OtherDiscount وكأن الحدث بالتعميم لا يعمل
طاهر اوفيسنا قام بنشر مارس 7, 2015 الكاتب قام بنشر مارس 7, 2015 أخي العزيز 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
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.