التعديل على كود إعادة ترتيب الإقتطاع

**طاهر اوفيسنا** · الخميس at 17:20

السلام عليكم اساتذتي

بالمرفق يا حبذا التعديل على كود اعادة ترتيب الاقتطاع (تاجيل الاقتطاع لمدة زمنية معينة)

اولا الدخول على فورم FrmCridi نلاخظ العامل كريمو4 لديه قرض بقيمة 50.000.00 دج

بداية الاقتطاع : 2025/03/01

نهاية الاقتطاع : 2025/12/01

وتم اقتطاع شهرين مارس وافريل 2025 مثلا

وطلب مني تاجيل الاقتطاع لمدة 02 اشهر ابتداء من تاريخ : 2025/05/01 (زر اعادة ترتيب الاقتطاع)

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

2025/05/01 قيمة الاقتطاع كانت 5000.00 قبل التأجيل وتصبح 0.00 بعد التأجيل ويكتب في وضعية التسديد "تم التأجيل"

2025/06/01 قيمة الاقتطاع كانت 5000.00 قبل التأجيل وتصبح 0.00 بعد التأجيل ويكتب في وضعية التسديد "تم التأجيل"

والصورة توضح

2025.jpg.84cb34fbdbfb8eb47d99813d541f73d1.jpg

مع العلم ان الكود حاليا يشتغل كما في الصورة

1977.jpg.b361e65161eec8fc33f1fa2a309ff2f1.jpg

تأجيل الاقتطاع.rar

تم تعديل الخميس at 19:13 بواسطه طاهر اوفيسنا

**Barna** · الجمعة at 16:41

23 ساعات مضت, طاهر اوفيسنا said:

بالمرفق يا حبذا التعديل على كود اعادة ترتيب الاقتطاع (تاجيل الاقتطاع لمدة زمنية معينة)

اولا الدخول على فورم FrmCridi نلاخظ العامل كريمو4 لديه قرض بقيمة 50.000.00 دج

بداية الاقتطاع : 2025/03/01

نهاية الاقتطاع : 2025/12/01

وتم اقتطاع شهرين مارس وافريل 2025 مثلا

وطلب مني تاجيل الاقتطاع لمدة 02 اشهر ابتداء من تاريخ : 2025/05/01 (زر اعادة ترتيب الاقتطاع)

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

2025/05/01 قيمة الاقتطاع كانت 5000.00 قبل التأجيل وتصبح 0.00 بعد التأجيل ويكتب في وضعية التسديد "تم التأجيل"

2025/06/01 قيمة الاقتطاع كانت 5000.00 قبل التأجيل وتصبح 0.00 بعد التأجيل ويكتب في وضعية التسديد "تم التأجيل"

والصورة توضح

هل تقصد ترك سجلات القرض وكتابة تم التأجيل وإضافة سجلات جديدة بتواريخ جديدة

**طاهر اوفيسنا** · الجمعة at 17:22

44 دقائق مضت, Barna said:

هل تقصد ترك سجلات القرض وكتابة تم التأجيل وإضافة سجلات جديدة بتواريخ جديدة

شكرا استاذي العزيز ربي يبارك فيك

الكود يزيد عادي عذذ السجلات التي تعطيها له

ولكن المشكلة عندما يزيد عدد السجلات يزيد المبلغ وهذا هو الخطا

يلزم الاشهر المعفاه تبحول مبالغها الى 0 ويكتب عند السداد تم تأجيل وتعوض مبلغها عند السجلات الجديدة

والصورة هي المطلوب

2025.jpg.e2d032e093a09eaaf5822969195ef548.jpg

تم تعديل الجمعة at 17:27 بواسطه طاهر اوفيسنا

**Foksh** · الجمعة at 18:47

بناءً على ما فهمت من المطلوب ، هو اضافة سجلات = عدد الاشهر التي تم تأجيلها ، بشرط ان يتم تأجيل الدفعة ( القيمة ) الى الاشهر الجديدة ؛ صحيح ؟

جرب ها التعديل !!!

