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

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

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

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

من هنا

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

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

[ابوخليل]

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

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

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

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

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

هل هذا صحيح ؟

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

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

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

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

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

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

هل هذا صحيح ؟

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

Database27.rar

[ابوخليل]

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

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

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

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

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

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

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

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

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

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