طاهر اوفيسنا

السلام عليكم اساتذتي الكرام المطلوب توسيط الرقم وتاريخ التسليم في التقرير Tbl_Loans مع تسطير زيادة الخطين Z1 وZ2 على طول مسافة تفصيل الجدول بكود Z1.rar

بوركت استاذي على المجهودات الجبارة التي قمت بها وسامحني على أخذ من وقتك الكثير والكثير الله ينفعما بعلمك ويجعلها في ميزان حسناتك ملاحظة : عند رؤية للملف تبين لي انه عند فتح الفورم A3 يظهر الاشخاص المكفولين والاصح عند اختيار الزوج لاننا وقعنا في تناقص اب متوفي وطهور المكفولين كما في الصورة لقد تم اخفاء A3_Sub عند فتح الفورم A3 وجعلها تظهر عند Private Sub k1_GotFocus() Me.A3_Sub.Visible = False End Sub

اجريت بعض التعديلات ولكن وجدت اخطأ في نقل اسم الزوجة المطلقة الى التقرير تظهر ليست الزوجة المختار هذا من جهة ومن جهة اخرى التعديل ان امكن يكون على منوال الصور 01- حالة الطلاق 2- حالة الارملة 3- حالة التقرير رقم 7 ليست المشكلة في الزواج او عدمه بل يوجد البنت العاملة والزوجة العاملة يعتبران غير مكفولان قانونا في رأي اظهار معلومات البنات والزوجة في الفورم A3_Sub واختيار المختار يظهر فقط في التقرير هو الحل الانسب Database30.rar

شكرا استاذ عللى التعب من اجل المساعدة والوصول الى حل يرضي لديا ملاحظات بسيطة : - بخصوص التقرير 6 لايلزم اخفاء البينات الاخرى بل اظهر الخطوط من k1 الى k8 اخفاء الخط يتم الا في السطر الذي به بيانات النقل فقط اعرف ان الامر صعب استاذي العزيز ولكن لايصعب على الخبراء نفعنا الله بعلمهم المشكلة انه يظهر كل البنات الاكبر من 18 سنة وهذا معقول ولكن فما بنات متزوجات فكيف يتم اخفائهن في التقرير 7 حاولت التعديل على الفورم A3 وعملت فيه فورم فرعي A3_SUB لكي اخدد فيه البنات التي يتم اظهارهن في التقرير 7 فلم افلح وفقكم الله وسدد خطاكم

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

اين وجدها علما اني بعيد عن الجهاز

المكفولين هم : البنات فقط الاكبر من 18 سنة وغير متزوجات ومعهم الزوجة ملاحظة : يلزم كود عند الضغط او تحديد اسم البنت تظهر في الكفالة

توضيح بالنسبة للعنوان ياريت يكون كاملا كما في الصورة والكود يضع / على الشهادة الغير معنية وشكرا

تفضل استاذ نتمنى اني وفقت في توضيح المطلوب

والا استاذ خليها لنقل معلومات للزوج فقط في 5 و 6 و 7 الا في 8 بين السيد الزوج وبين السيدة الزوحة والتواريخ الطلاق يوجد في جدول الزوجة والوفاة توجد في جدول الزوج

مبديئا حاول معرفة هذا العنصر الغامض استاذ اذا كان اخترنا في A3 الزوج يكون اسم الزوجة في التقرير ( لم تطلق منذ زواجها بالسيد 5) واذا العكس يكون اسم الزوج (لم يطلق منذ زواجه بالسيدة 5 ) وسارفق امثلة كل على حدى

كلامك صحيح استاذ اما بخصوص عدم الزواج فانها تخص الابناء فقط فوق 18 سنة لاحظ الصور الاربعة : 1/في حالة العزوبية تخص الابناء(لم تتزوج اطلاقا اعزب -عزباء) 2/ في حالة عدم الطلاق تخص الزوجة والزوجين الغير منفصلين(لم تطلق منذ زواجها بالسيد) 3/في حالة عدم اعادة الزواج وهنا تخص الزوجة المطلقة (لم تتزوج منذ طلاقهامن زوجها) - الارملة المتوفي زوجها (لم تتزوج منذ وفاة زوجها) فيه ملاحظة : اظطريت لتعديل اسماء في الجداول للفرنسية تفاديا للمشاكل في الاكواد Database27.rar