Private Sub cmd_Do_Changes_Click()
    Dim rst As DAO.Recordset
    Dim Dat As Date
    Dim Remarks As String
    Dim i As Integer

    Me.Month_From = DateSerial(Year(Me.Month_From), Month(Me.Month_From), 1)

    If Me.Month_From < Me.DiscountStartDate Then
       MsgBox "آسف, شهر التأجيل الذي أدخلته أصغر من شهر بداية الإقتطاع" & vbCrLf & _
               "يرجى التصحيح وحاول مرة أخرى"
       Exit Sub
    ElseIf Me.Month_From > Me.DiscountEndDate Then
        MsgBox "آسف, شهر التأجيل الذي أدخلته  أكبر من شهر نهاية أخر إقتطاع" & vbCrLf & _
               "يرجى التصحيح وحاول مرة أخرى"
        Exit Sub
    End If
   
    If Me.OpenArgs = "frmCridi" Then
        MySQL = "Select * From tbl_Loans Where Loan_ID = " & Me.Loan_ID & " And Loan_Type='Cridi'"
        Loan_Type = "Cridi"
        r = ""
    Else
        MySQL = "Select * From tbl_Loans Where Loan_ID = " & Me.Loan_ID & " And Loan_Type='Elec'"
        Loan_Type = "Elec"
        r = ""
    End If

    Set rst = CurrentDb.OpenRecordset(MySQL)
    
    For i = 0 To Me.Number_Of_Months - 1
        Dat = Format(DateAdd("m", i, Me.Month_From), "yyyy-mm-dd")
        rst.FindFirst "[Payment_Month]=#" & Dat & "#"
        
        If Not rst.NoMatch Then
            Remarks = rst!Remarks
            rst.Edit
                rst!Loan_Made = 0
                rst!Remarks = Remarks & " | " & "تأجيل الإقتطاع إلى تاريخ " & Format(DateAdd("m", i + 1, Me.DiscountEndDate), "DD-MM-YYYY")
            rst.Update
        End If
      
        rst.AddNew
            rst!EmployeeID = Me.EmployeeID
            rst!Loan_ID = Me.Loan_ID
            rst!Auto_Date = Me.AwardMonth
            rst!Payment_Month = DateAdd("m", i + 1, Me.DiscountEndDate)
            rst!Loan_Made = Me.DiscountPerMonth
            rst!Loan_Type = Loan_Type
            rst!Remarks = Remarks
            rst!annee = Year(Date)
        rst.Update
    Next i
    
    rst.Close: Set rst = Nothing
    
    Forms!frmCridi!Frm_sub!DiscountEndDate = DateAdd("m", Me.Number_Of_Months, Forms!frmCridi!Frm_sub!DiscountEndDate)
    
    Forms!frmCridi!Frm_sub!Obsérvation = Forms!frmCridi!Frm_sub!Obsérvation & " | " & _
                                              "تأجيل الإقتطاع لمدة " & GetMoisName(i)
    
    I2 = Forms!frmCridi!Frm_sub!ID
    Forms!frmCridi!Frm_sub.Form.Requery
    Set rst = Forms!frmCridi!Frm_sub.Form.RecordsetClone
    rst.FindFirst "[ID]=" & I2
    Forms!frmCridi!Frm_sub.Form.Bookmark = rst.Bookmark
    
    MsgBox ("تم تأجيل الإقتطاع لمدة " & GetMoisName(i))
 
    DoCmd.Close
End Sub

تأجيل الاقتطاع.zip

تم تعديل الجمعة at 19:10 بواسطه Foksh
إضافة المرفق

**طاهر اوفيسنا** · الجمعة at 19:11

شكرا استاذ على الرد

17 دقائق مضت, Foksh said:

هو اضافة سجلات = عدد الاشهر التي تم تأجيلها

من قبل كان الكود يضيف السجلات المؤجلة ليست المشكلة هنا

