مشكلة في تنفيذ دالة IF الشرطية عند إختيار الابن

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

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

نتمنى ان تكون صحتكم بالف خير يارب

بعد غياب طويل عن المنتدى لظروف ما

واجهتني مشكلة عند الاختيار والدخول الى التقارير بشرط :

حيث عند مربع إختيار الإبن  T1 = -1 في الفورم A2  بعد اختيار الزوج والزوجة والابن من الفورم الرئيسي Search_Frm

دالة معرفة العمر 

Dim Cr As String
        Cr = DLookup("anneNes", "Tbl_Enf", "NF =" & Me.NF)
        Cr1 = Year(Date) - Cr

 الشرط 01-  الابن اكبر من 17 سنة ونختار  في  Reporte_Title احدى :  "تصريح بالبطالة";"تصريح بالشرف"

يفتح التقرير Face4T   ولا يفتح التقرير face10

بظهزر ميساج  عند المنع " اي عند  فتح face10 "

MsgBox " تنبيه ! هذا الطفل إستوفى 18 سنة "

الشرط 02- الابن اقل او يساوي 17 سنة  ونحتار في   Reporte_Title  "تصريح أبوي لقاصر" 

يفتح التقرير face10 ولا يفتح التقرير Face4T

 

بظهزر ميساج  عند المنع " اي عند  فتح Face4T"

MsgBox " تنبيه ! هذا الطفل لم يستوفى 18 سنة "

       ' (الإبن (ة
    ElseIf T1 = -1 Then
        If Me.Reporte_Title = Me.Reporte_Title.ItemData(0) Then
        Rept2 = "   أصـرح بشرفـي بأنني عاطل(ة)عــن العمـل لا أمارس أي نشاط مأجور في القطاع العام أو الخاص"
    ElseIf Me.Reporte_Title = Me.Reporte_Title.ItemData(1) Then
        Rept2 = "أصـرح بشرفـي بأنني لأمارس اي نشاط مهني او تجاري"
    End If
    
    Rept1 = Me.Reporte_Title
    TempVars("Reporte_Title") = Reporte_Title.Value
    TempVars("C1") = C1.Value
    TempVars("C2") = C2.Value
    TempVars("C3") = C3.Value
    TempVars("N4") = N4.Value
    TempVars("N5") = N5.Value
    TempVars("Reporte_Title1") = Reporte_Title1.Value

    stDocName = "Face4t"
    DoCmd.OpenReport stDocName, acPreview
'    Abou_Taha (stDocName)
    DoCmd.Close acForm, "A2"
    

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

9acer.rar

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

[kkhalifa1960]

تفضل استاذ @طاهر اوفيسنا أولاً عوداً حميداً ................. تم عمل الازم  حسب مافهمت .

لكن التقرير (Face4) يعمل تمام  أما التقرير (Face10) محتاج منك بعض الاصلاح والترتيب  اليك المرفق . ووافني بالرد .

9acer-1.rar

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

37 دقائق مضت, kkhalifa1960 said:

تفضل استاذ @طاهر اوفيسنا أولاً عوداً حميداً ................. تم عمل الازم  حسب مافهمت .

لكن التقرير (Face4) يعمل تمام  أما التقرير (Face10) محتاج منك بعض الاصلاح والترتيب  اليك المرفق . ووافني بالرد .

شكرا أستاذي الكريم

التعديل في محله

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

01- ولكن استاذ مامشكلة عدم ظهور معلومات  Rep1 و Rep2 في التقرير Face4T

02- يوجد مشكلة عند فتح التقرير عند الزوج والزوجة

مع العلم ان العمر مقيد للأبناء فقط يعني دالة حساب العمر تكون عند T1 = -1

3- هل يمكن اختفاء "تصريح أبوي لقاصر"  عند احتيار الزوجين واظهاره  عند الابناء الي اقل او يساوي من 17 سنة

و شكرا استاذي

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

[kkhalifa1960]

اليك المرفق بعد التعديل بالطلب 3  أما الطلبان 1 و 2   عدل استعلامات التقارير لينتج طلبك .

9acer-2.rar

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

10 دقائق مضت, kkhalifa1960 said:

اليك المرفق بعد التعديل بالطلب 3

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

*- صحيح قمت بالاختفاء كما طلب عند الابناء من 18 فما فوق ولكن فتح التقاير لم تتم 

14 دقائق مضت, kkhalifa1960 said:

أما الطلبان 1 و 2   عدل استعلامات التقارير لينتج طلبك

