طاهر اوفيسنا

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

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

مشكور استاذ على الافكار الجميلة والاهتمام بالمواضيع

استاذي الجليل ابوخليل حياك الله وجدت مشكلة بخصوص ظهور اسم البلدية والولاية في التقرير 6 عند شهادة عدم الزواج او عدم الطلاق او عدم اعادة الزواج بحيث يظهر لي رقم البلدية ورقم الولاية بدلا عن الاسم مع العلم ان جدول الزوجة تظهر به الاسماء ياريت تعمل نظرة وتعالج المشكلة وشكرا لك Wil10.rar

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

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

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