طاهر اوفيسنا

نعم فكرت وطلعت النتيجة قبل ردك استاذ ولكن خلاف ماتفضلت به انت تصحيحي كان 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 علما ان الانخراط حاليا بدون مبلغ فلو افترضنا ان به مبلغ لاختلط الامر من جديد فتعديلك كان حلا وسدا لجميع الثغرات في المستقبل عموما بارك الله فيكما وربي مايحرمنا من فضلكم وعطائكم الغير محدود

لم تحل المشكلة بحذف 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 هل من فكرة تؤدي الى حل

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

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

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

شكرا لك استاذ

قبل كان يظهر عادي ولكن عند التعديل واختيار الزوجة بعد اختيار الزوح وقع المشكل

عند الضغظ على اسم الزوح في فورم Search مرتين يدخل الى النموذج F1 ملاحظة : لاتنتبه للميساجات التي تظهر لك عند الصغط على ايم الزوح لانها فورمات محذوفة عند الزوحة والابناء WIL8.rar

فعلا وبارك الله في الاستاذ فوكش على الفكرة والان استاذ وقعت لي مشكلة عند فتح النموذج F1 عن طريق النموذج الرئيسي Search بدوبل كليك

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

بوركا فيكما اساتذتي الكرام جاري التجربة على الملف الاصلي 🌹

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

شكرا استاذ على التعديل ممكن المرفق الذي تم التعديل عليه من حضرتك

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

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