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

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

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

مشكلة دفع.rar

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

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

ملاحظة : لما غيرت رقم الاداة من -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

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

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