فتح تقريرين بعدة شروط

[Foksh]

أخي @طاهر اوفيسنا ,,

جرب هذا التعديل البسيط بعد ان تجاهلت ما كنت اعمل عليه سابقاً ,,

 

 

فتح تقرير FACE14.zipFetching info...

  في 28‏/4‏/2025 at 17:40, طاهر اوفيسنا said:

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

Expand  

عدلت عن السلوك السابق ، واتبعت سلوك جديد في التنفيذ ، جربه ان كان ناجحاً .

فأنت أدرى مني بسلوك برنامج وآلية العمل عليه .

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

  في 28‏/4‏/2025 at 18:02, Foksh said:

عدلت عن السلوك السابق ، واتبعت سلوك جديد في التنفيذ ، جربه ان كان ناجحاً .

فأنت أدرى مني بسلوك برنامج وآلية العمل عليه .

Expand  

شكرا استاذي العزيز

لم افهم قصدك في نظري كنت ستغير على طريقة العمل القديمة وليس حذف عناصر من التقرير لانه نموذج متداول باذارة الحالة المدنية  الجرائرية  "المرجع ح م 4 " فليس من حقنا حذف اي عنصر دون به ماعلينا الا ملء الفراغات فقط

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

استاذي بامكانك الاستغناء عن الحالة 3 لانها حالة نادرة

وعدل على الحالتين 1 و 2 لكان امكن 

وشكرا مسبقا

[Foksh]

أخي @طاهر اوفيسنا ، ممكن توضح لي الحقل Hamech ????????

قيمته في جدول الزوجة Tbl_ZAWJA =

الهامش
على قيد الحياة و مطلقة بتاريخ :
على قيد الحياة و غير مطلقة
على قيد الحياة و مطلقة بتاريخ :

 

بينما في الاستعلام =

2 OR 4

 

الأمر يستدعي إصلاح الكثير من الأخطاء للحصول على طلبك ، 

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

  في 28‏/4‏/2025 at 21:05, Foksh said:

ممكن توضح لي الحقل Hamech ????????

Expand  

الهامش عند الزوجة فيه 3 ارقام وهي 1 و 2 و 4

1 على قيد الحياة و غير مطلقة

2 على فيد الحياة ومطلقة بتاريخ :

4 متوفية بتاريخ :

الهامش عند الزوج فيه 2 ارقام وهي 1 و 2 

1 على قيد الحياة  

2  متوفي بتاريخ :

[Foksh]

اعتذر منك عن المواصلة ، فعملك يحتاج لإعادة بنااااااء .

وخصوصاُ فكرة الهوامش الغير متوحدة ، بما أنك أوجدت جدول للهوامش فمن المفترض ان يضم جميع الإحتمالات وبأسلوب صحيح وليس كما في الجدول الخاص بالهامش =

Tbl_Hamech

هامش العملية
على قيد الحياة و غير مطلقة
على قيد الحياة و مطلقة بتاريخ :
مطلقة بتاريخ : ومتوفيه بتاريخ :
متوفية بتاريخ :

 

وفي الجدول الخاص بالزوج =

Tbl_ZAWJ

الهامش
متوفي بتاريخ :
متوفي بتاريخ :
على قيد الحياة

 

بينما في الجدول الخاص بالزوجة =

Tbl_ZAWJA

الهامش
على قيد الحياة و مطلقة بتاريخ :
على قيد الحياة و غير مطلقة
على قيد الحياة و مطلقة بتاريخ :

 

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

 

