Taher DZ

استاذ حاول التعديل على النسخة هذه وخاصة المطلب 01 9acer3.rar

ان شاء الله استاذي مع مرعاة UpdateComboBox لاتكون هنا Private Sub F1_AfterUpdate() ' UpdateComboBox End Sub Private Sub Y1_AfterUpdate() ' UpdateComboBox End Sub Private Sub T1_AfterUpdate() ' UpdateComboBox End Sub تكون عند Private Sub SearchListZy_Click() UpdateComboBox Private Sub SearchListZT_Click() UpdateComboBox Private Sub SearchListZ_Click() UpdateComboBox

شكرا استاذ على الاهتمامو زمد يد العزن ياريت فيديو توضيحي لعمل البرنامج لانه صراحة ولا تقرير تفتح *- صحيح قمت بالاختفاء كما طلب عند الابناء من 18 فما فوق ولكن فتح التقاير لم تتم 1- مشكلتها في دالة العمر لان الزوجين لاتشملهما دالة Cr1 2- في نظري ليس له علاقة بالاستعلام عند التقرير بل تكون عبر دالة IF عند اختيار Reporte_Title في الفورم A2 تظهر في التقرير في مربع نص غير منظم REP1 وكذلك REP2 تظهربأسفل التقرير عند الشرط وفق لما يلي : If Me.Reporte_Title = "تصريح بالبطالة" Then Rept2 = " أصـرح بشرفـي بأنني عاطلة عــن العمـل لا أمارس أي نشاط مأجور في القطاع العام أو الخاص" ElseIf Me.Reporte_Title = "تصريح بالشرف" Then Rept2 = "أصـرح بشرفـي بأنني لأمارس اي نشاط مهني او تجاري" End If وفي حدث التقرير Private Sub Report_Load() Me.Rep1.Value = Rept1 Me.Rep2.Value = Rept2 End Sub

شكرا أستاذي الكريم التعديل في محله اعرف ان التقرير Face10 يلزمه اصلاح ترتيب وهذا سهل 01- ولكن استاذ مامشكلة عدم ظهور معلومات Rep1 و Rep2 في التقرير Face4T 02- يوجد مشكلة عند فتح التقرير عند الزوج والزوجة مع العلم ان العمر مقيد للأبناء فقط يعني دالة حساب العمر تكون عند T1 = -1 3- هل يمكن اختفاء "تصريح أبوي لقاصر" عند احتيار الزوجين واظهاره عند الابناء الي اقل او يساوي من 17 سنة و شكرا استاذي

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