طاهر اوفيسنا

تم التجريب في اصدار 2007 كما في الصورة اما اصدار 2010 بحوزتي في كلى الحهازين المحمول بالبيت والكمبيوتر بالعمل لم تنغع معهم التعديل

اين يكمن المشكل اذن

اهلا وسهلا بأخينا @محب العقيدة في بيته بين اخوته نسئل الله تعالى ان ينفعنا بعلمه ويكون ذخرا لمنتدانا الغالي

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

ارجو توسيط الرقم وتاريخ التسليم فقط اما الخطين z1و z2 تمت معالجتهم

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