هذه وجهة نظري الغير ملزمة لك ، ما لم يكن هناك وجهة نظر أخرى لأحد الأساتذة , أو إن لم أخرج لك بطريقة أخرى تحافظ على ما تريده ، مع العلم أنني استشرتك في التعديل على فكرة التقرير ، وقد سمحت لي بما يتحقق مع مطلبك ثم عدلت عن الفكرة بإنها تغير من بنية التقرير ( بسبب قيود إدارة الحالة المدنية الجزائرية .

 

 

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

  في 28‏/4‏/2025 at 22:55, Foksh said:

اعتذر منك عن المواصلة ، فعملك يحتاج لإعادة بنااااااء .

Expand  

لماذا اعادة البناء استاذ انت عدل عمل التقرير  على ثلاثة حالات فقط

ملاحظة : لا تتبع الامثلة الاخيرة التي ارفقتها بخصوص الهوامش  واتبع مايلي :

الحالة الاولى : الزوج متوفي هامش الزوج  يحمل رقم 2 يعني الزوجة ارملة  " لم تتزوج منذ وفاة زوجها السيد ......... المتوفي بتاريخ ........" العنوان (عدم إعادة الزواج 3)

الحالة الثانية  : الزوجة مطلقة هامش الزوجة يحمل رقم  2 يعني حالة طلاق "لم تتزوج منذ طلاقها من السيد ..........بتاريخ ........." العنوان (عدم إعادة الزواج 3)

الحالة الثالثة : الزوجة على قيد الحياة وغير مطلقة هامش الزوجة يحمل رقم 1 يعني حالة زواج " لم تطلق منذ زواجها بالسيد .......... بتاريخ ............" العنوان (عدم الطلاق 2)

هذا مافي الامر   ارجو ان اكون بسطت لك الفكرة

وان شئت اقرن بدالة  IF الشرطية الحالات بالهامش

1- الزوج حالة 2 والزوجة حالة 1

2- الزوج حالة 1 والزوجة حالة 2

3- الزوج حالة 1 والزوجة حالة 1

تم تعديل April 29 بواسطه طاهر اوفيسنا

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

استاذي العزيز فما محاولة لي بدالة IF تفي بالغرض المطلوب ياريت تتطلع عليها واذا رأيت اختصارات فقم باللازم

فتح تقرير FACE15.rarFetching info...

[Foksh]

  في 29‏/4‏/2025 at 09:06, طاهر اوفيسنا said:

استاذي العزيز فما محاولة لي بدالة IF تفي بالغرض المطلوب ياريت تتطلع عليها واذا رأيت اختصارات .....

Expand  

أخي @طاهر اوفيسنا ، توضيحك للقيم الخاصة بالهامش في الجداول جاءت لك بفائدة كبيرة وهذا الى حد ما جزء من التأسيس الصحيح .

تم استخدام هياكل تحكم أفضل من الجمل الشرطية . حيث  استبدلت عبارات If-ElseIf المتعددة ببنية Select Case أكثر وضوحاً واستقرار مع دالة مساعدة بسيطة ، في المرفق التالي :-

 

 

فتح تقرير FACE15.zipFetching info...

 

وفي الواقع انا تلافيت التعديل والعبث في مكونات جداولك بعد تعليقك على تعديلاتي في التقرير 😅 . ردك جعلني أتراجع عن المتابعة الى حد ما سابقاً ولكن الحمد لله تيسرت بطريقتك المشروعة  .

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

شكرا استاذي على التعديل الجميل ربي يجازيك ويبارك في عملك الان في نظري الحالة الاخيرة تكون ساهلة حسب تبسيط الكود الزوج متوفي والزوجة مطلقة اي الهامش2  و 2 علمنا ان الطلاق قبل الوفاة هنا تطبق الحالة7 "لم تتزوج منذ طلاقها من زوجها السيد " نذهب الى الحالة التي بين ايدينا ركز معي حالة نور الدين قسومة الطلاق من هنيه فقير يوم 1998/02/26 والوفاة يوم 2000/05/01

[Foksh]

  في 29‏/4‏/2025 at 09:57, طاهر اوفيسنا said:

شكرا استاذي على التعديل الجميل ربي يجازيك ويبارك في عملك الان في نظري الحالة الاخيرة تكون ساهلة حسب تبسيط الكود الزوج متوفي والزوجة مطلقة اي الهامش2  و 2 علمنا ان الطلاق قبل الوفاة هنا تطبق الحالة7 "لم تتزوج منذ طلاقها من زوجها السيد " نذهب الى الحالة التي بين ايدينا ركز معي حالة نور الدين قسومة الطلاق من هنيه فقير يوم 1998/02/26 والوفاة يوم 2000/05/01

Expand  

تمام ، بناءً على كلامك ، سيكون التعديل كالتالي ، وأنصح بدراسة وتجربة جميع الإحتمالات حتى تلم بها دون اي مشاكل ..

استبدل التعديل السابق بالتالي في التقرير :-

Private Sub ProcessNoRemarriageCertificate()
    Me.L3.Visible = False
    Me.L2.Visible = True
    Me.L1.Visible = True
    
    Call InitializeControlsVisibility
    
    Dim zawjValue As Integer, zawjaValue As Integer
    zawjValue = Nz(Me.Tbl_ZAWJ_Hamech.Value, 0)
    zawjaValue = Nz(Me.Tbl_ZAWJA_Hamech.Value, 0)
    
    Dim dateDivorce As Date, dateDeath As Date
    On Error Resume Next
    dateDivorce = Nz(DLookup("[تاريخ (الوفاة - الطلاق)]", "N_Mariag"), 0)
    dateDeath = Nz(DLookup("[تاريخ الوفاة]", "N_Mariag"), 0)
    On Error GoTo 0
    
    Select Case True
        ' حالة "لم تطلق منذ زواجها"
        Case (zawjValue = 1 And zawjaValue = 1)
            Me.k5.Visible = False
            Me.Da5.Visible = True
            Me.Za5.Visible = True
            
        ' حالة "عدم إعادة الزواج وهي أرملة"
        Case (zawjValue = 2 And zawjaValue = 1)
            Me.k6.Visible = False
            Me.Da6.Visible = True
            Me.Za6.Visible = True
            
        ' حالة "عدم إعادة الزواج وهي مطلقة"
        Case (zawjValue = 1 And zawjaValue = 2)
            Me.k7.Visible = False
            Me.Da7.Visible = True
            Me.Za7.Visible = True
            
        ' حالة "الزواج المنعقد بين السيد والسيدة"
        Case (zawjValue = 1 And zawjaValue = 1)
            Me.k8.Visible = False
            Me.Za8.Visible = True
            Me.Com8.Visible = True
            Me.Ne8.Visible = True
            
        ' الحالة الجديدة أخي طاهر عندما يكون الزوج متوفي والزوجة مطلقة (zawjValue = 2 And zawjaValue = 2)
        Case (zawjValue = 2 And zawjaValue = 2)
            If dateDeath > dateDivorce And dateDivorce <> 0 And dateDeath <> 0 Then
                ' إذا توفي الزوج بعد تاريخ طلاق الزوجة
                Me.k7.Visible = False
                Me.Da7.Visible = True
                Me.Za7.Visible = True
            Else
                Me.k7.Visible = True
                Me.Da7.Visible = False
                Me.Za7.Visible = False
            End If
    End Select
    
    DoCmd.Close acForm, "A3"
End Sub

Private Sub InitializeControlsVisibility()
    Dim controlNames As Variant
    controlNames = Array("k5", "Da5", "Za5", "k6", "Za6", "Da6", _
                         "k7", "Za7", "Da7", "k8", "Za8", "Com8", "Ne8", _
                         "k1", "Za1", "Da1", "k2", "Za2")
    
    Dim ctrlName As Variant
    For Each ctrlName In controlNames
        On Error Resume Next
        Me.Controls(ctrlName).Visible = (Left(ctrlName, 1) = "k")
        On Error GoTo 0
    Next ctrlName
End Sub

 

 

[Foksh]

  في 29‏/4‏/2025 at 10:25, Foksh said:

وأنصح بدراسة وتجربة جميع الإحتمالات حتى تلم بها دون اي مشاكل

Expand  

هل جميع الإحتمالات التي تخص هذا الموضوع تمت بنجاح ؟؟؟

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

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

  في 29‏/4‏/2025 at 17:14, Foksh said:

هل جميع الإحتمالات التي تخص هذا الموضوع تمت بنجاح ؟؟؟

Expand  

وجدت تغيرات طفيفة في التعديل الاخير مكعوسة  وتمت معالجة المشكلة

 توفي الزوج بعد تاريخ طلاق الزوجة
                Me.k7.Visible = False
                Me.Da7.Visible = True
                Me.Za7.Visible = True
            Else
                Me.k7.Visible = True
                Me.Da7.Visible = False
                Me.Za7.Visible = False

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

تم تعديل April 29 بواسطه طاهر اوفيسنا

[Foksh]

إذا الآن يستحق الموضوع اغلاقه بفضل الله تعالى 😉 

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

  في 29‏/4‏/2025 at 18:13, Foksh said:

إذا الآن يستحق الموضوع اغلاقه بفضل الله تعالى 😉 

Expand  

استاذ قبل مانغلق الموضوع تلقيت صباح اليوم مشكلة عندما طلب مني الزوج شهادة عدم اعادة الزواج بحكم ان زوجته متوفية ولم يتزوج بعدها فظهر التقرير كله خطوط علما ان مربع النص Za6  وتاريخ الوفاة Da6 يخص الزوجة فكيف يتم اذا اخترت الزوجة تظهر اسمها واذا اخترت الزوج يظهر اسمه التعديل يكون في التقرير Face8

تم تعديل April 30 بواسطه طاهر اوفيسنا

[Foksh]

  في 30‏/4‏/2025 at 09:17, طاهر اوفيسنا said:

استاذ قبل مانغلق الموضوع تلقيت صباح اليوم مشكلة عندما طلب مني الزوج شهادة عدم اعادة الزواج بحكم ان زوجته متوفية ولم يتزوج بعدها فظهر التقرير كله خطوط علما ان مربع النص Za6  وتاريخ الوفاة Da6 يخص الزوجة فكيف يتم اذا اخترت الزوجة تظهر اسمها واذا اخترت الزوج يظهر اسمه التعديل يكون في التقرير Face8

Expand  

الزوجة متوفية لم تكن ضمن اسلوب العمل والاحتمالات التي حددتها ,, 🙄 

لهذا طلبت منك سابقاً وضح جميع الاحتمالات ، ولكنك لم تأخذ الموضوع بشكل جدي وحقيقي وقابل للحصول في احتمال .

على العموم ارسل مرفقك الأخير بعد تعديلاتك التي أجريتها مؤخراً 

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

اليك المرفق للتعديل

فتح تقرير FACE16.zipFetching info...

[Foksh]

هذا أحد احتمالات لم تكن في حسبانك ، ورقمها 1 - 4 ، وعليه سيتم اضافة جملة Case لهذا الشكل الجديد من الإحتمالات ..

Case (zawjValue = 1 And zawjaValue = 4)

 

يوجد مربع نص = Txx في التقرير ، غير مهم ، وتستطيع حذف اي شيء متعلق به في الكود ، فهو كان فقط لتحديد الإحتمالات التي كنت أعمل عليها .

 

 

فتح تقرير FACE16.zipFetching info...

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

شكرا استاذ والان بامكانك غلق الموضوع

[Foksh]

  في 30‏/4‏/2025 at 13:28, طاهر اوفيسنا said:

شكرا استاذ والان بامكانك غلق الموضوع

Expand  

أخي طاهر ، غلق الموضوع باختيارك أفضل إجابة