طاهر اوفيسنا

السلام عليكم اساتذني الكرام نتمنى ان تكون صحتكم بالف خير يارب بعد غياب طويل عن المنتدى لظروف ما واجهتني مشكلة عند الاختيار والدخول الى التقارير بشرط : حيث عند مربع إختيار الإبن T1 = -1 في الفورم A2 بعد اختيار الزوج والزوجة والابن من الفورم الرئيسي Search_Frm دالة معرفة العمر Dim Cr As String Cr = DLookup("anneNes", "Tbl_Enf", "NF =" & Me.NF) Cr1 = Year(Date) - Cr الشرط 01- الابن اكبر من 17 سنة ونختار في Reporte_Title احدى : "تصريح بالبطالة";"تصريح بالشرف" يفتح التقرير Face4T ولا يفتح التقرير face10 بظهزر ميساج عند المنع " اي عند فتح face10 " MsgBox " تنبيه ! هذا الطفل إستوفى 18 سنة " الشرط 02- الابن اقل او يساوي 17 سنة ونحتار في Reporte_Title "تصريح أبوي لقاصر" يفتح التقرير face10 ولا يفتح التقرير Face4T بظهزر ميساج عند المنع " اي عند فتح Face4T" MsgBox " تنبيه ! هذا الطفل لم يستوفى 18 سنة " ' (الإبن (ة ElseIf T1 = -1 Then If Me.Reporte_Title = Me.Reporte_Title.ItemData(0) Then Rept2 = " أصـرح بشرفـي بأنني عاطل(ة)عــن العمـل لا أمارس أي نشاط مأجور في القطاع العام أو الخاص" ElseIf Me.Reporte_Title = Me.Reporte_Title.ItemData(1) Then Rept2 = "أصـرح بشرفـي بأنني لأمارس اي نشاط مهني او تجاري" End If Rept1 = Me.Reporte_Title TempVars("Reporte_Title") = Reporte_Title.Value TempVars("C1") = C1.Value TempVars("C2") = C2.Value TempVars("C3") = C3.Value TempVars("N4") = N4.Value TempVars("N5") = N5.Value TempVars("Reporte_Title1") = Reporte_Title1.Value stDocName = "Face4t" DoCmd.OpenReport stDocName, acPreview ' Abou_Taha (stDocName) DoCmd.Close acForm, "A2" اتمنى ان اجد حلا تةافقيا وبارك الله فيكم جميعا 9acer.rar

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

وهو كذلك شكرا استاذ Foksh

شكرا استاذ تم تعديل نوعية الخط وكان الحل تمام والان استاذ كيف يتم التعديل على الكود المعدل من طرف حضرتك علما انه لديا تقريرين اذا فتحت بواسطة الفورم FrmCCp التقرير rptTransfer_BEA_CCP والفورم الثاني FrmVerment و التقرير rptDiscountDetail0 علما ان شريط الطباعةPrin واحد لهما في زوج أتمنى انك فهمت مقصدي

ممكن تعطيني فكرة على ذلك استاذ

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

شكرا استاذ على التصحيح اما بخصوص تسمية المربع التاريخ Date اعرف أنه يسبب مشكلة في الاصل اسمه TxtMonth ولكن استاذ عند التحويل الى صيغة PDF وقعت مشكلة في التاريخ والمبلغ مانعرف السبب نوعية الخط ام ماذا علما اني استخدم خط Sultan Medium

السلام عليكم اساتذتي الكريم بالمرفق نريد حفظ التقرير بصفة PDF بناء على الضغط على كلمة تصدير الى PDF بشرط يكون التاريخ والمبلغ كما هو حفظ بصغة PDF.rar

كل تمام ربي يبارك فيك استاذ

بوركت استاذ لي تجربة يوم الاحد ان شاء الله بالملف الاصلي بالادارة سأرى مدى تنفيذ الكود على كل الحالات عموما ربي يحفظك وشكرا على الاهتمام ربي مايحرمنا من بصماتك الجميلة