شكرا لك استاذ اعرف انكم لن ولم تدخر جهدا في سبيل مساعدتنا و بكل ما اوتيتم من علم والاجر عند الله كبير ان شاء الله في الحقيقة عجبتني طريفة تصميمك المختصرة والتي توصل للحل المنشود فحاولت تجريبها على فورم A3 الخاص بالزواج او عدمه فوجدت صعوبة في نقل البيانات الى التقرير FACE6 اولا : نحب نعرف هل اسطر الكود RecordSource عند الزوج والزوجة والابناء تكون مثل بعضها تماما ام لا المطلوب سارفقه بعد ما اعجز عن التقيد بالتوصيات frFrm = Forms!a3!frame1 'الزوج If frFrm = 1 Then Me.RecordSource = "SELECT Tbl_ZAWJ.IDP, Tbl_ZAWJ.Nom1, Tbl_ZAWJ.Nom1 AS esem, Tbl_ZAWJ.Prenom1 AS laqab, Tbl_ZAWJ.N_Per AS AlAb, Tbl_ZAWJ.N_Lag_Mer AS Nomlaqab, 0 AS Prenom1, 0 AS Hamechx, 0 AS ChekBoxx, Tbl_ZAWJ.Date_Naiss1 AS melad_date, Tbl_ZAWJ.Lieu_Naiss1 AS melad_plac,0 AS DateMarj, Tbl_ZAWJ.Date_Dec AS DateDec, Tbl_ZAWJ.Lieu_Dec AS LieuDec, 0 AS DateMariaj, 0 AS LieuMarj,0 AS DateDev_Dec, Tbl_ZAWJ.NomLatain1 AS Nlatin" & vbCrLf & _ "FROM Tbl_ZAWJ " & vbCrLf & _ "WHERE (((Tbl_ZAWJ.IDP)=[forms]![A3]![CO1]))" frStringA = "شهادة عدم إعادة الزواج" frStringB = "شهادة عدم الطلاق" frfldA = " بأن السيد : " frfldB = "القاطن ب : " frfldC = "المعني بالأمر" frfldd = "(لم يتزوج إطلاقا - أعزب)(4)" 'الزوجة ElseIf frFrm = 2 Then Me.RecordSource = "SELECT Tbl_ZAWJ.IDP, Tbl_ZAWJ.Nom1, Tbl_ZAWJ.Prenom1, Tbl_ZAWJA.IDM, Tbl_ZAWJA.Nom2 AS esem, Tbl_ZAWJA.Prenom2 AS laqab, Tbl_ZAWJA.[N_Lag_Mer] AS Nomlaqab, Tbl_ZAWJA.N_Per AS AlAb, Tbl_ZAWJA.Hamech AS Hamechx, Tbl_ZAWJA.CheckBox AS ChekBoxx, Tbl_ZAWJA.Date_Naiss2 AS melad_date, Tbl_ZAWJA.Lieu_Naiss2 AS melad_plac, Tbl_ZAWJA.Date_Marj AS DateMarj, Tbl_ZAWJA.Lieu_Marj AS LieuMarj, Tbl_ZAWJA.N_Act_Marj AS NactMarj, Tbl_ZAWJA.Date_Dev_Mort AS DateDev_Dec, Tbl_ZAWJA.Lieu_Dev_Mort AS LieuDev_Dec, Tbl_ZAWJA.NomLatain2 AS Nlatin" & vbCrLf & _ "FROM Tbl_ZAWJ INNER JOIN Tbl_ZAWJA ON Tbl_ZAWJ.IDP = Tbl_ZAWJA.IDP" & vbCrLf & _ "WHERE (((Tbl_ZAWJA.IDM)=[forms]![A3]![CO2]))" frStringA = "شهادة عدم إعادة الزواج" frStringB = "شهادة عدم الطلاق" frfldA = "بأن السيدة : " frfldB = "القاطنة ب : " frfldC = "المعنية بالأمر" frfldd = "(لم تتزوج إطلاقا - عزباء)(4)" 'الابناء ElseIf frFrm = 3 Then Me.RecordSource = "SELECT Tbl_ZAWJ.IDP, Tbl_ZAWJ.Nom1, Tbl_ZAWJ.Prenom1, Tbl_ZAWJA.IDM, Tbl_ZAWJA.Nom2, Tbl_ZAWJA.Prenom2, Tbl_ZAWJ.Prenom1 AS laqab,Tbl_ZAWJA.Nom AS Nomlaqab, Tbl_Enf.NF, Tbl_Enf.Nom_Enf AS esem, Tbl_ZAWJ.Nom1 AS AlAb, 0 AS Hamechx,0 AS ChekBoxx,Tbl_Enf.Date_Naiss3 AS melad_date, Tbl_Enf.Lieu_Naiss3 AS melad_plac " & vbCrLf & _ "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 " & vbCrLf & _ "WHERE (((Tbl_Enf.NF)=[forms]![A3]![CO3]))" 'الابن If Forms!a3!CO3.Column(4) = "ذ" Then frStringA = "شهادة عدم الزواح" frStringB = " " frfldA = "بأن السيد : " frfldB = "القاطن ب : " frfldC = "المعني بالأمر" frfldd = "(لم يتزوج إطلاقا - أعزب)(4)" Me.k1.Visible = 1 Me.k2.Visible = 1 Me.k4.Visible = 0 Me.k5.Visible = 1 Me.k6.Visible = 1 Me.k7.Visible = 1 Me.k8.Visible = 1 'البنت Else frStringA = "شهادة عدم الزواح" frStringB = " " frfldA = "بأن الأنسة : " frfldB = "القاطنة ب : " frfldC = "المعنية بالأمر" frfldd = "(لم تتزوج إطلاقا - عزباء)(4)" Me.k1.Visible = 1 Me.k2.Visible = 1 Me.k4.Visible = 0 Me.k5.Visible = 1 Me.k6.Visible = 1 Me.k7.Visible = 1 Me.k8.Visible = 1 End If End If Database26.rar

شكرا استاذ وهو كذلك استاذ أمل ان يتسع صدرك لي ويكون اخر سؤال ويتغلق الموضوع عملت مربع نص مخفي وسميته Jour بقيمة افتراصية 30 حاولت وضع تاريخ في C7 على ان يظهر تاريخ مباشرة في C8 بزيادة 30 يوم مثلا : 2025/10/13 + 30 يوم = 2025/11/03 فلم افلح ياريت توضيح اين الخطأ Private Sub C7_Click() Dim Jour As Integer Jour = 30 Me.C7 = DateSerial(Year(Me.C7), Month(Me.C7), 1) C8 = DateAdd("m", Jour , [C7] - 1) Me.C8 = DateSerial(Year(Me.C8), Month(Me.C8) + 1, 0) ' Me.C8.Value = C7.Value + 30 End Sub

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

اجمل ماصنعت استاذي العزيز سلمت اناملك وبوركت وجعلها الله في ميزان حسناتك

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