طاهر اوفيسنا

استاذ ابو خليل عملت استعلام موحد للإستدعاء ضمن تقرير واحد ويتكون من الزوج والزوجة والابن لان اغلبية المعلومات تقريبا موحدة مثلا الرقم - الاسم - اللقب - تاريخ الميلاد- مكان الميلاد - اسم الاب - اسم ولقب الام ولكن وجدت صعوبة في المعايير SELECT Tbl_ZAWJ.IDP, Tbl_ZAWJ.Nom1, Tbl_ZAWJ.Prenom1, Tbl_ZAWJ.Date_Naiss1, Tbl_ZAWJ.Lieu_Naiss1, Tbl_ZAWJ.[إسم الأب], Tbl_ZAWJ.[إسم ولقب الأم] FROM Tbl_ZAWJ WHERE (((Tbl_ZAWJ.IDP)=[Forms]![A2]![IDP])) UNION all SELECT Tbl_ZAWJA.IDM, Tbl_ZAWJA.Nom2, Tbl_ZAWJA.Prenom2, Tbl_ZAWJA.Date_Naiss2, Tbl_ZAWJA.Lieu_Naiss2, Tbl_ZAWJA.[إسم الأب], Tbl_ZAWJA.[إسم ولقب الأم] FROM Tbl_ZAWJA WHERE (((Tbl_ZAWJA.IDM)=[Forms]![A2]![IDM])) UNION ALL SELECT Tbl_Enf.NF, Tbl_Enf.Nom_Enf, Tbl_ZAWJ.Prenom1, Tbl_Enf.Date_Naiss3, Tbl_Enf.Lieu_Naiss3, Tbl_ZAWJ.[إسم الأب], Tbl_ZAWJA.[إسم ولقب الأم] FROM (Tbl_ZAWJ INNER JOIN Tbl_ZAWJA ON Tbl_ZAWJ.IDP = Tbl_ZAWJA.IDP) INNER JOIN Tbl_Enf ON Tbl_ZAWJA.IDM = Tbl_Enf.IDM WHERE (((Tbl_Enf.NF)=[Forms]![A2]![NF]));

ولكن استاذ لازم ظهور ارملة فلان في التصريحات

اين محاولاتك استاذ خليفة

فهمت وسأجرب الفكرة

تسجل في جدول الابناء ولكن تستثنى بكود اليس كذلك

هنا لم يتم الفهم ممكن مثال للتوضيح

تتغير استاذ عند الزوجة او الابن اكبر من 17 سنة

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

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

شكرا استاذ فعلا مقترح حل لانه تم التمكن منها عند ردود الاستاذ خليفة والان في الاستغناء عن التقارير وحعلها في تقرير واحد اي الاستغناء عن التقرير face4t و face4y وفتحها في FACE4 بواسطة توحيد استعلام مثلا شكرا على الاهتمام استاذ وياريت توظيب الفكرة

تسلم استاذي ولكن ياريت طريقة لمعرفة عمل دالة Args

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

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

كفيت ووفيت استاذ ربي يحفظك ويجعلها في ميزان حسناتك والان بعد إذنك استاذ هل لي ان استغني عن 3 تقارير واجعلهم تقريرا واحدا فقط وهو face4 اذا فتحت من جهة الزوج نجد معلومات الزوج الاستعلام Zawj او الزوجة نجد معلومات الزوجة الاستعلام Zawja او الابن اكبر من 17 نجد معلومات الابن الاستعلام Enf اما الابناء اقل او يساوي 17 سنة القاصر فلهم تقرير منفصلا face10

If Me.Reporte_Title = "تصريح بالبطالة" Then Rept2 = " أصـرح بشرفـي بأنني عاطل عــن العمـل لا أمارس أي نشاط مأجور في القطاع العام أو الخاص" ElseIf Me.Reporte_Title = "تصريح بالشرف" Then Rept2 = "أصـرح بشرفـي بأنني لأمارس اي نشاط مهني او تجاري" Rept1 = Me.Reporte_Title

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

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