استاذ اعطيني اين تم التعديل لكي اعرف مدى تنفيذ الكود في كل الحالات

شكرا استاذ على الاهتمام وحمد لله على سلامتك وينك ياراجل غاب اثرك استاذي العزيز الحالة هذه وقعت السنة الفارطة دفع الا مبلغ 1500 وهذه السنة دفع المبلغ كاملا والمقدر ب 3000 دج الكود لما بحث وجد انه دفع 1500 العام الماضي وكان الدفع خلال مارس 2024 واستفادتة كانت الى غاية 2024/06/30 اي بعد 01 جويلية الى غاية 2024/12/30 لم يكمل 1500 ويكون محروم من الاستفادة فياريت زيادة صيغة لهذه الحالة في الكود اما التاريخ لازم يكون الى غاية 2026/02/28 لانه دفع المبلغ كاملا لسنة 2025

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

السلام عليكم اساتذتي الكرام لقد وجدت مشكلة في التعديل الاخير لهذا الملف خلال شهر مارس الفارط المنخرط دفع مبلغ الانخراط كاملا بتاريخ 2025/04/17 والكود يرفض اعطائه منحة او قرض ياريت معرفة سبب المشكلة وشكرا. Taher_20250515.rar

شكرا استاذي العزيز

السلام عليكم اساتذتي الكرام اريد التعديل على كود عند النقر على اسم الزوجة او الزوجة ينبهني لحالة الوفاة علما في حالة الزوجة hamech=4 والزوج يساوي 2 الكود موجود في A1 يحتاج إلى تعديل فقط MsgBox وفاة.rar

لا ليست القضية في فتح موضوع جديد ولكن نحسها أمور بسيطة تحتاج إلى تعديل طفيف لايحتاج موضوع جديد ولك واسع النظر

ياريت معالجة امر الكود استاذ ولو في الخاص وشكرا لك

اساتذي الفضلاء ممكن على نفس المرفق والفورم A1 عند النقر على اسم الزوجة يظهر الميساج "هذه الزوجة متوفية" وكذا الزوج علما ان الكود موجود ولكن عند التنفيذ يتجاهله

شكرا استاذي على التعديل الجميل اي تم الاستغناء عن 0 & 1=testTypeGender

الخلل عندي استاذ سأتمعنه غدا خطوة بخطوة بحول الله

نعم تم الحجز استاذي ولكن بدون نتيجة صحيحة علما اني نسخت الفورم A1 والتقرير Face5 في ملفي وبقيت النتيجة على حالها علما ان تعديل الاستاذ ابوخليل على المرفق صحيح 100% مانعرف اين يكمن المشكل

هذا المتغير الذي تم وضعه استاذ ' الزوجة If F1 = -1 Then testTypeGender = 0 ' الزوج ElseIf Y1 = -1 Then testTypeGender = 1 ' الابناء الاكبر من 18 سنة ElseIf T1 = -1 Then testTypeGender = 1 وفي التقرير If testTypeGender = 1 Then text1 = [Prenom] & " " & [Nom] Else text1 = [Prenom] & " " & [Nom] & " " & [ep] & " " & [Prenom1] End If صراحة طبقت كل هذا في النموذج الاصلي ولكن وجدت مشكلة عند الزوج ظهر التقرير مثلا " الطاهر بن عتوس 1 حرم "

السلام عليكم اساتذتي الكرام مشكلتي وقعت عندما وحدت التقرير face5 عند الدخول بواسطة الزوجة يظهر اسمها ولقبها (حرم)او(ارملة) الشرط واضح اذ كان CheckBox=-1 حرم واذا كان يساوي 0 ارملة هنا المعاينة تمام ولكن المشكلة عند الدخول بواسطة الزوج او الابن تظهر حرم او ارملة فكيف يتم التعديل حتى لاتظهر عند هاذين الاخرين وشكرامشكلة التقرير الموحد.rar