1- مشكلتها في دالة العمر لان الزوجين لاتشملهما دالة Cr1

2- في نظري ليس له علاقة بالاستعلام عند التقرير بل تكون عبر دالة IF عند اختيار  Reporte_Title في الفورم A2  تظهر في التقرير في مربع نص غير منظم  REP1 

وكذلك  REP2 تظهربأسفل التقرير  عند الشرط وفق لما يلي :

        If Me.Reporte_Title = "تصريح بالبطالة" Then
            Rept2 = "   أصـرح بشرفـي بأنني عاطلة عــن العمـل لا أمارس أي نشاط مأجور في القطاع العام أو الخاص"
        ElseIf Me.Reporte_Title = "تصريح بالشرف" Then
            Rept2 = "أصـرح بشرفـي بأنني لأمارس اي نشاط مهني او تجاري"
        End If

وفي حدث التقرير

Private Sub Report_Load()

Me.Rep1.Value = Rept1
Me.Rep2.Value = Rept2

End Sub

 

[kkhalifa1960]

ابشر  وعطني فرصة لباكر .

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

11 دقائق مضت, kkhalifa1960 said:

ابشر  وعطني فرصة لباكر

ان شاء الله استاذي

مع مرعاة UpdateComboBox لاتكون هنا

Private Sub F1_AfterUpdate()
'    UpdateComboBox
End Sub

Private Sub Y1_AfterUpdate()
'    UpdateComboBox
End Sub

Private Sub T1_AfterUpdate()
'    UpdateComboBox
End Sub

 تكون عند 

Private Sub SearchListZy_Click()
    UpdateComboBox

Private Sub SearchListZT_Click()
     UpdateComboBox

Private Sub SearchListZ_Click()
    UpdateComboBox

 

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

استاذ حاول التعديل على النسخة هذه

وخاصة المطلب  01

 

 

 

9acer3.rar

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

[ابوخليل]

السلام عليكم

مع اني لم افهم المطلوب في موضوعك وخاصة مشاركتك الأولى

 انت عادة دقيق في عرضك و طلبك .

ولكني دخلت لمثالك الأخير من باب الاطلاع فوجدت هذا الكود الخاص بالتقرير :

Me.Rep1.Value = Rept1
Me.Rep2.Value = Rept2

ولكني حين بحثت عن Rept1 و Rept2  لم اجد لهما اثرا لا في مجموعة الاكواد ولا في الجداول ولا الاستعلامات .

هل تدلنا على مصدر هاتين الكلمتين ؟

 

[kkhalifa1960]

تفضل استاذ @طاهر اوفيسنا آخر محاولاتي . ووافني بالرد .

9acer3-1.rar

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

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

هل تدلنا على مصدر هاتين الكلمتين ؟

شكرا استاذ على الاطلاع  تجدهما في مربعين غير منتظمين في التقريرين  face4وFace4t ومصدرها في كود في الفورم A2  اي عند اختيار طباعة احد التصريحات

1 ساعه مضت, kkhalifa1960 said:

تفضل استاذ @طاهر اوفيسنا آخر محاولاتي . ووافني بالرد .

سارى غدا بحول الله وسأوافيك بالرد

تم تعديل الأربعاء at 22:25 بواسطه طاهر اوفيسنا

[ابوخليل]

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

شكرا استاذ على الاطلاع  تجدهما في مربعين غير منتظمين في التقريرين  face4وFace4t ومصدرها في كود في الفورم A2  اي عند اختيار طباعة احد التصريحات

لم أسأل عن  Rep1 و Rep2  وانما عن Rept1 و Rept2   ... انظر الكود الذي نسخته لك .. هذا الكود موجود في التقرير الهدف

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

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

وانما عن Rept1 و Rept2

If Me.Reporte_Title = "تصريح بالبطالة" Then
      Rept2 = "   أصـرح بشرفـي بأنني عاطل عــن العمـل لا أمارس أي نشاط مأجور في القطاع العام أو الخاص"
ElseIf Me.Reporte_Title = "تصريح بالشرف" Then
      Rept2 = "أصـرح بشرفـي بأنني لأمارس اي نشاط مهني او تجاري"

Rept1 = Me.Reporte_Title

 

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

8 ساعات مضت, kkhalifa1960 said:

تفضل استاذ @طاهر اوفيسنا آخر محاولاتي . ووافني بالرد .

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

والان بعد إذنك استاذ هل لي ان استغني عن 3 تقارير واجعلهم تقريرا واحدا فقط وهو face4

