طاهر اوفيسنا

اعتذرا لصاحب الموضوع وكي تعم الفائدة ممكن استاذ تعمل معروف وتزيد للكود طباعة الصفحة اي نسخ الطباعة 3 مرات بزر واحد

ياسبحان الله استاذي لقد تم حذف كل ماتم تعديله من طرفك فاصبح المرفق يشتغل عادي شي عجيب 😙 هات ماعندك لنرى ابتكارك استاذ 💐

شكرا لك استاذي العزيز kanory قمت بإنشاء مربع نص غير منظم مخفي وسميته KA وعملت المعيار بالنموذج Frm_MenhaRules كما تم تعريف ME.KA [Forms]![FrmMenah]![ka] Me.ka = [Forms]![FrmMenah]![Etar].Column(1)

شكرا استاذ على الرد كيف يعمل المرفق المهم المطلوب تصفية في نموذج الاستثناءات حسب الاستعلام الموحد Qry_Menha ولاسيما Menha_Id

هل من مساعدة اساتذتي المطلوب حسب الصورة

السلام عليكم معذرة لاني لم افتح موضوع جديد لاني اراه تكملة للموضوع القديم قمت بتغيير مصدر مربع تحرير وسرد etar فوقعت في مشكلة عند فتح نموذج الشرط حاولت كثير بان اجد حلا فلم اجده Private Sub N100_Click() Dim fieldValue As String Dim keywords As Variant Dim keyword As Variant Dim found As Boolean Dim strWhereCondition As String ' الكلمات أو أجزاء الكلمات المراد البحث عنها keywords = Array("etar") ' يمكنك إضافة كلمات أخرى هنا ' جلب القيمة من الحقل Field1 مع التعامل مع القيم الفارغة fieldValue = Nz(Me!Etar.Column(1), "") ' التحقق إذا كانت القيمة تحتوي على أي من الكلمات المطلوبة found = True For Each keyword In keywords If InStr(1, fieldValue, keyword, vbTextCompare) > 0 Then found = True Exit For End If Next keyword ' إذا تم العثور على أي كلمة، افتح النموذج If found Then strWhereCondition = "[Menha_Type] = '" & Me![Etar].Column(1) & "'" DoCmd.OpenForm "Frm_MenhaRules", acNormal, , strWhereCondition If Me.Etar.ListIndex = 0 Then Me.Frm_sub.SourceObject = "FrmMenah_sub" 'Me.Frm_MenhaRules.SourceObject = Menha_Name 'Menha_Name = CmdMenha.Column(2) End If Else ' إذا لم يتم العثور على أي كلمة MsgBox "الحقل لا يحتوي على النصوص المطلوبة.", vbInformation, "تحذير" End If Exit_N100_Click: Exit Sub Err_N100_Click: MsgBox Err.Description Resume Exit_N100_Click End Sub ) تغير المصدر.rar

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

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

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

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