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

[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

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

[kkhalifa1960]

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

[Taher DZ]

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

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

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

[Taher DZ]

استاذ kkhalifa1960

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

!!!!!!!

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

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

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

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

 

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

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

[kkhalifa1960]

تفضل استاذ @Taher DZ اليك الخطأ بالشرح  والمرفق بعد التعديل .جرب ووافني بالرد

                                                                                                      

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

[Taher DZ]

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

والمرفق بعد التعديل .جرب ووافني بالرد

اولا : يوجد مرفقين ايهما الذي تم التعديل عليه

هذا من جهة 

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

[kkhalifa1960]

اعتذار ارفقط المرفق الخطأ   تفضل المرفق ومجرب كما بالشرح .

                                                                    

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

[Taher DZ]

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

اعتذار ارفقط المرفق الخطأ   تفضل المرفق ومجرب كما بالشرح .

شكرا استاذ لقد عالجت لي مشكل ظهور الميساج

ولكن يبدو ان تعديل الاخ لم يكن في محله

مشكلتي استاذ :

احبذ التعديل في اقتطاعات الانخراط في شهري 3 و 7 يكون مرة واحدة فقط 

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

ملاحظة : جرب العامل رقم 1 واجغلة موظف  والرقم Nr=1

وادخل على الفورم  FrmTransfer خلال شهر 3 وانظر يقطتع له مبلغ 1500

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

[kkhalifa1960]

11 دقائق مضت, Taher DZ said:

ولكن يبدو ان تعديل الاخ لم يكن في محله

أنا سويت طلبك حسب ماطلبت بالمشاركة وأخذ مني وقت وجهد ....   ويكون هذا الرد !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

[Taher DZ]

1 ساعه مضت, kkhalifa1960 said:

ويكون هذا الرد !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

ياسيدي يااستاذي العزيز "شعارك خير الناس انفعهم للناس" ياريت لاتبخل علينا بما اتاك الله من علم