طاهر اوفيسنا

" لا إِلَهَ إِلا أَنتَ سُبْحَانَكَ إِنِّي كُنتُ مِنَ الظَّالِمِينَ "

للرفع وتعديل العنوان

89 مشاهد 01 محمل المرفق 00 الردود

52 مشاهدا ولا احد ترك بصماته

السلام عليكم كان البرنامج يعمل بصفة منتظمة ولكن عندما وقعت في مشكل توقيف إقتطاع القروض لسبب من الأسباب الملزمة عملنا كود في الفورم frm_Avoid_Dates Private Sub cmd_Do_Changes_Click() Dim rst As DAO.Recordset 'open the table for adding the dates Set rst = CurrentDb.OpenRecordset("select * From tbl_Avoid_Dates") 'loop the number of months, then add a new record for each month For I = 0 To Me.Number_Of_Months - 1 rst.AddNew rst!Name_ID = Me.Name_ID rst!Loan_ID = Me.Loan_ID rst!Avoid_Dates = DateAdd("m", I, Me.Month_From) rst.update Next I 'change the end date in Forms!FrmCridi!FrmCridi_sub!txtDiscountEndDate Forms!FrmCridi!FrmCridi_sub!txtDiscountEndDate = DateAdd("m", I, Forms!FrmCridi!FrmCridi_sub!txtDiscountEndDate) 'leave a remark of what we have done Forms!FrmCridi!FrmCridi_sub!Obsérvation = Forms!FrmCridi!FrmCridi_sub!Obsérvation & " >> " & _ "تأجيل الدفع لمدة " & I & " أشهر" 'clear the memory rst.Close: Set rst = Nothing End Sub في الفورم frm_Avoid_Dates تحدد شهر التوقيف ومدة التوقيف طبعا مدة معينة شهر او إثنين او أكثر فلاحظنا انه كلما تم ايقاف الخصم الشهري للقروض كلما زاد مبلغ شهر الخصم لمبلغ القرض مثلا مبلغ القرض 20.000.00 مقسم على 10 اشهر وتم ايقاف الخصم لمدة شهرين نجد ان مبلغ القرض اصبح 24.000.00 اي 4.000.00 هي ناتجة عن الشهرين التي تم فيهما إيقاف الخصم . المطلوب : ماسبب هذه الزيادة هل هو في الوحدة النمطية التي ادرجت مؤخرا ام ماذا . والصور توضح ذالك أرجو المساعدة وشكرا لكم ma.2015.rar

شكرا على الترحيب اخي بعد عملية الترحيب تأتي اكرام الضيف وهي المساعدة

اول مشاركة لي في هذا القسم ارجو المساعدة من ذوي الخبرة

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

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

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

شكرا لك أخي يبدو ان الحدث به خلل عند اضافة سجل به شخص جدبد يظهر هذا الميساج كما في الصورة

وهو كذالك نتوكل على الله

اخي العزيز يوسف السلام عليكم ورحمة الله تعالى وبركاته وجمعة مباركة عليك وعلينا وعلى كافة أمة الحبيب المصطفى احيي فيك الروح الأخوية فشكرا لك على كل المجهودات وإتاحة فرصة من وقتك الثمين لمساعدتنا فيما يخص الطلب : النموذج هو عبارة على إدخال سجلات يعني لما نكون ندخل سجلات طلبات من قطع أرضية خاصة بالفلاحة والأسماء بكثرة وساعات تكون متكررة هذا هو الهدف المطلوب لتفادي ذالك والتكرار يكون في إسم ولقب الشخص وساعات تكون نفس الأسماء والألقاب هنا نذهب للتفرقة في إسم الأب أو تاريخ مكان الميلاد مثلا : صدوقي الطاهر بن علي المولود في 1982/02/01 صدوقي الطاهر بن علي المولود في : 1986/07/08 هذا ليس تكرار يكون MsgBox يعلمني بان هذا الشخص سجل سابقا وفي السجل رقم ..... هل تريد إضافته ام عدم إضافته إذا تيقنت بأنه نفس الشخص اختار عدم الإضافة وإذا كان العكس فأختار إضافة واما بالنسبة لتعديلك مؤخرا فإنك قيدت الإسم الكامل برقم الشخص وهذه مشكلة أما بالنسبة للطلب الثاني فهو مطلوب آمل اني قد وفقت في توضيح الغموض الحاصل خلاصة : كل شخص يستفيد برقم قطعة واحدة من ضمن مجموعة المحيطات اي لايمكن الإستفادة باكثر من رقم قطعة ارضية

مشكور أستاذ على النصيحة ولكن للأسف لايوجد لاسجل مدني ولا رقم قومي صحيح ربما تكون فيه تشابه في العديد من الأسماء والألقاب بواسطة همزة او غيرها وهذا منطقيا لأن اي مبرمج لما يبرمج شيء يحوزه من شتى النواحي ولكن : خلينا في مثالنا هذا ايمكن العمل وفقا للصورة اعلاه ؟ ام لا ومن بعد نعمل إستعلام به إكتشاف كل الأسماء المتقاربة والمتشابه عند الحقل 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

للرفع