safwatscc قام بنشر فبراير 7, 2012 مشاركة قام بنشر فبراير 7, 2012 الاخوة الافاضل فى الملف المرفق نموذج للتقسيط الدفعه كل 3 او 4 او 5 شهور على حسب الاختيار ويبدا القسط من شهر كذا المطلوب بارك الله فيكم عند الضغط على الزر بجوار النموذج الفرعى يتم تقسيم الاقساط على الاشهر وبيان الاشهر وان تبقى مبلغ يضاف الى اخر دفعة وجزاكم الله خيرا تقسيط.rar رابط هذا التعليق شارك More sharing options...
safwatscc قام بنشر فبراير 8, 2012 الكاتب مشاركة قام بنشر فبراير 8, 2012 الاخوة الافاضل بعد البحث فى المنتدى والمواقع الاخرى تم الحل لكنه ناقص ولكنها خطوة فى الطريق بوجد عدة اسئلة واضافات للكود ولكن لشروط المشاركة سوف اطرح سؤال سؤال اولا: هل يمكن عند اضافة الاقساط يتم تسلسلها من 1 الى اخر قسط بارك الله فيكم تقسيط2.rar رابط هذا التعليق شارك More sharing options...
Bluemind قام بنشر فبراير 8, 2012 مشاركة قام بنشر فبراير 8, 2012 اكمل الكود الموجود في الز ربالتالي Me.iD2 = i + 1 رابط هذا التعليق شارك More sharing options...
safwatscc قام بنشر فبراير 8, 2012 الكاتب مشاركة قام بنشر فبراير 8, 2012 الاخ والاستاذ الفاضل :Bluemind بارك الله فيك فعلا تم المطلوب من حيث تسلسل الاقساط طلب اخر الله يكرمك فى الملف المرفق قمت بتعديل على اساس ان هناك دفعة من الاقساط وحسب الاختيار من مريع تحرير اسمة Dofa الدفعة كل 1 او 2 او 3 او 4 شهر على حسب الاختيار هل ممكن ان تاريخ الاقساط يكون على حسب الاخيار من مربع تحرير Dofa بمعنى لو الدفعة كل ثلاث شهور البداية مثلا فى شهر 2 يبقى التاريخ الثانى فى شهر 5 وهكذا ارجوا ان تكون وصلت الفكرة وبارك الله فيكم تقسيط3.rar رابط هذا التعليق شارك More sharing options...
safwatscc قام بنشر فبراير 9, 2012 الكاتب مشاركة قام بنشر فبراير 9, 2012 للرفع بارك الله فيكم رابط هذا التعليق شارك More sharing options...
safwatscc قام بنشر فبراير 9, 2012 الكاتب مشاركة قام بنشر فبراير 9, 2012 (معدل) الاخوة الافاضل Dim i As Integer Dim newdate As Date Dim z As String Dim rst As DAO.Recordset Set rst = CurrentDb.OpenRecordset("Trabet_Month", dbOpenDynaset) If Me.Bakey Mod Me.PriceDofa > 0 Then z = Int(Me.Bakey / Me.PriceDofa) Else z = Int(Me.Bakey / Me.PriceDofa) - 1 End If For i = 0 To z newdate = DateAdd("m", i, Me.Start) rst.AddNew 'rst!id = me.id rst!ID = Me.ID rst!Date = newdate rst!iD2 = i + 1 If i = z And z = Int(Me.Bakey / Me.PriceDofa) Then rst!Price_Dofa = Me.Bakey Mod Me.PriceDofa Else rst!Price_Dofa = Me.PriceDofa End If rst.Update Next i DoCmd.Requery End Sub هذا كود اخر يحل مشكلة باقى الاقساط ويعمل ولكن الاشهر متتالية مطلوب التعديل فيه على اساس انه هناك متغير لعدد الاشهر لو عدد الاشهر 2 يكون التقسيم كل شهرين وهكذا على اساس ان الدفع كل شهرين او ثلاثة او اربعة وهكذا مطلوب ضرورى بارك الله فيكم تم تعديل فبراير 9, 2012 بواسطه safwatscc رابط هذا التعليق شارك More sharing options...
safwatscc قام بنشر فبراير 10, 2012 الكاتب مشاركة قام بنشر فبراير 10, 2012 الاخوة الافاضل ان يتم وضع متغير لعدد الاشهر فى الكود السابق لو وضع 2 يقسم كل شهرين ولو 3 يقسم كل ثلاث اشهر وهكذا الرجاء الافادة رابط هذا التعليق شارك More sharing options...
safwatscc قام بنشر فبراير 10, 2012 الكاتب مشاركة قام بنشر فبراير 10, 2012 الاخوة الافاضل مربع النص Dofa فى النموذج هو عدد الدفعات فى السنة ويحوى الارقام من 1 الى 12 الدفعة كل 2 اى كل شهرين حاولت التعديل فى الكود السابق فى السطر newdate = DateAdd("m", [Dofa] + i, Me.Start) فاصبح البرنامج يبدا اول قسط على اساس قيمة Dofa وشغال المطلوب ان يكرر الكلام دة وكل الدفعات التالية نفس الكلام رابط هذا التعليق شارك More sharing options...
safwatscc قام بنشر فبراير 10, 2012 الكاتب مشاركة قام بنشر فبراير 10, 2012 (معدل) الاخوة الافاضل مطلوب المساعدة تم تعديل فبراير 10, 2012 بواسطه safwatscc رابط هذا التعليق شارك More sharing options...
safwatscc قام بنشر فبراير 12, 2012 الكاتب مشاركة قام بنشر فبراير 12, 2012 للرفع رابط هذا التعليق شارك 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.