مشكلة عند زيادة حقل الدفع

[طاهر اوفيسنا]

السلام عليكم اساتذتي الكرام ويبقى مد العون والمساعدة قائما من طرف الاساتذة الاجلاء لقوله  ﷺ: والله في عون العبد ما كان العبدُ في عون أخيه.  عندي مشكلة في الاستعلام Qry_loans_Step1 والمستمد من الوحدة النمطية   fAdd_Observations علما ان التاريخ 2025/11/03 وخاصة عند العامل رقم   116يظهر مبلغ ErrVerment في  Cridi حيث ان المعني لديه اقتطاع 5000.00 فيCridi ولديه 18.600.00 في ErrVerment

مشكلة دفع.rar

تم تعديل منذ 23 ساعات بواسطه طاهر اوفيسنا

[طاهر اوفيسنا]

ملاحظة : لما غيرت رقم الاداة من -1  الى 0  تم الحل الصحيح مامشكلة - 1 ؟ علما انه لازم يكون الرقم  مغاير للصفر  والواحد  الى اكبر عدد موجب ممكن يكون

[منتصر الانسي]

الكود يعمل بشكل صحيح 

فبحسب الشرط اذا كان رقم الاداه لايساوي صفر (بدون تحديد ما اذا كان اكبر او اصغر من صفر) واسم الحقل هو Cridi او Elec فسيتم إرجاع قيمة التجميع لهذين الحقلين

عبارة Else ستعني أنه إذا كان رقم الأداة يساوي صفر واسم الحقل هو Inkhirat او ErrVerment فسيتم إرجاع قيمة التجميع لهذين الحقلين

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

تحياتي

[طاهر اوفيسنا]

منذ ساعه, منتصر الانسي said:

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

شكرا استاذ وربي يحفظك وساجرب الامر عندما اتواجد امام الكمبيوتر 

[طاهر اوفيسنا]

3 ساعات مضت, منتصر الانسي said:

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

لم تحل المشكلة بحذف Else

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

'Else
    If t = "Inkhirat" Then
       s = DSum("[Payment_Made]", "tbl_Loans", "[EmployeeID]=" & ID_Emp & " And month([Payment_Month])=" & M & " And Year([Payment_Month])=" & Y & " And [Loan_Type]='Inkhirat'")
    End If
    If t = "ErrVerment" Then
       s = DSum("[Payment_Made]", "tbl_Loans", "[EmployeeID]=" & ID_Emp & " And month([Payment_Month])=" & M & " And Year([Payment_Month])=" & Y & "And [Loan_Type]='ErrVerment'")
    End If
End If

وهاهو الاستعلام بعد التجريب علما ان

 Loan_Type = ErrVerment و Loan_ID= -1

هل من فكرة تؤدي الى حل

تم تعديل منذ 18 ساعات بواسطه طاهر اوفيسنا

[ابوخليل]

الاستاذ منتصر وجهك الى مكان الخلل

فالمفترض انك تحاول تفكر وتغير

طيب كما اشار استاذنا بالضبط  .. غير فقط السطرين المشار اليهما :

الاول بهذا :

If Loan_ID > 0 Then

والثاني بهذا

ElseIf Loan_ID <= 0 Then

 

 

مشكلة دفع2.rar

[طاهر اوفيسنا]

3 ساعات مضت, ابوخليل said:

فالمفترض انك تحاول تفكر وتغير

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

تصحيحي كان

If Loan_ID > 0 Then
    If t = "Cridi" Then
       s = DSum("[Payment_Made]", "tbl_Loans", "[EmployeeID]=" & ID_Emp & " And month([Payment_Month])=" & M & " And Year([Payment_Month])=" & Y & " And [Loan_Type]='Cridi'")
    End If
    If t = "Elec" Then
       s = DSum("[Payment_Made]", "tbl_Loans", "[EmployeeID]=" & ID_Emp & " And month([Payment_Month])=" & M & " And Year([Payment_Month])=" & Y & " And [Loan_Type]='Elec'")
    End If

    If t = "Inkhirat" Then
       s = DSum("[Payment_Made]", "tbl_Loans", "[EmployeeID]=" & ID_Emp & " And month([Payment_Month])=" & M & " And Year([Payment_Month])=" & Y & " And [Loan_Type]='Inkhirat'")
    End If
Else
 If Loan_ID < 0 Then
   If t = "ErrVerment" Then
       s = DSum("[Payment_Made]", "tbl_Loans", "[EmployeeID]=" & ID_Emp & " And month([Payment_Month])=" & M & " And Year([Payment_Month])=" & Y & "And [Loan_Type]='ErrVerment'")
    End If
End If
End If

علما ان الانخراط حاليا بدون مبلغ فلو افترضنا ان به مبلغ لاختلط الامر من جديد

فتعديلك كان حلا وسدا لجميع الثغرات  في المستقبل

عموما بارك الله فيكما وربي مايحرمنا من فضلكم وعطائكم الغير محدود

تم تعديل منذ 8 ساعات بواسطه طاهر اوفيسنا