انظر لما نسخت الكود ونفذته "تاجيل لمدة 02 اشهر ابتداء من تاريخ : 2025/04/01 " ايش سوى حسب الصورة foshk.jpg.74f19ce170cfe790cc079d3cc6a76723.jpg

**Foksh** · الجمعة at 19:17

5 دقائق مضت, طاهر اوفيسنا said:

شكرا استاذ على الرد

من قبل كان الكود يضيف السجلات المؤجلة ليست المشكلة هنا

انظر لما نسخت الكود ونفذته "تاجيل لمدة 02 اشهر ابتداء من تاريخ : 2025/04/01 " ايش سوى حسب الصورة

لا تعليق سوى الصورة

**Foksh** · الجمعة at 20:11

57 دقائق مضت, طاهر اوفيسنا said:

من قبل كان الكود يضيف السجلات المؤجلة ليست المشكلة هنا

وهذه نتيجة الكود الأصلي في المشاركة الأولى لك ( أساس الموضوع ) :-

هل قمت بتحميل المرفق الذي ارفقته لك ؟؟

**طاهر اوفيسنا** · الجمعة at 20:55

عفوا استاذ لم انتبه للمرفق

لقد تم تحميله وهاهي النتيجة مزال ناقص تعديل

441799372_.jpg.d6d6c030619acb9db0ddb705ce39f460.jpg

تم تعديل الجمعة at 21:09 بواسطه طاهر اوفيسنا

**طاهر اوفيسنا** · الجمعة at 21:20

2 ساعات مضت, Foksh said:

تعليق سوى الصورة

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

تم تعديل الجمعة at 21:25 بواسطه طاهر اوفيسنا

**Foksh** · الجمعة at 21:29

29 دقائق مضت, طاهر اوفيسنا said:

لقد تم تحميله وهاهي النتيجة مزال ناقص تعديل

لا اعلم ماذا أقول ، ولكن هذه الصورة أيضاً كفيلة بالإجابة .. اعتقد ان المشكلة لديك في إصدار الآكسيس

تم تحميل المرفق من المشاركة نفسها ، والنتيجة أعلاه توضح ما تم تنفيذه . علماً انني استخدم إصدار 2016 - 64 بت

**طاهر اوفيسنا** · الجمعة at 22:12

جربت مسحت التاجيل ونفذت الكود وبقي نفس المشكلة استاذ مع العلم ان اصدار اوفيس 2010

1928567770_.jpg.b1683f9fa00ca6929951a1ad49cb24ed.jpg

hanan_ms · الجمعة at 23:13

لا تنسى عند فتح يتأكد من آخر تاريخ مسجل اكبر من تاريخ اليوم :biggrin2:

'=====================================

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

وتحدد الاشهر الي تبيها ومن اجمالي عدد حقل الصح نعم \ لا يبين عدد الشهر

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

!مع ازالة حركة نزول النموذج السرعة

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

التقويم حق التنسيق او المستشارين متخذين القرار

ويحتاجه منسق الاعمال تقول متصل ومندوب بتنظيم التوقيت وغفل اليوم وترحيل المواعيد

================================

المشكلة بتصميم استعلام والكود المستخدم ماله شغل اصدار اكسس

**Foksh** · الجمعة at 23:14

نرجو من احد الإخوة والاساتذة الذي يمرون من هنا تجربة المرفق واخبارنا بالنتيجة ..

تأجيل الاقتطاع.zip

**ابو عارف** · الجمعة at 23:18

3 دقائق مضت, Foksh said:

رجو من احد الإخوة والاساتذة الذي يمرون من هنا تجربة المرفق واخبارنا بالنتيجة ..

إن شاء الله، جاري تجربة

**ابو عارف** · الجمعة at 23:27

للأسف لم يعمل

image.png.6198aacb44af6de8cfafe2d3b6c057c9.png

**Foksh** · الجمعة at 23:31

حسناً ، سأحاول غداً تثبيت نسخة اوفيس 2010 ، وتجربة المرفق على إصدار آخر والعمل على التعديل بناءً عليه .. مع انني لا اعلم ما هو سبب اختلاف النتيجة بين الإصدارين :eek2: .

