Taher DZ

السلام عليكم اساتذتي الكرام تكملة للموضوع الفارط من هنا المطلوب مساعدة في فتح تقرير 10 عند اختيار "تصريح ابوي لقاصر" عن طريق الكود وبدون مصدر سجلات ويخص الابن القاصر فقط اي "العمر اقل من 18 سنة" Database22.rar

تخص الولي وهو الاب الاول مثلا بطاقة التعريف الوطنية المخصصة في A2 الثاني رقمها الثالث مكان صدورها الرابع تاريخ صدورها لماذا افتح موضوع جديد واحنا على وشك النهاية بهدا التقرير

اليك استاذ المرفق به التقرير Face10 مع بعض الزيادات في فورم a2 التابعة للتقرير Database22.rar

القانون الجزائري ينص على 18 سنة كاملة استاذ يمكن سقط كلامي سهوا من كثرة انشغالاتي المهم الحساب 18 سنة يعتبر رجلا اقل يعتبر قاصرا هذا هو الصح تقبل تحياتي القلبية

نعم ولكن اعمل حساب يكون سنه 18 سنة كاملة اي يوم استخراج الوثيقة لايعتبر قاصرا واقل حتى بيوم يعتبر قاصر

عند اختيار الزوج والزوجة والابن اكبر من 17 سنة لايظهر في Title_Main"تصريح أبوي لقاصر" ويظهر هذا الاخير عند تخصيص الابناء الاقل او يساوي من 17 سنة في Co3 والتقرير الخاص بهم مثلا face10 والمرفق به التقرير الجديد Database20.rar نعم وهو كذلك اعرفها ليست كافية ولكن لم انسخها كاملة قلت الاستاذ يعرف هذا جيدا ... اعذرني

استاذ فما شيء غائب عن فكرك يلزمه توضيح عندما يتقدم المواطن لمصالحي من اجل طلب تصريح اول ما اطلب منه بطاقة الهوية لكي ادون رقمها وتاريخ ومكان صدورها لان التصريحات تكون مقننة بوثيقة التعريف لكلى الاطراف (الزوج ام الزوجة ام الابن اكبر من 17 سنة) انا دالة حساب العمر فهي بسيطةcr CR = DLookup("anneNes"),"Tbl_Enf","NF=" & me.NF)

استاذي العزيز مزال التعديل لم يكتمل للحل الصحيح 1- من جهة نوع الوثيقة انت اخترت لكل جدول تسمية وثيقة خاصة الزوج c1.c2.c3 الزوحة c1_m.c2_m.c3_m الابن c1_e.c2_e.c3_e ولكن التقرير نجد فيه معلومات وثيقة الزوج مع العلم ان رقم الوثيقة وتاريخ ومكان صدورها تملا في الفورم A2 لتظهر في التقرير 2-طلبت منك فلترة الابناء الاقل اويساوي 17 سنة فطلبت مني ادراج العمر في الجدول مافائدة ادرج العمر وعندنا دالة استخراج العمر من سنة الميلاد 3- بالنسبة للابناء اقل اويساوي 17 سنة لديهم تقريرا مخالف وهو تصريح ابوي لقاصر والمرفق يوضح تعديل من طرفي على وثيقة التعريف Database19.rar

شكرا استاذ على التعديل المختصر الجيد ولكن يحتاج على عدة تعديلات احرى وشروط استاذ كان في تعديلك المهم التجميع والفتح ضمن تقرير واحد وكانت فكرة جيدة النقائص : 1- اين تكتب رقم البطاقة وتاريخ صدور ومكان الصدور للزوج والزوجة حسب ماقلت تؤخذ مباشرة من جدول الزوج 2- بالنسبة للأبناء الاقل من 17 سنة فهم مستثنين ولهم تقريرا خاصا 3- عند فتح التقرير نجد Me.Rep1 = Forms!A2!Title1 Me.Rep2 = Forms!A2!Title2 نجد لخبطة في التنفيذ والمشار اليها بالاحمر حيث 02 يكون مكان 01 بالاعلى و02 يكون بشرط كما في Rept2 If Me.Title1 = "تصريح بالبطالة" Then Rept2 = " أصـرح بشرفـي بأنني عاطلة عــن العمـل لا أمارس أي نشاط مأجور في القطاع العام أو الخاص" ElseIf Me.Title1 = "تصريح بالشرف" Then Rept2 = "أصـرح بشرفـي بأنني لأمارس اي نشاط مهني او تجاري" End If حاول تصحيح هذا استاذ

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