اين الخلل في ظهور ميساج خطأ

[Taher DZ]

السلام عليكم 

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

ولكن ظهر هذا الميساج الذي يوحي بوجود خطأ  رغم محاولاته ولكن لم يفلح

ارجو من الاخوة معالجة ذلك وشكرا لكم

 

 

 

اقتطاع مرة واحدة فقط 2025-1.rar

[kkhalifa1960]

لم يظهر الخطأ  أو انك لم ترسل المرفق كامل وبأي حدث .!!!!

[Taher DZ]

12 دقائق مضت, kkhalifa1960 said:

لم يظهر الخطأ  أو انك لم ترسل المرفق كامل وبأي حدث .!!!!

عند الدخول الى فورم  FrmTransfer

والحدث  عند تحميل 

Private Sub Form_Load()

    txtMonth = Date
    txtMonth0 = Date
    txtMonth1 = Date
    txtMonth2 = Date

    Call txtMonth1_AfterUpdate
    Call NormalizeMonth
    Call cmd_Pay_installments_Click

End Sub

عند استدعاء الاخيرة

Private Sub cmd_Pay_installments_Click()

 

[kkhalifa1960]

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

                                                                             

[Taher DZ]

32 دقائق مضت, kkhalifa1960 said:

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

نعم لا يوجد زر وانما عند دخول الفورم مباشرة والمشكلة في شهري 3و7 التي تخص الانخراط و للعلم انت جربت  شهر 12 يدخل عادي بدون مشاكل 

انظر هذا الجزء من الكود

    '===========================================================
    '   الانخراط — مارس أو يوليو فقط
    '===========================================================
    If Month(CurrMonth) = 3 Or Month(CurrMonth) = 7 Then

        Dim db As DAO.Database
        Dim rstE As DAO.Recordset
        Dim totalPaid As Double
        Dim EmpID As String


        Set db = CurrentDb
        Set rstE = db.OpenRecordset("SELECT * FROM Employee WHERE Nr <= 5", dbOpenDynaset)
        If Not rstE.EOF Then rstE.MoveFirst
        Do Until rstE.EOF
        
         EmpID = rstE!EmployeeID    ' Text field

            ' منع التكرار داخل نفس الشهر
            If DCount("*", "tbl_Loans", _
                "Loan_ID= 0 AND EmployeeID='" & EmpID & _
                "' AND Payment_Month=#" & Format(CurrMonth, "mm/dd/yyyy") & "#") > 0 Then
                GoTo SkipInkhirat
            End If

            ' مجموع ما دفعه سابقًا
            totalPaid = Nz(DSum("Payment_Made", "tbl_Loans", _
                "Loan_ID= 0 AND EmployeeID='" & EmpID & "'"), 0)

            ' إذا وصل 3000 ? توقف
            If totalPaid >= 3000 Then
                GoTo SkipInkhirat
            End If

            '===========================================================
            '   ?? إصلاح خطأ 3464 — السطر المعدل فقط
            '===========================================================
            Set rst = db.OpenRecordset("tbl_Loans", dbOpenDynaset)

            rst.FindFirst "[Loan_ID]=0 AND [EmployeeID]='" & rstE!EmployeeID & _
                          "' AND [Payment_Month]=#" & Format(CurrMonth, "mm/dd/yyyy") & "#"
            '===========================================================

            If rst.NoMatch Then

                rst.AddNew
                rst!EmployeeID = EmpID
                rst!Payment_Month = CurrMonth
                rst!Payment_Made = 1500
                rst!Loan_Type = "Inkhirat"
                rst!Loan_ID = 0
                rst!sadad = 1500
                rst!Loan_Remise = 0
                rst!Nr = rstE!Nr
                rst!wada3 = "تم الإنخراط"
                rst!Remarks = "إقتطاع انخراط شهر " & Month(CurrMonth) & "/" & Year(CurrMonth)
                rst!annee = Year(CurrMonth)
                rst.Update

                TotalLoanInkhirat = TotalLoanInkhirat + 1500
            End If

            rst.Close

SkipInkhirat:
            rstE.MoveNext
        Loop

        rstE.Close
        db.Close
    End If

تم تعديل منذ 2 ساعات بواسطه Taher DZ

[kkhalifa1960]

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

[Taher DZ]

8 دقائق مضت, kkhalifa1960 said:

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

مالك استاذ خليفة ؟ لقد افرحتني  لما ظهر لي ميساج بان فيه رد منك ولكن  لما دخلت الموضوع وجدت تعجبا 😢

[Taher DZ]

استاذ kkhalifa1960

48 دقائق مضت, kkhalifa1960 said:

!!!!!!!

انظر المرفق حتى لا تغير

تاريخ جهازك الى شهر 3 و 7

تم تغير اقتطاعات الانخراط الى شهري 11 و 12

لكي يتسنى لك وللأساتذة رؤية ميساج الخطأ

 

اقتطاع مرة واحدة فقط 2025-1.rar

تم تعديل منذ 2 ساعات بواسطه Taher DZ