Barna

يعني يتم تنفيذ التخفيض على كل عملية تسديد قسط على حدا صحيح ( اي لو دفع كامل القسط الاول يتم التخفيض واذا لم يدفع كامل القسط الثاني فلا يستفيد من تخفيض القسط واذا دفع القسط الثالث كاملا يحصل على التخفيض وهكذا .................... )

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

طيب .... لم افهم ........ ولكن حسب طلبك انظر ووافينا بالنتيجة ............. ProgSalse10.rar

جرب ............................ ابحث في المنتدى

وعليكم السلام ...... لم افهم الية العمل .... المفروض العكس .... لكن ممكن تشرح الهدف من ذلك .

طيب استبدل هذا السطر لديك ::: CurrentDb.Execute ("Delete * From Me.Combo15") بهذا السطر ::::: CurrentDb.Execute ("Delete * From " & Me.Combo15 & "") اعلمنا بالنتيجة :::::

ما كان شغال الكود .... ؟؟؟

لأن تكوين جدولك غير صحيح ..... ليش ...... لأنك استخدمت اكثر من عبارة محجوزة للاكسس من ضمنها Select و Code لكن في حالة ال Code فيها تسمية توضيحية

تفضل المرفق الذي لدي جرب عليه ولما نشوف ........................ Import Frome Excel File.rar

اخي الكريم الكود شغال لدي .... انظر

كلامة صحيح .... جرب الكود هذا الان ....................... Call GetWaiting("Please wait ... data is processing") On Error Resume Next Dim db As DAO.Database Dim rstFrom As Recordset Dim rstTo As Recordset Set db = CurrentDb() Dim RC, i, r, rr As Integer Set rstTo = db.OpenRecordset(Me.Combo15, dbOpenDynaset) Set rstFrom = db.OpenRecordset("tblTemp", dbOpenDynaset) CurrentDb.Execute ("Delete * From Me.Combo15") rstFrom.MoveFirst: rstFrom.MoveLast RC = rstFrom.RecordCount rstFrom.MoveFirst For i = 1 To RC rstTo.AddNew For r = 0 To rstFrom.Fields.Count - 1 For rr = 0 To rstTo.Fields.Count - 1 If rstFrom.Fields(r).name = rstTo.Fields(rr).Properties("Caption") Or rstFrom.Fields(r).name = rstTo.Fields(rr).name Then rstTo.Fields(rr) = rstFrom.Fields(r) End If Next rr Next r rstTo.Update rstFrom.MoveNext r = 0 rr = 0 Next i DoCmd.Close acForm, "frmWaiting" rstTo.Close rstFrom.Close Set rstTo = Nothing Set rstFrom = Nothing Set db = Nothing

على كل حال استبدل الكود الموجود في الزر بهذا ..................................... Call GetWaiting("Please wait ... data is processing") On Error Resume Next Dim db As DAO.Database Dim rstFrom As Recordset Dim rstTo As Recordset Set db = CurrentDb() Dim RC, i, r, rr As Integer Set rstTo = db.OpenRecordset(Me.Combo15, dbOpenDynaset) Set rstFrom = db.OpenRecordset("tblTemp", dbOpenDynaset) CurrentDb.Execute ("Delete * From tblTemp") rstFrom.MoveFirst: rstFrom.MoveLast RC = rstFrom.RecordCount rstFrom.MoveFirst For i = 1 To RC rstTo.AddNew For r = 0 To rstFrom.Fields.Count - 1 For rr = 0 To rstTo.Fields.Count - 1 If rstFrom.Fields(r).name = rstTo.Fields(rr).Properties("Caption") Or rstFrom.Fields(r).name = rstTo.Fields(rr).name Then rstTo.Fields(rr) = rstFrom.Fields(r) End If Next rr Next r rstTo.Update rstFrom.MoveNext r = 0 rr = 0 Next i DoCmd.Close acForm, "frmWaiting" rstTo.Close rstFrom.Close Set rstTo = Nothing Set rstFrom = Nothing Set db = Nothing طبعا هذا الكود بيتعرف على اسم الحقل واذا وجد اسم الحقل مختلف ينتقل الى التسمية التوضيحة للحق لتنفيذ امر نقل البيانات للجدول ................

طيب ايش النسخة التي تعمل عليها ..... هل هي اخر نسخة انا ارفقتها ؟؟؟؟؟ حتى نعدل عليها .....

في جدولك مفتاح لا يتكرر ... فلذلك تظهر معك الرسالة بعدم التكرار

لاحظ اخي المشكلة اين ؟؟؟؟ انظر الصورة الاسماء مختلف وليس سوى حقل واحد متشابه

ارفق نموذج لملف الاكسل مع جدول الاكسس المصدر له البيانات

خل لاحظت العبارة التي باللون الاحمر

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

في حدث عند فتح النموذج ضع هذا الكود ........................ مع تعديل بيانات الكود حسب جدولك وحقل CHEK Dim x As Integer x = DCount("[ck]", "[student_wezara]", "[ck] =0") MsgBox " عدد السجلات الخطأ هي " & x & " سجل ", vbInformation, "سجلات"

طيب جرب كده ...................... StudentsName.rar

طيب جرب المرفق واعلمنا ......( يجب ان تتطابق اسماء الحقول المستوردة مع الجدول المصدر له .......) Import Frome Excel File.rar

اذن مشكلتك في ترتيب الحقول .... لأننا اعتمدنا عليها .... طيب بعد الاستيراد من الاكسل افتح الجدول tbltemp وقارن الحقول ( ترتيبا ونوع بيانات ) هل هي نفسها في الصورة ؟؟

وهل في الحالتين فشلت العملية ... أم ماذا ؟؟؟

هل عدد الحقول المستورده ( اقصد tbltemp ) هي نفس عدد الحقول في الجدول المصدر له البيانات .................... لذلك انا سألتك ابتداءا عن الحقول ؟؟؟؟ هل الجدول المصدر له البيانات موجود في المرفق السابق

طيب شوف كده >>>>>>>>>>>>>>>>>>>> جرب واخبرنا ................... Import Frome Excel File.rar