[ تمت الإجابة ]كيفية توزيع الأرباح والأقساط شهريا

للرفع

قد عملت هذا الكود :

Dim i As Integer
Dim newdate As Date
Dim z As String
Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("tbl1", dbOpenDynaset)
If Me.Total Mod Me.Qest > 0 Then
z = Int(Me.Total / Me.Qest)
Else
z = Int(Me.Total / Me.Qest) - 1
End If
For i = 0 To z
newdate = DateAdd("m", i, Me.tstart)
 rst.AddNew
rst!nop = Me.nop
rst!ndate = newdate
If i = z And z = Int(Me.Total / Me.Qest) Then
rst!Qest = Me.Total Mod Me.Qest
Else
rst!Qest = Me.Qest
End If

rst.Update

Next i

MsgBox " تم توزيع الأقسط بنجاح "

ولكن هذا يقوم فقط بحفظ القسط الإجمالي والمطلوب إضافة إلى القسط الإجمالي قسط الربح Qestrbh وقسط المبلغ Qestam

تفضل اخى

تم لتعديل على كودك

توزيع الربح والقسط.rar

mrnooo2000 كتب:

تفضل اخى

تم لتعديل على كودك

أخي timestamp

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

اتمني ان تتمكن من حل هذي الطريقة

لله درك يا أستاذ mrnooo2000

كل الشكر والامتنان لك ..

اخى كل ما تحتاج اليه

هو حذف بيانات الجدول فى بداية الكود

CurrentDb.Execute "delete * from tbl1

"

Abo_Yossof كتب:

تفضل اخى

تم لتعديل على كودك

ربي يعطيك العافيه

حين استخدام المثال المرفق

يظهر لي هذا الخطى

ما الحل

ارجو النظر في مشكلتي

الملف يعمل لدى

ارسل الملف الذى لديك لتبين المشكلة

اخي العزيز

الملف موجود في مشاركتك الاخيره

حيث استخدم اوفس 2010

و وندوز 7

قمة برفع للخوف عليه

ان يكون اخر المواضيع

من الممكن أن تكون بعض الخصائص لا تعمل على إصدارات أحدث من 2003

تأكد من أن يكون مستوى الأمان منخفض .

اكيد يوجد حل لهذه المشكلة

لرفع

......................

أخي الكريم orphan94

جرب تشغيل البرنامج المرفق على جهاز آخر غير جهازك على إصدار أوفيس 2003

لأن البرنامج شغال 100%

اخي العزيز

الا يوجد حل لبرنامج الاوفس 2010

ارجو ان اجد اجابه على مشكلتي

اخواني الكيرام ارجو مساعدتي

مجرد فكرة ..

قم بعمل زر جديد في النموذج وانسخ الكود السابق إلى الزر الجديد .

جرب اخى استبدال الكود الذى يظهر به الخطأ بالكود التالى

If val(Me.Total) Mod val(Me.Qest) > 0 Then

Abo_Yossof كتب:

جرب اخى استبدال الكود الذى يظهر به الخطأ بالكود التالى

If val(Me.Total) Mod val(Me.Qest) > 0 Then

اشكرك اخي العزيز

ما زالت المشكلة قائمه

حين استخدام الكود

الرفع

......................

الرفع

.......................

للرفع

ارجو ان اجد الاجابه

..............