**طاهر اوفيسنا** · الجمعة at 23:36

11 دقائق مضت, ابو عارف said:

للأسف لم يعمل

العمل الصحيح كما في الصورة علما ان اشهر التاجيل شهر 5 و 6

6526241_.jpg.03e9f2e40c95f58087644f13a76f61f5.jpg

تم تعديل الجمعة at 23:40 بواسطه طاهر اوفيسنا

**ابو عارف** · السبت at 00:04

23 دقائق مضت, طاهر اوفيسنا said:

لعمل الصحيح كما في الصورة علما ان اشهر التاجيل شهر 5 و 6

اوفيس لدينا 2019

جربت من 1/5/2025 و 1/6/2025 لمدة شهرين و نتيجة كانت كما في صورة

**طاهر اوفيسنا** · السبت at 03:40

3 ساعات مضت, ابو عارف said:

جربت من 1/5/2025 و 1/6/2025 لمدة شهرين و نتيجة كانت كما في صورة

اي صورة

صورتك التي ارفقتها ام صورتي

**طاهر اوفيسنا** · بالامس في 10:03

في 28‏/3‏/2025 at 19:47, Foksh said:

جرب ها التعديل !!!

استاذ ممكن اعرف أين تم التعديل من حضرتك لان حسب الصورة الي ارسلتها مؤخرا هو المطلوب ولكن المرفق مابه اي تغيير

**Foksh** · بالامس في 12:18

أخي @طاهر اوفيسنا ، أولاً تقبل الله طاعاتكم ، وكل عام وأنتم بخير ,,

جرب التعديل التالي بإزالة التنسيق من التاريخ فقط !!

Private Sub cmd_Do_Changes_Click()
    Dim rst As DAO.Recordset
    Dim Dat As Date
    Dim Remarks As String
    Dim i As Integer

    Me.Month_From = DateSerial(Year(Me.Month_From), Month(Me.Month_From), 1)

    If Me.Month_From < Me.DiscountStartDate Then
       MsgBox "آسف, شهر التأجيل الذي أدخلته أصغر من شهر بداية الإقتطاع" & vbCrLf & _
               "يرجى التصحيح وحاول مرة أخرى"
       Exit Sub
    ElseIf Me.Month_From > Me.DiscountEndDate Then
        MsgBox "آسف, شهر التأجيل الذي أدخلته  أكبر من شهر نهاية أخر إقتطاع" & vbCrLf & _
               "يرجى التصحيح وحاول مرة أخرى"
        Exit Sub
    End If
   
    If Me.OpenArgs = "frmCridi" Then
        MySQL = "Select * From tbl_Loans Where Loan_ID = " & Me.Loan_ID & " And Loan_Type='Cridi'"
        Loan_Type = "Cridi"
        r = ""
    Else
        MySQL = "Select * From tbl_Loans Where Loan_ID = " & Me.Loan_ID & " And Loan_Type='Elec'"
        Loan_Type = "Elec"
        r = ""
    End If

    Set rst = CurrentDb.OpenRecordset(MySQL)
    
    For i = 0 To Me.Number_Of_Months - 1
        Dat = DateAdd("m", i, Me.Month_From)
        rst.FindFirst "[Payment_Month]=#" & Dat & "#"
        
        If Not rst.NoMatch Then
            Remarks = rst!Remarks
            rst.Edit
                rst!Loan_Made = 0
                rst!Remarks = Remarks & " | " & "تأجيل الإقتطاع إلى تاريخ " & DateAdd("m", i + 1, Me.DiscountEndDate)
            rst.Update
        End If
      
        rst.AddNew
            rst!EmployeeID = Me.EmployeeID
            rst!Loan_ID = Me.Loan_ID
            rst!Auto_Date = Me.AwardMonth
            rst!Payment_Month = DateAdd("m", i + 1, Me.DiscountEndDate)
            rst!Loan_Made = Me.DiscountPerMonth
            rst!Loan_Type = Loan_Type
            rst!Remarks = Remarks
            rst!annee = Year(Date)
        rst.Update
    Next i
    
    rst.Close: Set rst = Nothing
    
    Forms!frmCridi!Frm_sub!DiscountEndDate = DateAdd("m", Me.Number_Of_Months, Forms!frmCridi!Frm_sub!DiscountEndDate)
    
    Forms!frmCridi!Frm_sub!Obsérvation = Forms!frmCridi!Frm_sub!Obsérvation & " | " & _
                                              "تأجيل الإقتطاع لمدة " & GetMoisName(i)
    
    I2 = Forms!frmCridi!Frm_sub!ID
    Forms!frmCridi!Frm_sub.Form.Requery
    Set rst = Forms!frmCridi!Frm_sub.Form.RecordsetClone
    rst.FindFirst "[ID]=" & I2
    Forms!frmCridi!Frm_sub.Form.Bookmark = rst.Bookmark
    
    MsgBox ("تم تأجيل الإقتطاع لمدة " & GetMoisName(i))
 
    DoCmd.Close
