تقسيم الأقساط الشهرية وإضافة جديدة

السلام عليكم

موضوعي للرفع ...

المطلوب أن يكون هناك ترقيم لكل قسط يبدأ من رقم 1 لكل عميل .

وعليكم السلام ورحمة الله وبركاته، أخي الكريم...

أرجو أن يكون التعديل في الملف المرفق يوافق مرادك، وهو كالتالي:

Private Sub cmdInstallment_Click()
    Dim i As Integer

    DoCmd.SetWarnings False
    For i = 1 To Int(txtmon / txtpart)
        DoCmd.RunSQL "INSERT INTO T_m  VALUES (" & txtid & ", " & i & ", #" & DateAdd("m", i - 1, txtfdate) & "#, " & txtpart & ")"
    Next i

    If txtmon Mod txtpart > 0 Then
        DoCmd.RunSQL "INSERT INTO T_m  VALUES (" & txtid & ", " & i & ", #" & DateAdd("m", i - 1, txtfdate) & "#, " & txtmon Mod txtpart & ")"
    End If
    DoCmd.SetWarnings True

    MsgBox "ÊãÊ ÚãáíÉ ÇáÊÞÓíã", vbInformation
End Sub

توزيع الأقساط الشهرية على الأشهر.rar

بارك الله فيك أخي الكريم :

أجرب الكود وأرد عليك وما قصرت

بارك الله فيك وفي علمك ونفع الله بك العبلاد والعباد وغفر الله لك ولوالديك ووالدينا

أخي الكريم أحمد

تاريخ الأستحقاق يفترض أن يكون شهري ابتداء من تاريخ أول أستحقاق

والكود أعطى تاريخ يومي بفارق يوم واحد عن التاريخ اللي قبله

المفروض انه إذا كان تاريخ أول استحقاق مثلا في : 1 / 1 / 1431 هـ

يطون القسط الثاني في : 1 / 2 / 1431هـ

والثالث : في 1 / 3 / 1431

والرابع في 1 / 4/ 1431

وهكذا ..

نعم أخي العزيز، عندي يعمل الأمر جيداً، ويضيف شهراً لكل قسط، أخرج إلى الصلاة إن شاء الله، ثم أنظر في الأمر...

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

لقد تمكنت من حل المشكلة عندي باستخدام هذا السطر

Calendar = vbCalGreg

وأرجو أن يكون الوضع عندك مماثلاً؛ وعلى هذا يصبح الكود كالتالي:

Private Sub cmdInstallment_Click()
    Dim i As Integer

    Calendar = vbCalGreg

    DoCmd.SetWarnings False
    For i = 1 To Int(txtmon / txtpart)
        DoCmd.RunSQL "INSERT INTO T_m  VALUES (" & txtid & ", " & i & ", #" & DateAdd("m", i - 1, txtfdate) & "#, " & txtpart & ")"
    Next i

    If txtmon Mod txtpart > 0 Then
        DoCmd.RunSQL "INSERT INTO T_m  VALUES (" & txtid & ", " & i & ", #" & DateAdd("m", i - 1, txtfdate) & "#, " & txtmon Mod txtpart & ")"
    End If
    DoCmd.SetWarnings True

    MsgBox "تمت عملية التقسيم", vbInformation
End Sub

والله أعلم.

انا غيرت قناع التاريخ واشتغل تمام

الله يعطيك العافية مرة أخرى ...