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

[Foksh]

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

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

 

 

فتح تقرير FACE14.zip

23 دقائق مضت, طاهر اوفيسنا said:

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

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

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

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

منذ ساعه, Foksh said:

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

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

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

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

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

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

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

وشكرا مسبقا

[Foksh]

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

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

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

 

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

2 OR 4

 

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

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

2 دقائق مضت, Foksh said:

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

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

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

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

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

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

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

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

[Foksh]

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

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

Tbl_Hamech

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

 

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

Tbl_ZAWJ

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

 

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

Tbl_ZAWJA

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

 

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

 

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

 

 

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

5 ساعات مضت, Foksh said:

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

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

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

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

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

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

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

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

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

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

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

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

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

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

فتح تقرير FACE15.rar

[Foksh]

22 دقائق مضت, طاهر اوفيسنا said:

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

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

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

 

 

فتح تقرير FACE15.zip

 

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

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

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

[Foksh]

27 دقائق مضت, طاهر اوفيسنا said:

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

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

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

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