فتح تقرير عن طريق فورم مع نقل القيم الخاصة به

[طاهر اوفيسنا]

السلام عليكم اساتذتي الكرام

تكملة للموضوع الفارط

من هنا

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

 

Database22.rar

[ابوخليل]

ولا اجمل من هذا الإيضاح

تفضل

Database23.rar

[طاهر اوفيسنا]

9 دقائق مضت, ابوخليل said:

ولا اجمل من هذا الإيضاح

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

[حميد المعزبي]

تسلم يا استاذنا الفالي

[طاهر اوفيسنا]

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

تم تعديل الإثنين at 15:12 بواسطه طاهر اوفيسنا

[ابوخليل]

الحروف العربية هي السبب في صعوبة التعديل

تفضل تم الاصلاح

Database24.rar

[طاهر اوفيسنا]

4 ساعات مضت, ابوخليل said:

تفضل تم الاصلاح

شكرا استاذ وهو  كذلك

استاذ أمل ان يتسع صدرك لي ويكون اخر سؤال ويتغلق الموضوع

عملت مربع نص مخفي وسميته 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

[ابوخليل]

منذ ساعه, طاهر اوفيسنا said:

استاذ أمل ان يتسع صدرك لي ويكون اخر سؤال ويتغلق الموضوع

 

خذ راحتك .. اسأل كما يحلو لك ..

في الموضوع السابق رأيت انه تجاوز 3 صفحات .. لذا احببت البدء بموضوع وعنوان جديد .. فالعناوين الجديدة المختلفة مسألة ايجابية

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

Private Sub C7_AfterUpdate()
C8 = DateAdd("d", 30, C7)
End Sub

الرقم 30 هو عدد الايام (القيمة) التي ترغب باضافتها

يمكنك وضع هذه القيمة في حقل في احد الجداول الموجودة ذات السجل الوحيد ويتم جلبها ( على اعتبار انها قد تتغير هذه المدة (القيمة) )

Database25.rar

[طاهر اوفيسنا]

في 13‏/10‏/2025 at 22:31, ابوخليل said:

خذ راحتك .. اسأل كما يحلو لك ..

شكرا لك استاذ  اعرف انكم لن ولم تدخر جهدا في سبيل مساعدتنا و بكل ما اوتيتم من علم والاجر عند الله كبير ان شاء الله

في الحقيقة عجبتني طريفة تصميمك المختصرة والتي توصل للحل المنشود

فحاولت تجريبها على فورم 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

تم تعديل منذ 20 ساعات بواسطه طاهر اوفيسنا

[ابوخليل]

ما في الكود اعلاه يختلف تماما عما في تقرير6

صحيح ان ما في نموذج3 حاليا ينطبق على ما في تقرير6 

وسؤالي : لدينا حالتين

شهادة عدم الطلاق .. لا يتصور ان الزوج ما زال حيا .. والا ما فائدة الشهود

شهادة عدم اعادة الزواج ... ( يكون بعد طلاق او وفاة عنها ) يمكن ان يكون الزوج حيا .. فالشهادة لاثبات ان المرأة عزباء

هل هذا صحيح ؟

نريد اختصار الاسطر في التقرير .. واظهار المطلوب فقط 

وياليت ترفق لي النموذج والتقريرين الأصل .. الذين تعمل عليهما الآن

[طاهر اوفيسنا]

30 دقائق مضت, ابوخليل said:

شهادة عدم الطلاق .. لا يتصور ان الزوج ما زال حيا .. والا ما فائدة الشهود

شهادة عدم اعادة الزواج ... ( يكون بعد طلاق او وفاة عنها ) يمكن ان يكون الزوج حيا .. فالشهادة لاثبات ان المرأة عزباء

هل هذا صحيح ؟

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

Database27.rar

[ابوخليل]

لم افهم ما مناسبة الزوج هنا ( الزوج او الزوجة ) .. فالاثباتات تخص طلاق الزوجة من عدمه فقط

 الصور المرفقة قد تبين المطلوب ولكنها غير واضحة

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

[طاهر اوفيسنا]

4 دقائق مضت, ابوخليل said:

لم افهم ما مناسبة الزوج هنا ( الزوج او الزوجة ) .. فالاثباتات تخص طلاق الزوجة من عدمه فقط

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

[طاهر اوفيسنا]

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

تم تعديل منذ 15 ساعات بواسطه طاهر اوفيسنا

[ابوخليل]

جزيت خيرا تمام كذا ولكن البيانات غير واضحة

لا يمكن قراءتها

انت جمعتها كلها في صورة واحدة فاصبحة دقة الصورة رديئة جدا

حاول تضغط هذه الصور الاخيرة الاربعة عندك وترفعها كمرفق .. اربع صور منفردة

[طاهر اوفيسنا]

 

33 دقائق مضت, ابوخليل said:

حاول تضغط هذه الصور الاخيرة الاربعة عندك وترفعها كمرفق .. اربع صور منفردة

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

[ابوخليل]

نعم كذا تمام ... واضح ومفهوم

[طاهر اوفيسنا]

10 دقائق مضت, ابوخليل said:

نعم كذا تمام ... واضح ومفهوم

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

[ابوخليل]

هل تقرير الكفالة والموارد خاص بالاولاد اقل من 18

بمعى من هم المكفولون

[طاهر اوفيسنا]

17 دقائق مضت, ابوخليل said:

هل تقرير الكفالة والموارد خاص بالاولاد اقل من 18

بمعى من هم المكفولون

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

[ابوخليل]

طيب هذه الارقام الموجودة من 1 وحتى 8  ماذا تعني ؟ وهل هي مهمة ؟

[طاهر اوفيسنا]

47 دقائق مضت, ابوخليل said:

طيب هذه الارقام الموجودة من 1 وحتى 8  ماذا تعني ؟ وهل هي مهمة ؟

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

[ابوخليل]

اخي الفاضل
المسألة متشابكة وفوضى يجب ترتيبها

في النموذج  A3 :

الاولاد فوق 18
الذكر : يظهر له فقط في القائمة  عدم الزواج
الانثى : يظهر لها عدم الزواج و الكفالة

الزوجة لها اكثر من حالة :

الارملة : يظهر لها في القائمة فقط عدم اعادة الزواج
المطلقة سواء زوجها متوفى بعد الطلاق او حي : يظهر لها فقط عدم اعادة الزواج
المتزوجة على ذمة رجل : يظهر لها فقط  عدم الطلاق
هل هذا صحيح .. من اجل التطبيق

علما ان الحالة الثالثة ( المتزوجة ) غير منطقية .. كيف يشهد اثنان انها غير مطلقة وزوجها على قيد الحياة ؟
الطلاق كلمة .. لا يعلم وقوعها الا الزوج .. والزوجة لا تعلم الا اذا اخبرها زوجها بذلك . لذا المطالب بهذه الشهادة هو الزوج .

العقل والمنطق يقول يشهدون صحيح على وقوع الطلاق اذا سمعوه منه .. ولكن العكس لا يتصور مع وجود الزوج