End Sub

تأجيل الاقتطاع.zip

**طاهر اوفيسنا** · بالامس في 12:29

14 دقائق مضت, Foksh said:

جرب التعديل التالي بإزالة التنسيق من التاريخ فقط !!

تقبل الله منا ومنكم سائر الاعمال وكل عام وانتم بالف خير لم إفهم اي تنسيق تقصد وثاني كلمة wada3 = "تم التأجيل" لم اراها في الكود المهم بعد التجربة الاشهر الاقتطاع المعفاة لم يتغير المبلغ الى 0 ومع الوضعية السداد لم تكتب " تم التأجيل"

تم تعديل بالامس في 12:35 بواسطه طاهر اوفيسنا

**Foksh** · بالامس في 13:03

بعد هذه الصورة لا اعتقد انه يوجد لدي ما أزيد به ..

تم التنفيذ والتجربة على نسخة أوفيس 2010 !! رغم انها على إصدار 2019 أيضاً كانت النتيجة كما في الصور التي ارفقتها سابقاً .. ولكن قد تكون المشكلة كما خطر لي بأن تكون في تنسيق التاريخ وباختلاف نمط التاريخ .. على العموم جرب المرفق وأخبرنا بالنتيجة 👀 .

تأجيل الاقتطاع.zip

**طاهر اوفيسنا** · بالامس في 13:27

ياسبحان الله والله شيء غريب حقا

الفيديو به المطلوب 100 % اما المرفق فلا تغيير عليه

واني لا اشك ان الاصدار اوفيس 2010 هو السبب

عموما سامحني استاذ على تعبك واهتمامك الكبير بالموضوع

نتمنى من الاخوة الاساتذة معالجة هذا الشيء

**طاهر اوفيسنا** · بالامس في 13:48

49 دقائق مضت, Foksh said:

تم التنفيذ والتجربة على نسخة أوفيس 2010 !! رغم انها على إصدار 2019 أيضاً كانت النتيجة كما في الصور التي ارفقتها سابقاً .. ولكن قد تكون المشكلة كما خطر لي بأن تكون في تنسيق التاريخ وباختلاف نمط التاريخ .. على العموم جرب المرفق وأخبرنا بالنتيجة 👀 .

استاذ ي العزيز ممكن إرسال نسخة بها التأجيل اي اعمل تأجيل لمدة مثلا 3 اشهر ابتداء من تاريخ 2025/05/01 لكي اقارن ملاحظة غير تسمية النسخة لى اسم اخرا

تم تعديل بالامس في 13:53 بواسطه طاهر اوفيسنا

تسجيل الدخول

التعديل على كود إعادة ترتيب الإقتطاع

الردود الموصى بها

Top Posters In This Topic

Popular Days

Top Posters In This Topic

Popular Days

Popular Posts

Foksh

ابو عارف

Foksh

Posted Images

Join the conversation

تصفح هذا الموضوع مؤخراً 0 اعضاء متواجدين الان

Important Information