اذا فتحت من جهة الزوج نجد معلومات الزوج الاستعلام  Zawj

او الزوجة نجد معلومات الزوجة الاستعلام  Zawja

او الابن اكبر من 17 نجد معلومات الابن الاستعلام  Enf   

اما الابناء اقل او يساوي 17 سنة القاصر فلهم تقرير منفصلا face10

[kkhalifa1960]

استاذ @طاهر اوفيسنا أنا حاولت ولم أفلح فلابد من أربع تقارير وإليك النسخة المعدلة .

9acer3-2.rar

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

14 دقائق مضت, kkhalifa1960 said:

استاذ @طاهر اوفيسنا أنا حاولت ولم أفلح فلابد من أربع تقارير وإليك النسخة المعدلة .

شكرا استاذنا الكريم على الاهتمام والمتابعة نتمنى من الاخوة الاساتذه الكرام ان يجد لي حلا اذا امكن

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

2 ساعات مضت, طاهر اوفيسنا said:

استاذ @طاهر اوفيسنا أنا حاولت ولم أفلح فلابد من أربع تقارير وإليك النسخة المعدلة .

استاذ وجدت لخبطة عند تطبيق دالة Args في تعيين القيم في التقرير Face10   يعني القيم واحدة في مكان واحدة فكيف يكون الحل وفق هذه الدالة

تم تعديل الخميس at 10:42 بواسطه طاهر اوفيسنا

[kkhalifa1960]

ابشر وعندي محاولات شغال عليها لتوحيد التقرير لكن عطني وقت .

[Foksh]

مشاركة أفكار معكم أساتذتنا الكرام ..

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

يعني في التقرير Zawj نجعل لجميع العناصر Tag = Zawj

وهكذا في باقي التقارير ، ثم في التقرير الموحد face4 قمنا بلصق جميع العناصر داخل نفس التقرير بعد ضبط مواقعها ( الفكرة مشتقة من فكرة سابقة تم العمل عليها لأخينا طاهر ) وبالتالي عند فتح التقرير نحدد له الشرط بأن يعرض العناصر ذات Tag محدد  

 

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

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

7 دقائق مضت, kkhalifa1960 said:

ابشر وعندي محاولات شغال عليها لتوحيد التقرير لكن عطني وقت .

تسلم استاذي ولكن ياريت طريقة لمعرفة عمل دالة Args

[ابوخليل]

انا اشرت اليك اين موقع الخلل

انظر اول مثال لك تم اصلاحه حسب ملاحظتي ..  ان كان التعديل يوافق طلبك

فقط اعلنت عن المتغيرات .. لأن المتغيرات موجودة في نموذج بعيد عن التقرير

9acer4.rar

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

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

فقط اعلنت عن المتغيرات .. لأن المتغيرات موجودة في نموذج بعيد عن التقرير

 

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

والان في الاستغناء عن التقارير وحعلها في تقرير واحد

اي الاستغناء عن التقرير face4t و face4y  وفتحها في FACE4 بواسطة توحيد استعلام مثلا 

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

مشاركة أفكار معكم أساتذتنا الكرام

شكرا على الاهتمام استاذ وياريت توظيب الفكرة 

[ابوخليل]

طريقة تصميمك لنموذج A2 بحاجة الى تحسين

الصحبة الطويلة بيننا اعرف ان اي فكرة في رأسك يصعب تغييرها 

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

لأني لاحظت من خلال الجداول ان الزوجة والابناء لم ترصد لهم هذه البيانات .

بعد ذلك .. اي اسفل هذه البيانات .. مربعي تحرير  للزوجات والأبناء  ( يتم الاختيار منهما حسب الطلب)

واسفل مربعات التحرير  مربعات اختيار ( لاختيار المحدد بالتصريح : ان كان الأب او احد الزوجات او احد الأبناء )

ثم مربعي الريبورت اللذين يحددان نوع الخدمة

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

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

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

طريقة تصميمك لنموذج A2 بحاجة الى تحسين

الصحبة الطويلة بيننا اعرف ان اي فكرة في رأسك يصعب تغييرها 

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

[ابوخليل]

نعم انا متفرغ الآن

فقط اطلب منك تفضلا ضبط البيانات الضرورية في الجداول 

اريد فقط  اسمين واكرر فقط

  واحد له زوجة واحدة .. وأبناء

والآخر له اكثر من زوجة .. وابناء لكل زوجة

ونموذجك  Search_Frm

البيانات في الجداول يجب ان تكون كافية وافية .. كما تريد ظهورها في التقرير