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

**طاهر اوفيسنا** · الخميس 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

تأجيل الاقتطاع.rarFetching info...

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

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

في 27‏/3‏/2025 at 17:20, طاهر اوفيسنا 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 بعد التأجيل ويكتب في وضعية التسديد "تم التأجيل"

والصورة توضح

Expand

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

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

في 28‏/3‏/2025 at 16:41, Barna said:

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

Expand

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

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

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

يلزم الاشهر المعفاه تبحول مبالغها الى 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

تأجيل الاقتطاع.zipFetching info...

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

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

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

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

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

Expand

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

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

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

في 28‏/3‏/2025 at 19:11, طاهر اوفيسنا said:

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

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

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

Expand

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

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

في 28‏/3‏/2025 at 19:11, طاهر اوفيسنا said:

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

Expand

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

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

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

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

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

441799372_.jpg.d6d6c030619acb9db0ddb705ce39f460.jpg

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

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

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

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

Expand

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

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

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

في 28‏/3‏/2025 at 20:55, طاهر اوفيسنا said:

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

Expand

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

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

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

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

1928567770_.jpg.b1683f9fa00ca6929951a1ad49cb24ed.jpg

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

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

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

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

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

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

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

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

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

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

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

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

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

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

تأجيل الاقتطاع.zipFetching info...

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

في 28‏/3‏/2025 at 23:14, Foksh said:

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

Expand

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

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

للأسف لم يعمل

image.png.6198aacb44af6de8cfafe2d3b6c057c9.png

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

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

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

في 28‏/3‏/2025 at 23:27, ابو عارف said:

للأسف لم يعمل

Expand

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

6526241_.jpg.03e9f2e40c95f58087644f13a76f61f5.jpg

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

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

في 28‏/3‏/2025 at 23:36, طاهر اوفيسنا said:

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

Expand

اوفيس لدينا 2019

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

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

في 29‏/3‏/2025 at 00:04, ابو عارف said:

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

Expand

اي صورة

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

**طاهر اوفيسنا** · الأحد at 10:03

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

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

Expand

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

**Foksh** · الأحد at 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

تأجيل الاقتطاع.zipFetching info...

**طاهر اوفيسنا** · الأحد at 12:29

في 30‏/3‏/2025 at 12:18, Foksh said:

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

Expand

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

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

**Foksh** · الأحد at 13:03

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

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

تأجيل الاقتطاع.zipFetching info...

**طاهر اوفيسنا** · الأحد at 13:27

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

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

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

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

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

**طاهر اوفيسنا** · الأحد at 13:48

في 30‏/3‏/2025 at 13:03, Foksh said:

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

Expand

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

تم تعديل الأحد at 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